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