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

[Davan (Davan)]

※ [本文轉錄自 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:資料/篩選/自動篩選/非空格 => 複製/貼上 => 收工領便當
→ Davan:THANK YOU.....that is more easy way to do...