如何使用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