使用するデータは A-001 です。
課 題
1～320番台の玉単価をP列に、玉粗利をQ列に表示させて下さい。
（少数点の設定は、セルに設定していますので今回は考えなくて大丈夫です）
解 答
以下でも大丈夫です。
こちらは列が数値ではなくアルファベット表記になっているため可読性が高いです。
解 説
繰り返し処理のため、「For～Nextステートメント」を使用します。
開始行が2、終了行が321 ですので For i = 2 To 321 となります。
このファイルは、シート数が1つですのでシート名の指定は無しでも問題ありません。
シート名を指定する場合は、
Worksheets(“Sheet1”).Cells(・・・ 又は Sheets(“Sheet1”).Cells(・・・
として下さい。