推 JieJuen:選取後 Ctrl+G到/特殊/空格 11/05 16:38
→ soyoso: 原文巨集寫法很怪，z=1不就迴圈執行1次就結束了，那又 02/26 09:34
→ soyoso: 為何要z=z+1；y=x就不用多此一舉，直接用x的值不就好 02/26 09:37
→ soyoso: rows(x,y)的寫法這是錯誤的 02/26 09:37
軟體: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
※ Davan:轉錄至看板 Visual_Basic 11/04 18:04