如果要通过VBA处理若干工作表上相同位置的单元格区域，可用Array函数作为辅助，选定两张或多张工作表。
如下代码的功能是：设置三维单元格区域的边框格式
Sub FormatSheets()
Sheets(Array("Sheet2", "Sheet3", "Sheet5")).Select
Range("A1:H1").Select
Selection.Borders(xlBottom).LineStyle = xlDouble
End Sub
如下代码功能是：
应用FillAcrossSheets方法，在活动工作簿中，将 Sheet2 上的单元格区域的格式和任何数据复制到该工作簿中所有工作表上的相应区域中。
Sub FillAll()
Worksheets("Sheet2").Range("A1:H1").Borders(xlBottom).LineStyle = xlDouble
Worksheets.FillAcrossSheets (Worksheets("Sheet2").Range("A1:H1"))
End Sub