全ての列のセルを連結する処理

森川くんは、ノリノリの様子で実装を続けます。

「よし。じゃあ次は、繰り返しの対象となっている行の、全ての列のセルを連結する処理を実装するぞ」

    Dim EndRow As Long, EndCol As Long
    Dim wrk As String
　　　　：
　　　　：
　　　　：
    For r = MidashiRow + 1 To EndRow
        wrk = ""
        
        For c = MidashiCol To EndCol
            wrk = wrk & Cells(r, c).Value
        Next c
            
    Next r

※赤字の部分が、新たに追加したコードです。

「…String型の変数wrkの宣言を追加して、
入れ子にした2つ目のFor…Nextステートメント内で、各列のセルの値を連結してやればいい。
変数wrkは使い回すから、次の行に処理が移ったとき、空の文字列を代入して値を初期化して……と」 カタカタと軽快にキーボードの音が響き渡ります。
森川くんは絶好調です。