複数のワークシートへの値のコピー

Question

マスターシートには、特定のセルの複数のシートにコピーする値の列が1つあります。各セルの値は各シートに1回コピーされ、625回にわたって繰り返されます。特定のセルの複数のシートにコピーするために、マスターシートに1列の値（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 

Answer 1

は、あなたは非常に少ないの詳細を提供するので、私はあなたにいくつかの一般的なヒントを与えるだろう。アクセスするには

あなたは、次の構文を使用することができ、特定のシートから特定のセルの値を（設定または取得）： Worksheets("sheetName").Cells(row, col).Value（rowとcolは、行とセルの列を指定して、整数である）、値を貼り付けるためになりますシート "Sheet1"からセルC4のシート "Sheet2"からセルB3に移動します。 Worksheets("Sheet2").Cells(3, 2).Value = Worksheets("Sheet1").Cells(4, 3).Value。

Worksheets(i).Cells(row, col).Value、i、row、colは次のとおり、名前ではなく、あなたがすべてのシートを通過するループを使用することができますこの方法を - （など最初のシート、1）

また、あなたはシート使用して整数にアクセスすることができます整数。

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