標題: 真正清除空白列 [打印本頁]

---

作者: elaine688    時間: 2015-10-20 13:44     標題: 真正清除空白列

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

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

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

---

作者: 准提部林    時間: 2015-10-20 15:50

一般〔由下往上〕刪：

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)