Excel VBA根据单元格值select范围

我是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