列ごとのデータを1つのセルにまとめてコピーするマクロ

はじめに

列ごとに分かれたデータを1つのセルにまとめてコピーする必要がある処理を実装するために、
簡単なデータを用いてテストすることになりました。

用意したデータ

エクセルで以下の画像のデータを作成しました。

実装したソースコード

実装したソースコードは以下になります。

Sub test1()
    '変数の定義
    Dim graduate_member As String
    Dim child_member As String
    Dim establish_year As String
    Dim file_name As Variant
    Dim sh_name As Variant
    Dim wb As Workbook
    file_name = "commenttest2.xlsm"
    Set wb = Workbooks(file_name)
    Dim ws As Worksheet
    sh_name = "データ"
    Set ws = Worksheets(sh_name)
    Dim w_comment As String
    Dim max_row As Integer
    max_row = ws.Cells(Rows.Count, 3).End(xlUp).Row
    Dim start_row As Integer
    start_row = 3
    Dim i As Integer
    i = start_row
    
    'セルの最終行まで読み込み、コメント欄をコピーする
    While i <= max_row
        graduate_member = ws.Cells(i, 4).Value
        child_member = ws.Cells(i, 5).Value
        establish_year = ws.Cells(i, 6).Value
        w_comment = "乃木坂卒業メンバー: " & graduate_member & vbLf & _
                    "未成年のタレント:" & child_member & vbLf & _
                    "会社設立10年以上:" & establish_year
        ws.Cells(i, 7).Value = w_comment
        i = i + 1
    Wend
    
    
End Sub 

結果

実装した結果は下記の画像の通りになりました。

最後に

皆様が少しでもお役に立てたらうれしいです。