將值複製到多個工作表

-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中的值命名。 –

將值複製到多個工作表

回答

相關問題