[發問] 特定範圍內已使用列數計算

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-9-10 01:09 | 只看該作者

[發問] 特定範圍內已使用列數計算

想請問一個語法
工作表中
A欄的資料5個，A1~A5
B欄的資料5個，B1~B5
C欄的資料10個，C1~C10

如果我這麼寫
Dim a
a = usedrange.rows.count
得到的是10

但是我只想要A,B兩欄已使用的列數
a = Range("A1:B100").usedRange.rows.count
會錯欸

UsedRange好像只能計算整張工作表，不能算特定範圍內的

那我該怎麼辦改呢？
謝謝

樓主熱帖

哈囉~大家好呀

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

2^#

發表於 2019-9-10 09:59 | 只看該作者

我找到用法了
如果是下函數就是 =countA("B1:B100") 這樣會算出 5

但是VBA用法要寫 a = Application.CountA("B1:B100")
可是為什麼我得到都是 1 而已
??

哈囉~大家好呀

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

3^#

發表於 2019-9-10 10:01 | 只看該作者

後來嘗試要指定工作表及範圍之後
就正常了

如下
a = Application.CountA(Sheets("工作表1").Range("B1:B100"))

哈囉~大家好呀

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

4^#

發表於 2019-9-10 10:06 | 只看該作者

剛想了想
countA只能單一欄去計算有幾個
來當作資料用到第幾列

可是如果中間有空值  比如 A1~A3有資料  A4A5空的 A6有資料
如果用UsedRange.rows.count  會算到 6
用COUNTA只會算出 4 (4個資料)

另外
如果A欄有5筆資料，B欄有6筆資料
而我一次是要計算 A1:B100  這個範圍內，已使用資料的列數
就沒辦法用COUNTA了

所以如果有哪位大大能有好的寫法
再麻煩教教我
謝謝

哈囉~大家好呀

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-27

5^#

發表於 2019-9-11 10:07 | 只看該作者

本帖最後由准提部林於 2019-9-11 10:09 編輯

Sub TEST()
Dim xF As Range, xE As Range
With [A1:B10]
   Set xE = .Item(.Count)  '定位指定範圍的最後一格
   Set xF = .Find("*", After:=xE, SearchOrder:=xlByRows, SearchDirection:=xlPrevious) '從最後一格往上找非空
   If xE <> "" Then Set xF = xE '若最後一格非空, 則以此格為準
End With
MsgBox xF.Row
End Sub

====================