查找列中的值並選擇同一行中的單元格

Question

我一直在代碼中查找列F中的值「SIM」，並選擇列A和B中同一行中的所有單元格。正在工作，但是，有2個「SIM」，所以它應該選擇2行中的單元格A和B，但它只能在一箇中完成！有人能幫我嗎？ 感謝

Sub teste() 

'Alterar todo mes 

Dim TR As Long, i As Long 

Worksheets("Format2").Activate 

'Alterar todo mes 

TR = Range("F" & Rows.Count).End(xlUp).Row 

For i = TR To 1 Step -1 
    If (Range("F" & i)) = "SIM" Then 
    Rows(i).Select 
ActiveCell.EntireRow.Range("A1:b1").Select 
    End If 
Next i 

End Sub 

Answer 1

測試：

Sub teste() 

    Dim TR As Long, i As Long, rng As Range 
    Dim sht as WorkSheet 

    Set sht = Worksheets("Format2") 
    sht.Activate 
    TR = sht.Range("F" & Rows.Count).End(xlUp).Row 

    For i = TR To 1 Step -1 
     If sht.Range("F" & i).Value = "SIM" Then 
      If rng Is Nothing then 
       Set rng = sht.Cells(i, 1).Resize(1,2) 
      Else 
       Set rng = Application.Union(rng, sht.Cells(i, 1).Resize(1,2)) 
      End If 
     End If 
    Next i 

    If Not rng Is Nothing Then rng.Select 
End Sub