ML089

Äæ¼e¤Î®æ¦¡½Æ»s¥i¥H¨Ï¥Î "¿ï¾Ü©Ê¶K¤W"¡A¤Ä¿ïÄæ¼e¤Î®æ¦¡
¥i¥H¿ý»s¥¨¶°¦p¤U

Sub ½Æ»s§tÄæ¼e¤Î®æ¦¡()
    Dim rSou As Range, rTar As Range
    Set rSou = Sheets("Sheet8").Range("A1:D17")
    Set rTar = Sheets("sheet2").Range("G6")
    rSou.Copy rTar
    With rTar
        rSou.Copy
        .PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
                      SkipBlanks:=False, Transpose:=False
        .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
                      SkipBlanks:=False, Transpose:=False
    End With
End Sub