Excel VBA：合并单元格时保留AH5四位数字格式的问题

你的问题出在直接调用单元格的.Value属性——这个属性返回的是单元格的原始数值（比如1），而非格式化后的显示文本（0001），所以合并后会出现LR-1而非预期的LR-0001。这里提供两种可靠的解决方法：

方法1：读取单元格的格式化显示文本 #

直接使用单元格的.Text属性获取带格式的内容，代码修改如下：

Private Sub Workbook_Open()
    Range("AH5").Value = Range("AH5").Value + 1
    ' 用.Text获取AH5的格式化显示文本
    Range("H4").Value = Range("AH4").Value & Range("AH5").Text
End Sub

这种方法直接复用AH5单元格已设置的0000格式，适合需要和单元格格式保持一致的场景。

方法2：在代码中强制格式化数值 #

如果希望不受单元格格式变动的影响，直接在VBA代码里指定四位补零的格式，用Format函数实现：

Private Sub Workbook_Open()
    Dim newNum As Integer
    ' 先计算新的序号
    newNum = Range("AH5").Value + 1
    Range("AH5").Value = newNum
    ' 强制格式化为四位数字补零
    Range("H4").Value = Range("AH4").Value & Format(newNum, "0000")
End Sub

这种方法更稳定，即使AH5的单元格格式被意外修改，生成的参考号依然会保持四位数字的格式。

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