配列上の切り取り(Cut)・挿入(Insert)の行う方法について

Question

●冒頭
オブジェクト上での処理方法であれば、正常動作できていることは確認済

●課題点
オブジェクト上での処理となるためデータ量が多ければ多いほど処理時間が要している

●対策点
オブジェクトでの処理でなく、配列を用いて処理時間を短縮することを目標
指定範囲を配列格納 ➡ 配列上で処理 ➡ 指定範囲へ配列の出力
といった方法で処理を模索中

上記の対策点にある配列上での処理において、オブジェクト上での処理で言う切り取り(Cut)と挿入(Insert)のやり方が分からず詰まっております。

そもそも配列上での切り取り(Cut)と挿入(Insert)の概念があるのか知識不足のため、
自分なりにネット上で検索してみたのですがこれといったページが見つからず解決に至っておりません。

また配列上での処理以外にも他に最善のやり方がございましたら、
アドバイス頂けると幸いです。

また下記にて自分なりに作成したコードとイメージ図を記載いたしますので、
よろしくお願いいたします。

Sub sample1()
'---------------------------------------------------------------
Dim wb As Workbook
Set wb = ThisWorkbook

Dim ws As Worksheet
Set ws = wb.Sheets("メイン")
'---------------------------------------------------------------

With ws

    Dim i, j, x
    For i = .Cells(Rows.Count, "A").End(xlUp).Row To 3 Step -1
    
        If .Cells(i, "D") = "●" Then
        
            x = Cells(i, "C").Value
            .Range(i & ":" & i).Cut
                   
            For j = Cells(Rows.Count, "A").End(xlUp).Row To 3 Step -1
            
                If .Cells(j, "C").Value Like x Then
                    Rows(j + 1).Insert
                    Exit For
                End If
            Next j
        End If    
    Next i
            
End With
End Sub

Sub sample2()
'---------------------------------------------------------------
Dim wb As Workbook
Set wb = ThisWorkbook

Dim ws As Worksheet
Set ws = wb.Sheets("メイン")
'---------------------------------------------------------------

With ws

    Dim lRow
    lRow = .Cells(Rows.Count, "A").End(xlUp).Row'最終行取得
    
    Dim TB
    TB = .Range("A3:D" & lRow)'配列格納

    Dim i, j, x
    For i = UBound(TB, 1) To 3 Step -1
    
        If TB(i, 4) = "●" Then'●の有無判別
        
            x = TB(i, 3)
            TB(i).Cut
                   
            For j = UBound(TB, 1) To 3 Step -1
            
                If TB(j, 3) Like x Then
                    TB(j+1).Insert
                    Exit For
                End If
            Next j
        End If
    Next i
    
   .Range("A3:D" & lRow) = TB

End Sub

Answer 1

Excelのソート機能で、PHASE・備考・No. の順で並び替えるのでは駄目ですか？

Comments

[doggyman10]

質問内容は分かりやすく・回答頂くためにシンプル化させたものを記載しているのですが、
実際は他にもいくつかの列項目があり、イメージ図1(処理前)の過程までにSortを利用して自分で設定した並び順に直しています。列項目が増えた場合でも同様のようにうまくいきますでしょうか?
個人的に何度かか試してみたのですが意図した並び順になりませんでした。
※再度画像記載致しましたので、是非ご確認頂けると助かります。

現状私が振り絞ったアイデアの場合・・・
①備考欄に"●"が入力されていたらその行ごと切り取り・PHASEを変数格納
②変数をPHASEの列を下から検索ループして一致したらその下の行に挿入
といった流れを思いついたのですが、Cut・Insertを繰り返しとなると処理時間が掛かってしまうため解消策を探している最中となります。

[jinoji]

PHASE、備考、GROUP1，GROUP2，RANKの順になればいいのでしょうか。

Answer 2

VBAの場合、配列の指定した要素を削除したり、挿入したりする直接的な命令はありません。
今回の場合、一旦別の配列にデータを退避するしかないかと。

配列の扱いについては以下、ご参考まで。
https://dailyrecords.blog/archives/13862

Comments

[doggyman10]

なんでもかんでもオブジェクト上で出来ることが
全て配列上でもどうようの命令ができるというわけでないということですね。

また頂いた参照URL当初自分で検索した際も(VBA 配列 Insert で検索したら出た記憶が)
同様のサイトを見つけまして、参考になりそうでならないかな・・・とスルーしておりました。
改めて頂いたURLを踏まえて確認させていただきます。

ご丁寧にありがとうございます。