返回列表 上一主題 發帖

[發問] VBA如何取得最後一欄的欄數

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
1# 跳轉到 »
發表於 2016-5-5 10:56 | 顯示全部帖子
回復 1# mave
試看看
Columns(1).SpecialCells(4).EntireRow.Delete
[b]Kubi[/b]

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
2#
發表於 2016-5-5 20:27 | 顯示全部帖子
回復 4# yangjie
4 = xlCellTypeBlanks (空白儲存格)
也就是：SpecialCells(xlCellTypeBlanks)

再看一次圖片發現若用此語法：所有的單位：小時這列都會被一併被刪除。
若只要保留第一列的單位：小時，則語法請改為如下：
Range("A3:A" & [A65536].End(3).Row).SpecialCells(4).EntireRow.Delete
[b]Kubi[/b]

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題