質問者が納得標準モジュールです
該当シートをアクティブにしてマクロを実行してください
F1 にグループ1
K1 にグループ2・・・となります
シートごとに分けて抽出がよければ、補足してください
-------------------------------------------------------------------
Sub test()
Dim sh As Worksheet
Dim i As Long
Dim ii As Long
Dim iii As Long
Dim cnt As Long
Dim...