Изменение ячеек всех листов

Question

У меня есть книга Excel с одним листом, называемым местоположением компании. Он имеет разные имена в каждой строке в столбце A. Например, A: 1 - «Компания A» A: 2 - «Компания B» и т. Д.

У меня тогда есть 20 рабочих листов, которые я создал в качестве шаблона но мне нужно изменить ячейку A: 2 на каждом листе на следующую ячейку в диапазоне между A1 и A20.

Таким образом, листы 2-й ячейки A2 должны быть названы в листе «Компания» Sheet A1. Затем ячейка A3 листа 3 должна быть названием, указанным в «Листе данных компании 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