基于单元格值选择范围的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

请进行适当的更改

- ganesh

---

你目前尝试了什么？ - Dmitry Pavliv

嗨，Simico，请看一下上面编辑过的代码。我写得比较粗糙，因为我对编程不是很了解。 - ganesh

你想选择只有在C列为FALSE的第一行，还是所有C列为FALSE的行？ - Dmitry Pavliv

我想选择所有包含 false 的行。 - ganesh

这些行中应选择哪些列？ - Dmitry Pavliv

应选择A列和B列的单元格。 - ganesh

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

- Dmitry Pavliv

---

是的，它完美地实现了我的需要。谢谢simico。如果您不介意，我能否获得您的电子邮件地址或其他可以直接寻求您帮助的方式，而不必通过此网站？ - ganesh