| |
いつもお世話になっております。
シートに横並びに同じカテゴリの項目が入っており、
E列でそのカテゴリが何個あるのか数えています。
そしてその個数分縦に並べ直したい、というものです。
ただ、まだ縦に並べる前の段階、
コピーして挿入という箇所すら出来てません、
E列 F列 G列 H列
1行目 3 いちご みかん メロン
2行目 2 バナナ すいか
3行目 0
4行目 1 もも
↓
E列 F列 G列 H列
1行目 3 いちご
2行目 3 みかん
3行目 3 メロン
4行目 2 バナナ
5行目 2 すいか
6行目 0
7行目 1 もも
−−
Dim 数 As Long, i As Long
最終行 = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
On Error Resume Next
For 変数● = 最終行 To 1 Step -1
数 = Worksheets("Sheet1").Range(変数●, 5)
For i = 0 To 数 - 1
Worksheets("Sheet1").Rows(変数●).Copy
Worksheets("Sheet1").Rows(変数● + 1).Insert
Next i
Next 変数●
On Error GoTo 0
−−
どのようにしたら動きますでしょうか？
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
