使用VBA在PowerPoint表格中选择多行/多列

Sub SelectMultipleRowsColumns()
    Dim tbl As Table
    Dim rng As Range
    
    ' 获取当前选定的表格
    Set tbl = ActiveWindow.Selection.ShapeRange(1).Table
    
    ' 选择多行
    tbl.Rows(1).Select ' 选择第一行
    tbl.Rows(2).Select ' 选择第二行
    ' 可以根据需要选择更多行
    
    ' 选择多列
    tbl.Columns(1).Select ' 选择第一列
    tbl.Columns(2).Select ' 选择第二列
    ' 可以根据需要选择更多列
    
    ' 清除选择
    Set rng = Nothing
End Sub