用VBA连接单列Excel中的3列

Sub ConnectColumns()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 将"Sheet1"替换为实际的工作表名称
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 循环遍历每一行
    For i = 2 To lastRow ' 假设数据从第2行开始，如果从第1行开始，请将2替换为1
        ' 将第2列和第3列的值连接到第1列
        ws.Cells(i, 1).Value = ws.Cells(i, 2).Value & ws.Cells(i, 3).Value
    Next i
End Sub