Excel - VBA - 連接 - 列中的多個單元格

Question

我有一個代碼可以在一個單元格的差異表中連接三列 -

Sheets("Sheet2").Range("D2") = Sheets("Sheet2").Range("A2") & 
Sheets("Sheet2").Range("B2") & Sheets("Sheet2").Range("C2")

我想在 Excel 表中重復此單元格 n 次 - 無法做到這一點

Answer 1

假設您已將數字存儲在 A、B、C 列中。

首先，使用此代碼確定最后一行（1 代表 A 列）：

lastRow = Cells(Rows.Count, 1).End(xlUp).Row

然后使用For循環來實現你所追求的（1 代表 A 列，2 - B，3 - C，D - 4）：

For i = 1 To lastRow
    Cells(i, 4).Value = Cells(i, 1).Value + Cells(i, 2).Value + Cells(i, 3).Value
Next

Answer 2

在此例程中， n是您要填充的最后一行：

Sub KonKat()
    Dim n As Long, i As Long
    n = 5

    With Sheets("Sheet2")
        For i = 2 To n
            .Range("D" & i).Value = .Range("A" & i).Value & .Range("B" & i).Value & .Range("C" & i).Value
        Next i
    End With
End Sub