如何使用VBA中的範圍來選擇已識別的單元格

Question

Dim coname, WHAT_TO_FIND As String 
    Dim i As Integer 
    totalRow = Application.CountA(Range("c:c")) - 1 
    i = 2 
    While i <= totalRow 
    coname = Sheet20.Cells(i, "A") 
    i = i + 1 
    WHAT_TO_FIND = coname 
    sheets("Sheet21").Select 
    Set ws = ActiveSheet 
    Set FoundCell = ws.Range("D:D").Find(what:=WHAT_TO_FIND, lookat:=xlWhole) 

    wend 

// in sheet20 I have limited number of comapny names list 
// in sheet21 I have the data with n number of company names 

請讓我知道如何選擇在sheet21中找到的特定單元格。

Answer 1

儘量避免使用.SelectINTERESTING READ

但是回答你的問題，粘貼下面

Set FoundCell = ws.Range("D:D").Find(what:=WHAT_TO_FIND, lookat:=xlWhole) 
If Not FoundCell Is Nothing Then FoundCell.Select 

這個代碼，我寧願用這個

Set FoundCell = ws.Range("D:D").Find(what:=WHAT_TO_FIND, lookat:=xlWhole) 
If Not FoundCell Is Nothing Then 
    With FoundCell 
     ' 
     '~~> Do something 
     ' 
    End With 
End If