Excelマクロ 空欄になるまで繰り返し入力

A列の最終行まで繰り返し,横はB~Mが空欄になるまで

  • B~M :  サイズ入力 1個~10個
  • M~V: 金額入力  1個~10個

がされています

  1. B2&M2  → XS:1000
  2. 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

タイトルとURLをコピーしました