返回列表 上一主題 發帖

真正清除空白列

elaine688

帖子
5 
主題
4 
精華
0 
積分
18 
點名
0  
作業系統
windows 7 
軟體版本
office 2007 
閱讀權限
10 
註冊時間
2014-7-2 
最後登錄
2021-8-10 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-10-20 13:44 | 只看該作者

真正清除空白列

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

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

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

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-26 
2#
發表於 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

TOP

        靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。
返回列表 上一主題