在VBA中将2列连接到新列中

Sub ConcatenateColumns()
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取最后一行的行号
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 循环遍历每一行
    For i = 1 To lastRow
        ' 将第一列和第二列的值拼接到新列中
        Cells(i, 3).Value = Cells(i, 1).Value & Cells(i, 2).Value
    Next i
End Sub