別シートの一定範囲を、コピーするマクロ

もしも、
SHEET1の　セルA１の値が、１であったら、

SHEET２の、B3からB8までを、
SHEET１の　B3からB８の範囲にコピーする

・・・というマクロの書き方を教えてください。

if thenなどの、基本は行けるのですが、
【ほかのシートの、この範囲を参照する…】という部分で苦労しています。

どうぞ、よろしくお願いいたします。

No.1 ベストアンサー 回答者： jmuiny 回答日時： 2016/11/09 08:24

その部分だけ、そのまま書くと下記です。

If Worksheets("Sheet1").Range("A1").Value = 1 Then
Worksheets("Sheet2").Range("B3:B8").Copy Destination:=Worksheets("Sheet1").Range("B3")
End If


ですが、シートを定義した書き方を覚えた方がいいと思いますので、サンプルを書いておきます。

Sub Sample()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")
With sh1
If .Range("A1").Value = 1 Then
sh2.Range("B3:B8").Copy Destination:=.Range("B3")
End If
End With
End Sub

この回答へのお礼

とても助かりました。
どうも、ありがとうございます！

お礼日時：2016/11/09 20:01