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