将值从工作表"datastore" A1复制到工作表"1" D4..."datastore" A2到工作表"2"等等

Question

我在一个工作表上有一个列表，它被称为"数据存储"，大约有180个值。同一个excel文件有大约180张表，名称为"1"、"2"、"3"。。。"180"。我想将值A1从"数据存储"复制到表"1"D4，将值A2从"数据存储器"复制到表格"2"D4，A3从"数据储存"复制到附表"3"D4，依此类推。从"数据存储"到表"1"单元格D6的值B1，依此类推

我尝试了一个for循环：

Sub CopyPasteMacro()
Dim iCounter As Integer
Dim iCounterString As String
Dim iCounterStringA As String
For iCounter = 1 To 180
iCounterStringA = "A" + CStr(iCounter)
iCounterString = CStr(iCounter)

Worksheets("datastore").Range(iCounterStringA).Value = 
Worksheets(iCounterString).Range("D4").Value
Next iCounter
End Sub

它告诉我"索引超出有效范围">

我是VBA的初学者有人能帮我吗？

Answer 1

假设所有的工作表都存在。

Sub CopyValue()
For i = 1 To 180
Worksheets(CStr(i)).Range("D4").Value = Worksheets("datastore").Range("A" & i).Value
Next
End Sub