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

我已经发了100多张工作簿。 出于某种原因，我无法理解，我检查过的每张表中的所有行都已经被设置，因此行的高度是4.5，因此不可能看到那么多的内容。 对于所有工作表中的所有单元格，字体大小也被设置为2。

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

单张纸很容易做，但我不想重复100次以上。 如果需要VBA解决scheme也将不胜感激，但我更喜欢另一个。

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