Excel 2013でのコピーと貼り付け

シート2のセルH47をシート500にコピーしてから、シート1に貼り付けます（シート2 H47のA2）。Sheet3 H47のA3。Sheet4 H47のA4。Sheet5 H47のA5 .... Sheet500 H47のA500

あなたの質問を理解したら、VBAで次のことができます。

Sub CopyToManySheets
Dim copyRng as Range
Set copyRng = Range ("Sheet2!$H$47")
copyRng.select
Selection.copy
Dim index as integer
For index = 1 to 500
If Not (IsError (Range ("Sheet" & index & "!A" & index))) Then
Range ("Sheet" & index & "!A" & index).Select
Selection.Paste
Else
End if
Next
Set copyRng = Nothing
Exit Sub