☰

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

tag-icon • tag-icon copy-paste
Excel 2013 でのコピーと貼り付け

シート 2 のセル H47 をシート 500 にコピーし、シート 1 に貼り付けるにはどうすればよいでしょうか。シート 2 の場合は A2 が H47、シート 3 の場合は A3 が H47、シート 4 の場合は A4 が H47、シート 5 の場合は A5 が H47 です。シート 500 の場合は A500 が H47 です。

答え1

あなたの質問を理解しているなら、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

関連情報