[[20200630145201]]　『VBA　不規則なデータの並べ替え』（ちょん丸）　ページの最後に飛ぶ

『VBA　不規則なデータの並べ替え』（ちょん丸）

      A            B           C      D             E
1     ID       ロケーション  個数    型番           行
2  お菓子福袋-1  O-04-01       2   ジュース         2
3                2A-09-11      2   スナック-カレー	
4                2B-03-25      2   スナック-BBQ
5  お菓子福袋-2  5E-01-13      1   キャンディー     2
6                5E-01-13      1   キャンディー
7                5E-01-13      1   キャンディー
8  お菓子福袋-3  2G-02-31      3   板チョコ         4
9                2G-03-35      3   チョコ	
10               2G-02-32      3   チョコバー	
11               2H-02-35      3   チョコ-アソート
12               2G-03-31      3   イチゴチョコ
13 お菓子A       5E-01-32      5   グミ             0
14 お菓子B       2B-02-71      2   せんべい         0
15 お菓子C       4H-03-37      10  マシュマロ       0
16 お菓子福袋-4  2H-02-25      8   ラスク           4
17               2H-02-22      8   クッキー
18               2G-02-23      8   ラムネ
19               2H-02-21      8   ゼリー
20               2G-03-23      8   ガム

上記のようなデータがあり、
A列のお菓子福袋-※、（※は数字）に付随してるBCD列をB列優先で昇順で並べ替えを順次行いたいのですが、
とっかかりすらわからない状態です。

上記データであれば、
B2:D4 選択して並べ替え、次にB5:D7 選択並べ替え、B8:D12 選択並べ替え、B16:D20　を並べ替え
という風にしていきたいのですが、データの行数やお菓子福袋の場所が毎回変わる為
現在は1つづつ手作業で並べかえしてる状態です。

＜使用 Excel：Office365、使用 OS：Windows10 ＞

とっかかり

 Sub test()
    Dim tbl As Range
    Dim a As Range

    Set tbl = Cells(1).CurrentRegion

    For Each a In tbl.Columns(1).SpecialCells(xlCellTypeBlanks).Areas
        MsgBox a.Resize(a.Count + 1, 4).Offset(-1, 1).Address
    Next

 End Sub

（マナ） 2020/06/30(火) 19:09

とっかかり　ありがとうございます！！
CurrentRegion　こんなのあるんですね。
ちょっと頑張ってみます。

（ちょん丸） 2020/07/01(水) 11:26

できました！
マナさん　ありがとうございました。
（ちょん丸） 2020/07/03(金) 08:14

コメント返信：

[ 一覧(最新更新順) ]

[[20200630145201]] 『VBA 不規則なデータの並べ替え』（ちょん丸） ページの最後に飛ぶ

[[20200630145201]]　『VBA　不規則なデータの並べ替え』（ちょん丸）　ページの最後に飛ぶ