VBA 调整文档中所有表格行高

VBA (Visual Basic for Applications) 是Microsoft Office套件中的宏语言，可以用于自动化Excel等应用程序的操作。如果你想要调整文档中所有表格的所有行高，你可以编写一段简单的VBA代码来实现这个任务。以下是一个基本示例：

Sub AdjustAllTableRowsHeight()
    Dim ws As Worksheet
    Dim tbl As ListObject ' 表格对象
    Dim rng As Range
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        If ws.ListObjects.Count > 0 Then ' 检查是否有表格
            For Each tbl In ws.ListObjects
                ' 设置初始行高
                tbl.Range.RowHeights = 18 ' 这里假设你想要设置的行高为18磅，可以根据需要修改
                
                ' 更新表格范围内的所有行高度
                rng = tbl.Range.Resize(tbl.Range.Rows.Count - 1, 1)
                rng.RowHeights = tbl.Range.RowHeights ' 保持表格内外的行高一致
            Next tbl
        End If
    Next ws
End Sub

将上述代码复制到VBA编辑器（`Developer`选项卡 -> `Visual Basic`），然后运行这个宏，它会自动调整每个工作表中所有表格的行高。