VBA 将Excel工作簿中所有表格进行一键排版

你可以使用 VBA 编写一个宏来对 Excel 工作簿中的所有表格进行排版。以下是一个简单的示例代码：

Sub FormatAllSheets()
    Dim ws As Worksheet
    
    For Each ws In ActiveWorkbook.Sheets
        ws.Select
        Cells.Select
        Selection.Columns.AutoFit
        Selection.Rows.AutoFit
        With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
            .WrapText = True
            .Font.Name = "Arial"
            .Font.Size = 10
        End With
    Next ws
End Sub

这个宏会遍历当前活动的工作簿中的所有工作表，并对它们进行自适应列宽和行高、水平和垂直居中、自动换行、字体设置等排版操作。你可以根据需要进行自定义修改。然后在 VBA 编辑器中将这段代码复制粘贴到一个新的模块中，保存并运行即可。