質問: エクセルのマクロにて質問です。 マクロ初心者で、質問内容に不備があるかもしれませんが、以下の内容で作業の自動化は出来ませんか? A列:品名入力 B列:個数入力 D1:品名出力 D2:品名出力 D3:品名出力 ・ ・ ・ 例ですが、 A列:りんご B列:5 とすれば、 D1:りんご D2:りんご D3:りんご D4:りんご D5:りんご となるように、D列にB列に入力した個数分表示したいです。
回答: こんな感じ? Sub test1() Dim i As Long, j As Long, k As Long, D() For i = 2 To Cells(Rows.Count, 1).End(xlUp).row For j = 1 To Cells(i, 2) ReDim Preserve D(k) D(k) = Cells(i, 1) k = k + 1 Next Next Cells(2, 4).Resize(UBound(D) + 1) = Application.Transpose(D) End Sub