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

中學生 Rank: 2

帖子: 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

小學生 Rank: 1

帖子: 18
主題: 6
精華: 0
積分: 24
點名: 0
作業系統: win7
軟體版本: 2007
閱讀權限: 10
性別: 男
來自: 高雄
註冊時間: 2016-3-23
最後登錄: 2016-7-4

3^#

發表於 2016-5-5 11:03 | 只看該作者

感謝k大

我來測試看看

TOP

yangjie

中學生 Rank: 2

帖子: 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

中學生 Rank: 2

帖子: 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

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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

中學生 Rank: 2

帖子: 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

小學生 Rank: 1

帖子: 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

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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

小學生 Rank: 1

帖子: 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