将单元格区域复制到集合中所有其他工作表的同一位置？

• FillAcrossSheets 方法 (Excel)

将单元格区域复制到集合中所有其他工作表的同一位置。

语法

FillAcrossSheets(Range, Type)

参数

名称	必需/可选	数据类型	说明
Range	必需	Range	要填充到集合中所有工作表上的单元格区域。该区域必须来自集合中的某个工作表。
Type	可选	XlFillWith	指定如何复制区域。

备注（XlFillWith种类）：

名称	值	描述
xlFillWithAll	-4104	复制内容和格式。
xlFillWithContents	2	只复制内容。
xlFillWithFormats	-4122	只复制格式。

例1：

本示例用工作表 Sheet1 上 A1:A5 单元格区域的内容填充工作表 Sheet2 和 Sheet3和Sheet4 上的相同区域。

Sub test()Dim targetArea '目标工作表数组targetArea = Array('Sheet1', 'Sheet2', 'Sheet3', 'Sheet4')Sheets(targetArea).FillAcrossSheets Worksheets('Sheet1').Range('A1:A5')End Sub

执行后结果

例2：

本示例用工作表 Sheet1 上 A1:A5 单元格区域的格式填充工作表 Sheet2 和 Sheet3和Sheet4 上的相同区域。

使用Type参数

Sub test()Dim targetArea '目标工作表数组targetArea = Array('Sheet1', 'Sheet2', 'Sheet3', 'Sheet4')Sheets(targetArea).FillAcrossSheets Range:=Worksheets('Sheet1').Range('A1:A5'), Type:=xlFillWithFormatsEnd Sub

执行后结果