Excel VBA实现两列内容合并至第三列（解决CONCATENATE函数异常）

这个问题我之前也碰到过——Excel里的日期和时间其实是浮点数存储的（日期对应整数部分，时间对应小数部分），直接用CONCATENATE函数会调用它们的底层数值，而不是我们看到的格式化文本，所以才会出现奇怪的整数结果。下面给你一个可以自动化处理的VBA宏，完美解决这个需求：

VBA代码实现 #

Sub MergeDateAndTime()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 指定要操作的工作表，这里用当前激活的表，也可以改为具体表名如Sheet1
    Set ws = ActiveSheet
    
    ' 获取A列最后一行有数据的行号，自动适配数据长度
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 循环处理每一行数据
    For i = 1 To lastRow
        ' 跳过空行，避免报错
        If Not IsEmpty(ws.Cells(i, "A")) And Not IsEmpty(ws.Cells(i, "B")) Then
            ' 按指定格式转换日期和时间后合并，中间加空格
            ws.Cells(i, "C").Value = Format(ws.Cells(i, "A"), "yyyy-mm-dd") & " " & Format(ws.Cells(i, "B"), "hh:mm:ss")
            ' 可选：将结果列设置为文本格式，防止Excel自动识别为数值
            ws.Cells(i, "C").NumberFormat = "@"
        End If
    Next i
    
    MsgBox "日期时间合并完成！", vbInformation
End Sub

使用步骤 #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 右键点击左侧的工作簿名称 → 选择「插入」→「模块」
3. 将上面的代码粘贴到新建的模块中
4. 返回Excel界面，按下Alt + F8，选择MergeDateAndTime宏，点击「执行」即可

自定义调整建议 #

• 如果你的数据不是从第1行开始，把代码里的For i = 1 To lastRow中的1改成你的起始行号
• 要合并到其他列（比如D列），把ws.Cells(i, "C")改为ws.Cells(i, "D")
• 日期时间格式可以自定义，比如要显示成MM/DD/YYYY HH:MM AM/PM，就把Format函数里的参数改成对应的格式字符串

内容的提问来源于stack exchange，提问作者Erin Santos