VBA Excel - 选择左值的行=变量

Question

这段代码有问题。没有错误，但似乎也没有做任何事情。
在我的工作表中，“M”列有一些以字母“T”开头的值，我想为这些值选择整行。提前致谢。

Sub trace1()
    Dim trace As String
    trace = "T"
    Dim LR As Long, i As Long
    LR = Range("M" & Rows.Count).End(xlUp).Row
    For i = 1 To LR
        If Left(Range("M" & i).Value, 1) = trace Then Rows("i:i").Select
    Next i
End Sub

Answer 1

以书面形式回答问题的一种可能方法:

Sub trace1()
    Dim trace As String
    trace = "T"
    Dim LR As Long, i As Long

    Dim SelectedRows As Range

    LR = Range("M" & Rows.Count).End(xlUp).Row
    For i = 1 To LR
        If Not SelectedRows Is Nothing Then
            If Left(Range("M" & i).Value, 1) = trace Then Set SelectedRows = Union(SelectedRows, Rows(i))
        Else
            If Left(Range("M" & i).Value, 1) = trace Then Set SelectedRows = Rows(i)
        End If
    Next i
    SelectedRows.Select 'Replace with .Copy if that's what you really wanted.
End Sub