|
返信ありがとうございました!!!
バッチリです、これで業務がかなり改善出来ます。
もっとVBA勉強します。
本当にありがとうございました。
▼マナ さん:
>▼猫ママ さん:
>
>配列を使わないほうが、わかりやすかったですね。
>
>Sub test2()
> Dim r As Range
> Dim j As Long, k As Long, i As Long
> Dim 名前 As String, 商品 As String
> Dim n As Long
>
> Set r = Worksheets("1").Cells(1).CurrentRegion
>
> For j = 2 To r.Rows.Count
> 名前 = r.Cells(j, 1).Value
> For k = 2 To r.Columns.Count
> 商品 = r.Cells(1, k).Value
> For i = 1 To r.Cells(j, k).Value
> n = n + 1
> Worksheets("2").Cells(1, n).Value = 商品
> Worksheets("2").Cells(2, n).Value = 名前
> Next
> Next
> Next
>
>End Sub
|
|