Как я могу применить это объединение VBA ко всем рабочим листам?

Question

Я хочу использовать этот код на Активном листе вместо Листа 1?

Sub Concatenate()

' Concatenate two columns
    Dim l As Long, lRow As Long
    With Sheets("Sheet1")
        lRow = .Range("A" & Rows.Count).End(xlUp).Row
        For l = 2 To lRow
            Sheets("Sheet1").Cells(l, 3) = .Cells(l, 1) & " " & .Cells(l, 2)
        Next l
    End With
End Sub

Answer 1

Редактировать: я неправильно понял.Это относится ко всем рабочим листам.

Dim l as Long, lRow as Long
For Each ws in Activeworkbook.Worksheets
  With Sheets(ws)
    lRow = .Range("A" & Rows.Count).End(xlUp).Row
    For l = 2 To lRow
        Sheets("Sheet1").Cells(l, 3) = .Cells(l, 1) & " " & .Cells(l, 2)
    Next l
End With
Next ws

End Sub

Используйте этот код, чтобы применить только к активному рабочему листу

Sub Concatenate()

' Concatenate two columns
Dim l As Long, lRow As Long
With ActiveSheet
    lRow = .Range("A" & Rows.Count).End(xlUp).Row
    For l = 2 To lRow
        ActiveSheet.Cells(l, 3) = .Cells(l, 1) & " " & .Cells(l, 2)
    Next l
End With

End Sub