TextJoin 2列並將其粘貼到 VBA excel 中的新工作表上

Question

Excel 細胞結果

大家好。 從上表中，我想使用帶有 for 循環和TEXTJOIN的宏 excel 來組合單元格，使其看起來像 A1、B2、C3，然后將其粘貼到新工作表中。 有沒有人知道如何進行這項工作？

Answer 1

我們可以得到兩列的最后一行，然后將 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

希望這可以幫助...