你好:
提供2個方法供參考
第一個
Sub Macro2()
'假設資料都從第一列開始
r = Range("A65536").End(xlUp).Row '取得A欄最後一列
'從最後一列往上
For i = r To 1 Step -1
If Cells(i, "B") = "" Then
Cells(i, "B").EntireRow.Delete
End If
Next
End Sub
第二個方法
Sub Macro1()
'假設資料都從第一列開始
r = Range("A65536").End(xlUp).Row '取得A欄最後一列
'刪除B欄(範圍為A欄有資料的列)為空的所有列
Range("B1:B" & r).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
--
天行健，君子以自強不息
地勢坤，君子以厚德載物
http://www.vba.com.tw/plog/
"alexsas" 來函：
Post by alexsas想請教如果有A和B兩columns,
想寫一個回圈刪除B為空白的row.
A 100
A 200
C
D 400
C row要被完全刪除
3Q!
--
VBA Junior