1行目の文字列と2行目の文字列を結合し、3行目に出力するという処理を最終列まで繰り返し行いたい。

Question

前提・実現したいこと

1行目の文字列と2行目の文字列を結合し、3行目に出力するという処理を最終列まで繰り返し行いたい。

このような処理をVBAで実現する方法を探しています。
Forループというもの使えば可能ではないかというところまでは調べたのですが、肝心の内容でクリティカルなものが見つからず、複数の条件を組み合わせてコードを作成するには実力が足りないためお知恵を拝借したいです。

見当違いの質問でしたら申し訳ありません。

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

該当のソースコード

試したこと

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

Excelバージョン：2016

Comments

[meg_]

全く手が付けられないのであればVBAではなくエクセル関数で実現してはどうでしょうか？

[same_2614869]

自分の実力以上のことを行っているのは承知なのですが、計算に利用するファイルが毎回変わるため今回はVBAで実現したいと考えています。

ご回答ありがとうございました。

Answer 1

エクセル関数ですれば簡単です。

A3セルに、=A1&A2 と入力して、最終列までフィルドラッグ

VBAでしたいなら、上記の同じ処理をVBAにすると、

Sub test()
    Dim ws As Worksheet
    Dim lastCell As Range
    Set ws = ActiveSheet
    Set lastCell = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Offset(2)
    
    With ws.Range(ws.Cells(3, 1), lastCell)
        .Formula = "=A1&A2"
    End With

End Sub

Comments

[same_2614869]

ご回答頂き誠にありがとうございます。
関数そのものをVBAで入力することもできるのですね。
Excel関数とVBAは別物だと考えていたので目から鱗でした。

Answer 2

こんな感じでどうでしょうか。

Sub sample()
    Dim ws As Worksheet
    Dim lastCol As Long
    Dim i As Long
    
    Set ws = ActiveSheet
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    For i = 1 To lastCol
        ws.Cells(3, i).Value = ws.Cells(1, i).Value & ws.Cells(2, i).Value
    Next
End Sub

Comments

[same_2614869]

まさしく実現したいことそのままの結果が得られました。
自分の拙い質問を読み解いていただき誠にありがとうございます。