Excel VBA根据单元格值选择范围

Question

我是VBA的新手。

For each cell in columns("c:c") 
If cell.value = "TRUE" Then 
'vba is required for selecting corresponding cells in columns A and B 
Next cell 
Else: 
exit sub 
End if 
end sub 

请适当修正

Answer 1

试试这个：

Sub test() 
    Dim lastrow As Long 
    Dim c As Range, rng As Range 
    'change Sheet1 to suit 
    With ThisWorkbook.Worksheets("Sheet1") 
     lastrow = .Cells(.Rows.Count, "C").End(xlUp).Row 
     For Each c In .Range("C1:C" & lastrow) 
      If UCase(c.Text) = "FALSE" Then 
       If rng Is Nothing Then 
        Set rng = .Range("A" & c.Row).Resize(, 2) 
       Else 
        Set rng = Union(rng, .Range("A" & c.Row).Resize(, 2)) 
       End If 
      End If 
     Next c 
    End With 

    If Not rng Is Nothing Then rng.Select 
End Sub