[算表] 請問EXCEL VB的高手。。。
軟體: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
推
11/05 16:38, , 1F
11/05 16:38, 1F
→
02/26 09:34, , 2F
02/26 09:34, 2F
→
02/26 09:37, , 3F
02/26 09:37, 3F
→
02/26 09:37, , 4F
02/26 09:37, 4F
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 2 篇)：
Office 近期熱門文章
PTT數位生活區 即時熱門文章
