エクセルマクロ（ＶＢＡ）親フォルダと子フォルダの一覧からフルパスを調べる

Question

親フォルダ一覧がＦ列
子フォルダ一覧がＧ列のデータがあります。

最上位のフォルダは
ルートという名前で固定です。
ヘッダは1列目がヘッダになります。
2列目からデータになります。

Ｊ列にフルパスを自動でマクロで入れたいです。

シート名は：マクロ

頭がこんがらがってしまい、中々上手く行きません。
分かり易い、良い方法はないでしょうか？

Sub pathFolder()

Dim mcbook As Workbook
Set mcbook = ThisWorkbook

Const oya As String = "ルート"

Dim stock() As String


MaxRow = Cells(Rows.Count, 1).End(xlUp).Row
MaxCol = Cells(1, Columns.Count).End(xlToLeft).Column


ReDim Preserve stock(MaxRow)



For i = 2 To MaxRow
    
    stock(i) = concatenationFolder(i)
         
    
Next i

For i = 2 To MaxRow
    
    Call concatenationFolder2(i, stock)
    
Next i
     

MsgBox "終了"

End Sub

Function concatenationFolder(ByVal i) As String

Dim childFolder As String
childFolder = ""

Dim oyaFolder As String
oyaFolder = ""

Dim mcbook As Workbook
Set mcbook = ThisWorkbook

Dim fullPath As String
fullPath = ""


childFolder = mcbook.Worksheets("マクロ").Cells(i, "G")

oyaFolder = mcbook.Worksheets("マクロ").Cells(i, "F")
    

If childFolder <> "ルート" Then


    
    fullPath = "\" & oyaFolder & "\" & childFolder
    Cells(i, "J") = fullPath

Else

    fullPath = "ルート"
    
    Cells(i, "J") = "ルート"
    

End If


concatenationFolder = mcbook.Worksheets("マクロ").Cells(i, "J")

End Function

Function concatenationFolder2(ByVal i, ByVal stock)

Dim childFolder As String
childFolder = ""

Dim oyaFolder As String
oyaFolder = ""

Dim mcbook As Workbook
Set mcbook = ThisWorkbook

Dim fullPath As String
fullPath = ""


MsgBox stock(i)

Dim root As String
root = Left(stock(i), InStr(2, stock(i), "\"))

root = Replace(root, "\", "")
MsgBox root

Dim j As Integer
j = 0

MaxRow = Cells(Rows.Count, 1).End(xlUp).Row
MaxCol = Cells(1, Columns.Count).End(xlToLeft).Column



    

If root <> "" Then
    
    For j = i To MaxRow

    childFolder = mcbook.Worksheets("マクロ").Cells(j, "G")
    
        If root = childFolder Then
        
            oyaFolder = mcbook.Worksheets("マクロ").Cells(j, "F")
            
            fullPath = "\" & oyaFolder & "\" & fullPath
    
            Cells(i, "J") = fullPath
        
        End If
        
    Next j
 

End If

End Function

Answer 1

Ｊ列にフルパスを自動でマクロで入れたいです。
頭がこんがらがってしまい、中々上手く行きません。
分かり易い、良い方法はないでしょうか？

頭の中だけで考えて、分かり難いなら、
段階ごとに途中経過をシート上に書き込んでいけば、
目視で結果を見ながらできますよね？

VｂAでとか配列でとか、したら処理が速くなるのだろうという感じで
マクロにしたいのでしょうか？
自動でできれば、手動でやった場合より、
間違えないし、
処理も速くなるわけなので、
「一瞬で」よりも、
「自分で作れる」を優先した方が結果が得られると思いますが、
いかがでしょうか？

まずは、シート上のイメージのびふぉー＆あふたー
を示していただけると、も少しロジック的な話が出来ると思いますが？

Answer 2

どのような結果を期待しているのか、添付のような画像を提示していただけませんでしょうか。