既存フィールドからフルパスの生成

Sub prcOutputFullPathSimplified()
    ' A列のフォルダパス、B列のファイル名、C列の拡張子から、末尾のバックスラッシュが既にある前提でF列にフルパスを出力する
    
    Dim strFolderPath As String ' フォルダパス
    Dim strFileName As String ' ファイル名
    Dim strExtension As String ' 拡張子
    Dim strFullPath As String ' フルパス
    Dim lngLastRow As Long ' 最終行
    Dim lngRow As Long ' 現在の行番号
    
    With ActiveSheet
        lngLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row ' A列での最終行を取得
    End With
    
    For lngRow = 2 To lngLastRow ' 1行目はヘッダーと仮定して2行目から開始
        With ActiveSheet
            ' 直接値を組み合わせてフルパスを生成
            strFullPath = .Cells(lngRow, 1).Value & .Cells(lngRow, 2).Value & .Cells(lngRow, 3).Value
            
            ' F列にフルパスを出力
            .Cells(lngRow, 6).Value = strFullPath
        End With
    Next lngRow
End Sub