標題: 請問如何將中間空白的列移除呢? [打印本頁]

---

作者: vpower    時間: 2010-7-22 23:08     標題: 請問如何將中間空白的列移除呢?

提示: 作者帳號被禁止或禁止訪問

---

作者: dechiuan999    時間: 2010-7-27 07:20

你好：

請試試是否可行

Sub aa()
   
    Dim mSht As Worksheet
    Dim mRng As Range
   
    Set mSht = Worksheets(1)
    With mSht
        Set mRng = .UsedRange.SpecialCells(xlCellTypeBlanks)
        mRng.Delete
    End With
   
End Sub

---

作者: jackdream    時間: 2010-7-27 09:07

刪除 純空白列(儲存格內若有公式,視為非空白)
Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

---

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