→ soyoso: 用range.specialcells內的xlcelltypeblanks 02/26 09:44
→ soyoso: 配合range.entirerow來delete就不用迴圈 02/26 09:44
不知道你的問題解決了沒有
可以試看看這段程式
Private Sub CommandButton1_Click()
For i = 2 To 10000
If Sheet1.Cells(i, 1) = Empty Then Exit For
a = Application.CountBlank(Sheet1.Range("A1:D1").Offset(i - 1, 0))
If a = 0 Then
k = k + 1
Sheet2.Range("A1:D1").Offset(k, 0).Value = _
Sheet1.Range("A1:D1").Offset(i - 1, 0).Value
End If
Next i
End Sub
※ 引述《Davan (Davan)》之銘言：
: 軟體: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
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.168.4.43