我们可以得到两列的最后一行，然后扩展textjoin的公式，直到两列的最大值......如下所示......虽然不需要for循环......

' Input is in "Sheet1" & Output in "Sheet2"

Sub join()

Sheets("Sheet1").Activate
lRow1 = Cells(Rows.Count, 1).End(xlUp).Row
lRow2 = Cells(Rows.Count, 2).End(xlUp).Row
lRow = Application.WorksheetFunction.Max(lRow1, lRow2)

Sheets("Sheet2").Activate
Range("A1").Select
Range("A1").Formula = "=TEXTJOIN(,0,Sheet1!A1:B1)"
Selection.Copy
Range("A1:A" & lRow).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select

End Sub

希望这能有所帮助...