[算表] 請問EXCEL VB的高手。。。

看板Visual_Basic作者Davan (Davan)時間17年前 (2008/11/04 18:04)推噓1(1推 0噓 1→)

留言2則, 2人參與討論串1/2 (看更多)

※ [本文轉錄自 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

推

Marty

11/04 20:09, , 1^F

11/04 20:09, 1^F

→

Davan

11/04 21:02, , 2^F

11/04 21:02, 2^F

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 Davan 的文章

文章代碼(AID): #1941utI_ (Visual_Basic)