作者Davan (Davan)
看板Visual_Basic
标题[算表] 请问EXCEL VB的高手。。。
时间Tue Nov 4 18:04:38 2008
※ [本文转录自 Office 看板]
作者: Davan (Davan) 看板: Office
标题: [算表] 请问EXCEL VB的高手。。。
时间: Tue Nov 4 17:56:51 2008
软体:excell
版本:2007
请问一下...
我要做一个报表.须要从sheet1捉资料到sheet2
然後从sheet2产生一个表..但是在其中又有一些空白列
ex.
A B C
1 1 ABC
2 2 ABB
3 3 BBB
4
5 4 CCC
6 5 DDD
7
8
9 6 XXX
10 7 ZZZ
我要如何将这一空白到用vb或excel的函数消掉呢..?
我今天自己想的 vb Program 但是没有用..(我不会vb啦 (泣~~~)
请问各位用更好的方法或做法呢.....?
Sub Macro1()
Dim y As Integer
Dim x As Integer
Dim z As Integer
x = 6: y = x: z = 1
For x = 1 To z
If ActiveSheet.Cells(x, y) = "" Then
Rows(x, y).Select
Selection.Delete Shift:=xlUp
Else
z = z + 1
End If
Next x
End Sub
--
http://www.wretch.cc/album/davan76
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 116.118.172.12
※ Davan:转录至看板 ask 11/04 17:58
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 116.118.172.12
1F：推 Marty:资料/筛选/自动筛选/非空格 => 复制/贴上 => 收工领便当 11/04 20:09
2F：→ Davan:THANK YOU.....that is more easy way to do... 11/04 21:02