Excel VBA：更新所有工作表的格式

我通读了一些在线教程，并使用macroslogging来学习如何设置格式。 但我想知道有没有办法做到以下几点，没有使用。select？ 或程序员的首选方式是什么？

简单macros的要求：

1. 遍历所有工作表（仅可见）
2. 将粗体格式设置为首行，并将背景设置为灰色
3. 将select重置为A1位置

（）

Sub SetAllTopRowBold() Dim ws As Worksheet On Error Resume Next For Each ws In ThisWorkbook.Worksheets If ws.Visible Then ws.Activate Rows(1).Select Selection.Font.Bold = True Selection.Interior.Color = RGB(190, 190, 190) Range("A1").Select End If Next ws End Sub 

Answer 1

你可以直接对范围对象进行操作：

 For Each ws In ThisWorkbook.Worksheets If ws.Visible Then ws.Rows(1).Font.Bold = True ws.Rows(1).Interior.Color = RGB(190, 190, 190) ws.Select ws.Range("A1").Select End If Next ws