Excel合并两列数据-宏

使用场景： 我在批量导入某个系统数据的时候，系统要求必须按照给出的模板进行填写，由于我的数据比较多，我起初使用=A+B的公式进行操作，发现系统识别不了，所以就使用了Excel的宏编辑器进行数据整合

测试数据展示

示例代码

1
2
3
4
5
6
7
8
9
10
Sub CombineColumns()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = 85 ' D2:D85 和 K2:K85 的行数
    
    For i = 2 To lastRow
        Cells(i, 4).Value = Cells(i, 4).Value & Cells(i, 11).Value ' D列是第4列，K列是第11列
    Next i
End Sub

操作步骤

在excel界面alt+f11 在弹出的界面点击插入模块 粘贴以上代码

第二步按alt+f8 点击执行

结果展示