如何抓取cell中已知某值的位址?

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

1^# 跳轉到 »

發表於 2012-6-14 13:03 | 顯示全部帖子

回復 1# m09903020

Sub xx()
Set Rng = Range("A1:A" & [A1].End(xlDown).Row)
Set ADDX = Rng.Find(1, , , xlWhole)
MsgBox ADDX.Address
End Sub

複製代碼

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-6-14 15:19 | 顯示全部帖子

回復 4# m09903020

請上傳excel壓縮檔
vba之撰寫需考慮工作表及儲存格之使用情形

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

3^#

發表於 2012-6-14 16:57 | 顯示全部帖子

回復 6# m09903020

位址放在陣列Arr 及M欄

Sub yy()
Dim Arr(1 To 300, 1 To 1)
For Each R In Sheets("asile_table").[A1:A300]
Set C = R.Find(1, , , xlWhole)
If Not C Is Nothing Then s = s + 1: Arr(s, 1) = C.Address(0, 0)
Next
Sheets("asile_table").[M1].Resize(s, 1) = Arr
End Sub

複製代碼

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

4^#

發表於 2012-6-14 22:34 | 顯示全部帖子

回復 12# m09903020

Set C = R.Find(1, , , xlWhole) '設定內容為1的儲存格物件為C
If Not C Is Nothing Then s = s + 1: Arr(s, 1) = C.Address(0, 0) '每找到C則將C的相對位址放進陣列

s = s + 1 's依序加1
(1) s=1, Arr(1, 1) = 第1個內容為1的儲存格相對位址
(2) s=2, Arr(2, 1) = 第2個內容為1的儲存格相對位址
(2) s=3, Arr(3, 1) = 第3個內容為1的儲存格相對位址