VBA中ActiveCell.Value赋值失效：点转逗号丢失逗号问题求助

问题原因 #

代码出现逗号丢失的核心原因是Excel自动数字格式化：当你把带逗号的字符串赋值给单元格时，若系统区域设置中逗号为小数分隔符，Excel会自动将该字符串识别为数字，直接去掉逗号合并成连续数字。此外，依赖ActiveCell的操作方式不稳定，易因Excel自动刷新或格式优先级导致赋值失效。

修复后的代码 #

直接操作单元格对象，强制设置文本格式后再赋值，同时摒弃低效的单元格选择逻辑：

Sub Transformer_Point_To_Virgule()
    Dim ws As Worksheet
    Dim cell As Range
    Dim lastRow As Long, lastCol As Long
    Dim cellText As String
    Dim splitParts As Variant
    
    Set ws = ActiveSheet ' 可改为指定工作表，如ThisWorkbook.Sheets("目标表名")
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' 遍历所有非空数据单元格
    For Each cell In ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol))
        cellText = cell.Text ' 获取单元格原始显示文本，避免Value属性的自动转换
        If InStr(cellText, ".") > 0 Then
            splitParts = Split(cellText, ".")
            If UBound(splitParts) >= 1 Then ' 确保分割后有两个有效部分
                ' 强制设置文本格式，阻止Excel自动格式化
                cell.NumberFormat = "@"
                cell.Value = splitParts(0) & "," & splitParts(1)
            End If
        End If
    Next cell
End Sub

关键优化点 #

• 移除ActiveCell操作：直接通过Range对象操作单元格，更高效且避免选择过程中的意外问题
• 用cell.Text获取内容：避免cell.Value返回Excel解析后的数值，确保拿到原始显示文本
• 强制文本格式：赋值前将单元格格式设为@（文本格式），彻底阻止Excel自动转换带逗号的内容
• 增加边界判断：防止单元格内容末尾为点、分割后仅一个元素的情况引发错误

额外建议 #

若CSV是直接导入Excel的，可在导入阶段就设置对应列为文本格式，从根源避免格式自动转换：

• 导入CSV时，在「文本导入向导」中选中目标列，设置数据格式为「文本」

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