如何在excel中用vba从包含行索引的数组中选择特定行

Sub SelectRowsFromArray()
    Dim rowIndexArray As Variant
    Dim selectedRows As Range
    Dim i As Long
    
    ' 定义包含行索引的数组
    rowIndexArray = Array(2, 4, 6, 8)
    
    ' 选择特定行
    For i = LBound(rowIndexArray) To UBound(rowIndexArray)
        If selectedRows Is Nothing Then
            Set selectedRows = Rows(rowIndexArray(i))
        Else
            Set selectedRows = Union(selectedRows, Rows(rowIndexArray(i)))
        End If
    Next i
    
    ' 将选定的行高亮显示
    selectedRows.Select
    selectedRows.Interior.Color = RGB(255, 255, 0)
End Sub