[發問] 如何用vba的函數搜尋excel欄內的資料？

ji12345678

(1)我的表格內有4個村上
我想依序 找到它們 並回傳它們的位置。該怎摸做呢？
(2)我是使用  WorksheetFunction.Match函數
     不想用 i=i+1跑迴圈
謝謝指教

Hsieh

回復 1# ji12345678

1. Sub nn()
   
2. Dim A As Range
   
3. Columns("C:C").Replace "村上", "=1/0"
   
4. Set A = Columns("C:C").SpecialCells(xlCellTypeFormulas, 16)
   
5. A.Value = "村上"
   
6. MsgBox A.Address
   
7. End Sub

複製代碼

GBKEE

回復 1# ji12345678
修改你的程式碼

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim myRng1 As Range, myRng2 As Range, myRow   As Variant
   
4.     Set myRng1 = Columns("C")                            '搜尋來源範圍
   
5.     Do
   
6.         myRow = Application.Match("村上", myRng1, 0)      '搜尋到傳回數字 找不到傳回錯誤值
   
7.         If IsError(myRow) Then
   
8.             MsgBox "沒有找到符合條件的儲存格"
   
9.         Else
   
10.             Set myRng2 = myRng1.Cells(myRow)
    
11.             Set myRng1 = Range(myRng2.Offset(1), Cells(Rows.Count, "C"))                 '搜尋來源範圍
    
12.             MsgBox myRng2.Address
    
13.         End If
    
14.     Loop Until IsError(myRow)  '執行迴圈, 直到有錯誤值: 離開迴圈
    
15. End Sub

複製代碼

ji12345678

太厲害了，覺得自已還要學習的還很多…
謝謝幫忙~