Sub テスト() 'シート名の変数宣言 Dim シート名 As Worksheet Set ws = Worksheets("Sheet1") 'B列をC列にコピーする Range("C2:C11").Value = Range("B2:B11").Value 'D列をE列にコピーする Range("E2:E11").Value = Range("D2:D11").Value '11行目から14…