将值复制到多个工作表

-1

我在主表中有一列值要复制到特定单元格中的多个工作表。每个单元格值被复制到每个表单一次，并重复625次。我在主表单中有一列值（A2到A626）以复制到特定单元格中的多个工作表。 A2被复制到工作表2，单元格R4。重复这一操作直到A626被复制到工作表626，单元格R4。包含A2到A626数据的工作表是“唯一的”将值复制到多个工作表

我已经从另一个站点解除了此代码，但它并未达到我的预期。子copyPasteData（）昏暗strSourceSheet作为字符串昏暗strDestinationSheet作为字符串昏暗LASTROW只要

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

来源

2017-08-07 chia chiang tan

请添加一些代码，说明你已经尝试过。 – EFrank

到目前为止您尝试过什么？ –

你提供了非常小的细节，所以我会给你一些提示。

访问（设置或获取）从可使用以下语法特定片的特定单元格的值： Worksheets("sheetName").Cells(row, col).Value（row和col是整数，指定的小区的行和列），所以为了粘贴值从工作表“Sheet1”的单元格C4中的工作表“工作表2”到单元格B3，您应该写入： Worksheets("Sheet2").Cells(3, 2).Value = Worksheets("Sheet1").Cells(4, 3).Value。

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

Worksheets(i).Cells(row, col).Value，其中i，row，col是整数。

与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

来源

2017-08-07 08:01:21

谢谢Michal。由于我是宏观的初学者，你可以帮我编写代码吗？ –

您好Michal，我有一列值（A2到A626）在主表中复制到特定单元格中的多个工作表。 A2被复制到工作表2，单元格R4。重复这一操作直到A626被复制到工作表626，单元格R4。谢谢:) –

我已经创建了所有626张图片，并按A2到A626中的值命名。 –

将值复制到多个工作表

回答

相关问题