12
返回列表 上一主題 發帖

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

mave

帖子
18 
主題
6 
精華
0 
積分
24 
點名
0  
作業系統
win7 
軟體版本
2007 
閱讀權限
10 
性別
男 
來自
高雄 
註冊時間
2016-3-23 
最後登錄
2016-7-4 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-5-5 10:32 | 只看該作者

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

本帖最後由 mave 於 2016-5-5 10:34 編輯

各位大大好

公司系統一次匯出各組別的報表資料時，
組別與組別之間都會有空白欄位隔開(請參考下圖)


我使用VBA進行表格加工時，
想要將紅圈處的空白欄位刪除，
若使用 end(Xldown).row 語法計算總欄位數，
再使用if 判斷若為空白則 entirerow.delete
但是遇到空白欄位處就計算停止了，使用無法計算出正確總欄位數。

請問各位大大是否有其他的語法或是方式可以解決此問題嗎?
收藏 分享

Kubi

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

TOP

mave

帖子
18 
主題
6 
精華
0 
積分
24 
點名
0  
作業系統
win7 
軟體版本
2007 
閱讀權限
10 
性別
男 
來自
高雄 
註冊時間
2016-3-23 
最後登錄
2016-7-4 
3#
發表於 2016-5-5 11:03 | 只看該作者
感謝k大

我來測試看看

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
4#
發表於 2016-5-5 15:06 | 只看該作者
回復 2# Kubi 請教
請教大大
SpecialCells(4)是什含意?

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
5#
發表於 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

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
6#
發表於 2016-5-6 10:22 | 只看該作者
本帖最後由 ML089 於 2016-5-6 17:15 編輯

還是用回圈來決解

Sub ex()
    For r = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If 0 = Application.CountA(Range(Cells(r, "A"), Cells(r, "F"))) Then '判斷A~F欄沒有資料才刪除此列
            Rows(r).EntireRow.Delete
        End If
    Next
End Sub
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
7#
發表於 2016-5-6 11:27 | 只看該作者
回復 6# ML089
感謝K大 M大
學習到了

TOP

mave

帖子
18 
主題
6 
精華
0 
積分
24 
點名
0  
作業系統
win7 
軟體版本
2007 
閱讀權限
10 
性別
男 
來自
高雄 
註冊時間
2016-3-23 
最後登錄
2016-7-4 
8#
發表於 2016-5-17 15:58 | 只看該作者
回復 6# ML089

感謝M的解答
之前都沒想過用End(xlUp).Row 逆推回去
覺得也是一個不錯的方法

不過小弟也有個小問題想順便請教M大
就是為何程式碼前面都會加上Application呢?

我有在其他篇文章發問過，目前還沒有得到答案，
不知M大是否可以指教呢?

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
9#
發表於 2016-5-17 16:08 | 只看該作者
回復 8# mave

這三種都可以取得EXCEL 工作表函數在VBA中使用。

Sub ex()
a = Application.WorksheetFunction.CountA([A:A])
b = Application.CountA([A:A])
c = WorksheetFunction.CountA([A:A])
Debug.Print a, b, c
End Sub
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

mave

帖子
18 
主題
6 
精華
0 
積分
24 
點名
0  
作業系統
win7 
軟體版本
2007 
閱讀權限
10 
性別
男 
來自
高雄 
註冊時間
2016-3-23 
最後登錄
2016-7-4 
10#
發表於 2016-5-17 16:24 | 只看該作者
回復 9# ML089

哇~~M大的回覆真是快速
小弟剛剛也有查詢了EXCEL說明
可能是小弟功力不足，看了似懂非懂

不過看到M大的回覆之後，好像又更了解了一些
我也把說明的內容貼上面供大家參考

TOP

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