将单元格区域复制到集合中所有其他工作表的同一位置。 语法 FillAcrossSheets(Range, Type) 参数
备注(XlFillWith种类):
例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 执行后结果 使用Type参数
执行后结果 |
|
来自: hercules028 > 《VBA》