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

m09903020

小的目前sheet中有A行300列當作一個一維array
請問大大，如圖

下載 (24.48 KB)

2012-6-14 12:46

若有一數值為1時，則如何抓取其cell位址
謝謝大大。

register313

回復 1# m09903020

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

複製代碼

GBKEE

回復 1# m09903020

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Ar()
   
4.     With Range("A1:A300")
   
5.         Ar = .Value
   
6.         .Replace "1", "=1/0", xlWhole
   
7.         .SpecialCells(xlCellTypeFormulas, xlErrors).Name = "XX"
   
8.         .Value = Ar
   
9.          MsgBox [XX].Address
   
10.     End With
    
11. End Sub

複製代碼

m09903020

慚愧慚愧，  我不是很了解接下來這個訊息代表什麼

register313

回復 4# m09903020

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

m09903020

回復 5# register313

不好意思 檔案只留 問題部分 若還是不足先說聲抱歉，再補上

問題.rar (34.69 KB)

問題
下載次數: 7

2012-6-14 15:40

oobird

我測試正常的，也許你把代碼放錯位置了。

下載 (11.9 KB)

2012-6-14 16:47

register313

回復 6# m09903020

位址放在 陣列Arr 及M欄

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

複製代碼

m09903020

回復 3# GBKEE


    謝謝G大， G大的程式函數很精簡，我查了很久才看懂。不過我放棄使用了:)

m09903020

回復 7# oobird


    謝謝oo大大 ，  剛剛再試了一次 xx() 確實可用，你po文之前不行我也不是很為什麼"沒宣告"或者沒用with