更改所有工作表的单元格

Question

我有一本Excel工作簿，里面有一张叫做公司位置的工作表。在A栏的每一行都有不同的名称，例如A:1是“公司A”，2是“公司B”等等。

然后，我创建了20个工作表作为模板，但我需要将每个工作表上的单元格A:2更改为A1和A20之间的下一个单元格。

因此，工作表2单元格A2应该是“公司”工作表单元格A1中列出的名称。然后，工作表3单元格A2应该是“公司工作表单元格A2”上列出的名称，等等。

有什么想法吗？

Answer 1

下面的密码对我有用。

Option Explicit
Sub work()
Dim company As Worksheet
Dim i As Integer
Set company = Worksheets("company")
For i = 1 To 20
    Sheets(ActiveSheet.Index + 1).Activate
    Range("A2") = company.Cells(i, 1)
Next i
End Sub

我称第一个工作表为“公司”，在第一个工作表之后正好有20个工作表。

Answer 2

就像这样。

    Dim lRow As Long
    Dim ws As Excel.Worksheet
    Dim wsTarget as Excel.Worksheet

    Set ws = ActiveWorkbook.Sheets("company location")
    ws.Activate

    'Loop through the rows
    lRow = 1
    Do While lRow <= 20

        'Set the target sheet to the next worksheet
        set wsTarget = ActiveWorkbook.Sheets("Sheet" & lRow + 1)

        'Write the value from the company sheet
        wsTarget.Range("A" & lrow + 1).Value = ws.Range("A" & lRow).Value

        lRow = lRow + 1
    Loop