Sub 文字や数字の入力()
Range("B2") = "No"
Range("C2") = "品名"
Range("D2") = "数量"
Range("B3") = "1"
Range("B4") = "2"
Range("B5") = "3"
Range("B6") = "4"
Range("B7") = "5"
Range("C3") = "りんご"
Range("C4") = "みかん"
Range("C5") = "イチゴ"
Range("C6") = "バナナ"
Range("C7") = "ぶどう"
Range("D3") = "4"
Range("D4") = "5"
Range("D5") = "2"
Range("D6") = "7"
Range("D7") = "3"
Range("D8").Select
End Sub |