返回列表 上一主題 發帖

請問如何將中間空白的列移除呢?

請問如何將中間空白的列移除呢?

http://naturefruit.myweb.hinet.net/ask1.xls


共有

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

TOP

你好:

請試試是否可行

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

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝,花了許多心血,想盡各式方法要遮擋時間,結果是:浪費了更多時間,且一無所成!
返回列表 上一主題