マージソートでソート済みの数値が出力されない。(VBA)

Question

前提・実現したいこと

マージソートでソート済みの数値を出力したいです。

発生している問題・エラーメッセージ

エラーはございません。

該当のソースコード

Option Explicit

Dim A() As Variant     '配列Aをグローバル変数にしました
Dim n As Long          'n個の配列Aを作る
Dim L() As Variant     
Dim R() As Variant
Dim cnt As Long        'ファンクションmergeにおける比較回数の総数

'得られた2つのソート済み部分配列をmergeにより「統合」
Function merge(A() As Variant, n As Long, left As Long, mid As Long, right As Long)
    Dim n1 As Long
    Dim n2 As Long
    Dim i As Long
    Dim j As Long
    Dim k As Long
        
    n1 = mid - left
    n2 = right - mid
    
    ReDim L(mid - left)
    ReDim R(right - mid)
    
    For i = 0 To n1 - 1
        L(i) = A(left + i)
    Next i
    For i = 0 To n2 - 1
        R(i) = A(mid + i)
    Next i
    
    i = 0
    j = 0
    For k = left To right - 1
        cnt = cnt + 1
        If L(i) <= R(i) Then
            A(k) = L(i + 1)
        Else
            A(k) = R(j + 1)
        End If
    Next k
    Erase L
    Erase R
End Function


'指定されたn個の要素を含む部分配列をそれぞれn/2の要素を含む2つの部分配列に分割する
'その2つの部分配列をそれぞれmergeSortでソートする
Function mergeSort(A() As Variant, n As Long, left As Long, right As Long)
    If (left + 1) < right Then
        Dim mid As Long
        mid = (left + right) / 2
        Call mergeSort(A, n, left, mid)
        Call mergeSort(A, n, mid, right)
        Call merge(A, n, left, mid, right)
    End If
End Function

Sub main()
    Dim i As Long
        
    cnt = 0
    
    A = Array(8, 5, 9, 2, 6, 3, 7, 1, 10, 4)
        
    n = UBound(A) + 1
    
    Call mergeSort(A, n, 0, n)
    
    For i = 0 To UBound(A)
       Debug.Print A(i)
    Next
    
    Debug.Print cnt
End Sub

試したこと

ヴァリアント型の配列Aをグローバル変数にしました。そうすることでmergeSortでソートされた配列AがDebug.Printで表示されると思ったのですが上手くいきませんでした。

補足情報（FW/ツールのバージョンなど）

変数cntはmergeファンクションにおける比較回数の総数を表しています。
Microsoft Excel 2016

Comments

[episteme]

> 上手くいきませんでした

なにが/どのように"上手くいきませんでした"なのか、説明してください。

[whitehorse85921]

epsteme様
ありがとうございます。
配列変数Aをグローバル変数にすれば変数の適用範囲が広がりファンクションmergeSortやファンクションmergeでの配列変数Aの処理をmainに渡せると思いました。でもmergeにおけるっ比較回数は上手く表示されるのですが、「ファンクションmergeSortでソートされた数値」が全く表示されませんでした。

[episteme]

> 配列変数Aをグローバル変数にすれば変数の適用範囲が広がりファンクションmergeSortやファンクションmergeでの配列変数Aの処理をmainに渡せると思いました。

そのアイデアが正しいか、確認しましたか?

[whitehorse85921]

episteme様
ありがとうございます。
デバッグするとファンクションmergeの
For k = left To right - 1
cnt = cnt + 1
If L(i) <= R(i) Then
A(k) = L(i + 1)
Else
A(k) = R(j + 1)
End If
Next k
のところで A(k) = L(i + 1)もA(k) = R(j + 1)も共にempty値になってしまいます。

Answer 1

mergeの処理が間違っているのでL,Rにそれぞれどんな値が入ってAがどう変化していくべきか
要素数少なめの配列で1行1行処理を追ってください。

特にkのループ周辺がおかしく
L,Rの添え字に使っているi,jが一切加算されていないので、
If L(i) <= R(i) は常に同じ結果となります。
そのため、A(k)には同じ値が入り続けます。
A(k)に代入したL,Rは再代入しないようi,jを加算する。

If L(i) <= R(i) ThenとなっていますがR(j)だと思います。

i,jを加算するとインデックスが有効範囲ではありません等のエラーが出ると思いますが、
回避方法が様々なので考えてみてください。

Comments

[whitehorse85921]

SoshiAdachiさんお返事遅れてしまい大変申し訳ありません。
このコードは元はC++のコードです。またご指摘いただいた通り、R(i)ではなくR(j)でした。自分ではお手上げですが、ご回答いただいたこと誠にありがとございます。