调整整个工作簿中的所有行

Question

我收到了超过100张的工作簿。由于某些我无法理解的原因，我检查过的每张纸中的所有行都已设置好，因此行的高度为4.5，因此无法看到那么多内容。对于所有工作表中的所有单元格，字体大小也已设置为2.

是否有办法（如果可能，不使用VBA）一次调整工作簿中每个工作表中所有行的单元格高度和所有单元格的字体？

在单张纸上很容易，但我不想再重复100次。如果有必要，VBA解决方案也会受到高度赞赏，但我更喜欢另一个。

Answer 1

也许像VBA这样的东西会有所帮助。

Sub reformat()
  Dim ws As Worksheet
  For Each ws in Sheets
    ws.Cells.Font.Name="Arial"
    ws.Cells.Font.Size=10
    ws.Columns.AutoFit
    ws.Rows.AutoFit
  Next
End Sub