真正清除空白列

elaine688

excel在編輯資料中, 成了大筆資料量的問題,
在編輯過程中往往插入不少的空白列,
用vba寫個簡單的程式做空白列刪除,
不過看起來還是沒有一次就整個空白列清除掉,
真正將空白列清除掉, 其滑杆應至到如下圖:

下載 (4.91 KB)

2015-10-20 13:43

Sub 刪除資料列中的空列()
    Dim x As Long
    For x = 2 To Range("a65536").End(xlUp).Row
    If Cells(x, 1) = "" Then
      Rows(x).Select
      Selection.Delete Shift:=xlUp
    End If
  Next x
End Sub

版上不知是否有先進指導, 能夠做到真正清除空白列

准提部林

一般〔由下往上〕刪：

Sub 刪除資料列中的空列()
Dim x As Long
For x = [a65536].End(xlUp).Row To 2 Step -1
　　If Cells(x, 1) = "" Then Rows(x).Delete
Next x
ActiveSheet.UsedRange　'加入此指令，縮小滑桿（或儲存檔案也可）　
End Sub