如何通过VBA向单元格赋值且避免Excel自动修改格式？

问题概述 #

将工作簿A的内容复制到已有数据的工作簿B时，使用自定义SetData函数处理字符串"00:00:01.000"会被Excel自动格式化，无法保留原始内容；其他字符串可正常复制。尝试修改.NumberFormat属性未解决问题。

可行解决方案 #

方案1：先设文本格式再赋值 #

修改函数中赋值逻辑，先把目标单元格格式设为文本，再写入内容，阻止Excel自动识别格式：

If (rangeFound.Offset(0, -1).Value = parameter_id) Then
    ' 先将目标单元格设置为文本格式
    driveList.Sheets(drive).Range(rangeFound.Address).Offset(0, 1).NumberFormat = "@"
    ' 写入原始字符串
    driveList.Sheets(drive).Range(rangeFound.Address).Offset(0, 1).Value = parameter_value
    SetData = True
    Exit Function
End If

方案2：用PasteSpecial完整复制值与格式 #

如果parameter_value来自工作簿A的单元格，直接用复制粘贴的方式，完整保留源单元格的内容和格式：

If (rangeFound.Offset(0, -1).Value = parameter_id) Then
    ' 替换为工作簿A中对应数据的单元格地址
    Workbooks("工作簿A.xlsx").Sheets("对应工作表名").Range("源单元格地址").Copy
    ' 粘贴值和格式到目标单元格
    driveList.Sheets(drive).Range(rangeFound.Address).Offset(0, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    ' 清除剪切板状态
    Application.CutCopyMode = False
    SetData = True
    Exit Function
End If

备选方案：使用Text属性强制写入 #

如果上述方案仍有问题，可尝试用.Text属性直接写入，确保内容原样保留：

driveList.Sheets(drive).Range(rangeFound.Address).Offset(0, 1).Text = parameter_value

原理说明 #

Excel会自动识别类似时间格式的字符串，将其转换为内部时间序列值并套用默认时间格式显示。先设置单元格为文本格式，会让Excel以纯文本方式存储内容，放弃自动识别；PasteSpecial则直接复制源单元格的原始数据和格式，避免转换。

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