用VBA合并两列数据并保留前置零的实现问题

问题原因 #

你原代码里的CStr(Cells(i, 2))取的是单元格的实际存储数值，而B列的前置零只是单元格格式设置出来的显示效果，并非实际存储的值，所以转字符串时会丢失前置零。

可行解决方案 #

方法1：直接获取单元格显示文本（最简便）

使用Cells(i, 2).Text属性，它会返回单元格屏幕上显示的完整内容，包括格式带来的前置零：

Dim i As Long
For i = 1 To 6000
    Cells(i, 3) = CStr(Cells(i, 1)) & "-" & Cells(i, 2).Text
Next i

注：如果需要和你预期的格式完全一致（无空格短横线），把原代码里的" - "改成"-"即可。

方法2：先设置目标列为文本格式（避免自动转换）

如果担心C列自动将拼接结果识别为数字（虽然带短横线不会，但更保险），可以先把C列设为文本格式再赋值：

Dim i As Long
'将C列设置为文本格式
Columns("C:C").NumberFormat = "@"
For i = 1 To 6000
    Cells(i, 3) = CStr(Cells(i, 1)) & "-" & Cells(i, 2).Text
Next i

方法3：用Format函数指定固定格式（适合已知格式的场景）

如果B列的格式是固定的（比如固定3位带前置零），可以用Format函数强制将数字转为指定格式的字符串，即使单元格格式被修改也能保证输出正确：

Dim i As Long
For i = 1 To 6000
    Cells(i, 3) = CStr(Cells(i, 1)) & "-" & Format(Cells(i, 2), "000")
Next i

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