Question

I need an Excel macro to join seven columns of data on each row until the end of the data is reached. For example if I have a formula like this:

=A1&B1&C1&D1&E1&F1&G1

How can I write the macro so that it increments for every row to the end of the file in a sequence like this?

=A1&B1&C1&D1&E1&F1&G1
=A2&B2&C2&D2&E2&F2&G2
=A3&B3&C3&D3&E3&F3&G3

Answer 1

With so many answers, the main focus on what assylias and I were highlighting has gone to waste 🙂

However, if you still want a VBA answer. Use this method. This is much faster than Looping or an Autofill.

Option Explicit

Sub Sample()
    Dim LastRow As Long
    Dim Ws As Worksheet

    Set Ws = Sheets("Sheet1")

    LastRow = Ws.Range("A" & Ws.Rows.Count).End(xlUp).Row

    '~~> If your range doesn't have a header
    Ws.Range("H1:H" & LastRow).Formula = "=A1&B1&C1&D1&E1&F1&G1"

    '~~> If it does then
    Ws.Range("H2:H" & LastRow).Formula = "=A2&B2&C2&D2&E2&F2&G2"
End Sub

If you have 1000’s of rows then you might want to switch off Screenupdating and change Calculation to Manual before you run the code and then reset them at the end of the code.