A列の最終行まで繰り返し,横はB~Mが空欄になるまで
- B~M : サイズ入力 1個~10個
- M~V: 金額入力 1個~10個
がされています
- B2&M2 → XS:1000
- C2&N2 → S:1100
と言うように X 以降に入力すると言う作業を繰り返したい
処理
Sub 最終行空欄列まで繰り返し()
Dim i, t, m, x As Integer
For t = 2 To Cells(Rows.Count, "A").End(xlUp).Row 'Aの最終行まで
m = 13 'M価格
x = 24 'X入力
i = 2
Do Until Cells(t, i) = "" 'サイズが空欄になるまで
Cells(t, x) = Cells(t, i) & ":" & Cells(t, m)
x = x + 1
m = m + 1
i = i + 1
Loop
Next
End Sub