Excel 将值复制到多个工作表

我在主工作表中有一列值要复制到特定单元格中的多个工作表。每个单元格值复制到每张图纸一次，并重复625次。我在母版图纸中有一列值（A2到A626），可以复制到特定单元格中的多张图纸。A2被复制到第2页，单元格R4。重复此操作，直到A626复制到活页626单元格R4。包含A2至A626数据的表是“唯一的”

我已经从另一个网站上删除了这段代码，但它并没有达到我的预期效果。 子复制粘贴数据（） 将strSourceSheet设置为字符串 作为字符串的Dim STRDETINATIONSHEET 最后一排一样长

strSourceSheet = "Unique"

Sheets(strSourceSheet).Visible = True
Sheets(strSourceSheet).Select

Range("A2").Select
Do While ActiveCell.Value <> ""
strDestinationSheet = ActiveCell.Value
Selection.Copy
Sheets(strDestinationSheet).Visible = True
Sheets(strDestinationSheet).Select
lastRow = LastRowInOneColumn("R")
Cells(lastRow + 1, 0).Select
Selection.PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets(strSourceSheet).Select
ActiveCell.Offset(0, 2).Select
ActiveCell.Offset(1, 0).Select
Loop

strSourceSheet=“唯一”
工作表（strSourceSheet）。可见=真
工作表（strSourceSheet）。选择
范围（“A2”）。选择
当ActiveCell.Value“”时执行此操作
strDestinationSheet=ActiveCell.Value
选择，复制
工作表（strDestinationSheet）。可见=真
工作表（标准工作表）。选择
lastRow=LastRowInOneColumn（“R”）
单元格（lastRow+1，0）。选择
Selection.Paste特殊XLPaste值
Application.CutCopyMode=False
工作表（strSourceSheet）。选择
ActiveCell.Offset（0，2）。选择
ActiveCell.Offset（1，0）。选择
环

您提供的细节很少，因此我将给您一些一般提示

要从特定工作表访问（设置或获取）特定单元格的值，可以使用以下语法：

工作表（“sheetName”）.单元格（行，列）.Value

（

行

和

列

是整数，指定单元格的行和列），因此，要将值从工作表“Sheet1”的单元格C4粘贴到工作表“Sheet2”的单元格B3，您应该编写：

工作表（“Sheet2”）.单元格（3,2）.值=工作表（“Sheet1”）.单元格（4,3）.值

此外，您可以使用整数（1-第一个工作表等）而不是名称访问工作表，这样您可以使用循环遍历每个工作表：

工作表（i）.单元格（行，列）.Value

，其中

i

，

行

，

列

为整数

咨询OP后，代码应如下所示：

Sub CopyToMultipleSheets()
Dim i As Long

For i = 2 To 626
    'cell A2 will be referenced to as Cells(2, 1).Value
    'generally Ai cell is Cells(i, 1)
    'R4 cell is Cells(4, 18)
    Worksheets(i).Cells(4, 18).Value = Worksheets("unique").Cells(i, 1).Value

Next i

End Sub

---

请添加一些代码来解释您已经尝试过的内容。谢谢您，Michal。由于我是一名宏初学者，您能帮我编写代码吗？嗨，Michal，我在母版工作表中有一列值（A2到A626），可以复制到特定单元格中的多个工作表中。A2被复制到第2页，单元格R4。重复此操作，直到A626复制到活页626单元格R4。谢谢：）我已经用A2到A626中的值创建和命名了所有626张图纸。嗨，Michal，发生的事情是A2到A626列的值没有被复制，但数字值2到626被复制。包含A2至A626数据的工作表是“唯一的”，包含A2至A626数据的工作表是“唯一的”