Excel VBA匹配和排列行

Sub MatchRows()
    Dim searchValue As String
    Dim rng As Range
    Dim cell As Range
    
    searchValue = "Apple" '要匹配的值
    
    Set rng = Range("A1:A10") '要搜索的范围
    
    For Each cell In rng
        If cell.Value = searchValue Then
            '找到匹配的行
            MsgBox "找到匹配的行：" & cell.Row
        End If
    Next cell
End Sub

Sub SortRows()
    Dim rng As Range
    
    Set rng = Range("A1:C10") '要排序的范围
    
    rng.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes
End Sub