Question

如何有效地增加整个Excel工作表上每个单元格的字体大小？当我使用foreach循环时，excel没有响应。

Answer 1

试试这个Sub：

  Sub IncreaseFontSize()    
     ActiveSheet.Cells.Font.Size = 14
  End Sub

...只需将大小更改为您想要的任何内容。

Answer 2

不需要VBA（除非当然是另一个宏的一部分）：

只需选择所有工作表（激活第一个工作表，然后按 Shift 并选择最后一个工作表），然后选择所有单元格（ Ctrl - A ）并在Home标签的字体大小下拉列表中输入所需的字体大小，或使用“增加字体大小”按钮。