如何在所有工作表的特定单元格中写入相同的信息？

Question

我有一个大约有 50 张纸的 Excel 文件，我在数据的开头插入了一行。现在我想写变量名。例如：在单元格中A1我想写"code"，在B1我想写"price"，依此类推直到F1。

我想对所有 Excel 工作表同时执行此操作。

我尝试使用此代码：

Sub mycode()

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    Range("A1") = "code"
    Range("B1") = "denom"
    Range("C1") = "location"
    Range("D1") = "area_m2"
    Range("E1") = "price_$m2"
    Range("F1") = "zoning"
Next

End Sub

问题是我只得到了活动工作表的名称。我想要我的工作簿中所有工作表的名称。

你能建议一些修改吗？

提前致谢！

Answer 1

替代程序

我想使用以下FillAcrossSheets方法演示@BigBen 的有效答案的替代方法：

Sub FillHeaders(rng As Range, arr)
    rng = arr: Sheets.FillAcrossSheets rng
End Sub

示例调用

    FillHeaders Sheet1.Range("A1:F1"), Array("code", "price", "foo", "bar", "test2", "test3")