返回列表 上一主題 發帖

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

vpower

帖子
155 
主題
56 
精華
0 
積分
242 
點名
0  
作業系統
WinXP 
軟體版本
專業版2002 
閱讀權限
0 
註冊時間
2010-5-29 
最後登錄
2011-7-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-7-22 23:08 | 只看該作者

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

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


共有
收藏 分享

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
2#
發表於 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

TOP

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
130 
主題
8 
精華
0 
積分
143 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-8-3 
3#
發表於 2010-7-27 09:07 | 只看該作者
刪除 純空白列(儲存格內若有公式,視為非空白)
Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題