儲存格無資料時往上遞補?

💻 軟件台軟體

[匿名]

2015-08-20 11:22 am

回答 (1)

先生

2015-08-20 11:50 am

問的真簡單!!!
Sub test()
For i = [A65536].End(xlUp).Row To 1 Step -1
If Cells(i, 1) = Empty Then Cells(i, 1).Delete Shift:=xlUp
Next
End Sub

👍 0 👎 0