Excel VBA两次调用TextToColumns后逗号小数分隔符变点号如何解决

问题原因 #

TextToColumns本身是为处理文本内容设计的：首次运行时K列内容为文本格式，所以会按照你指定的逗号作为小数分隔符正常转换为数值。
二次运行时K列已经是数值格式，此时TextToColumns会读取数值的显示字符串再次做转换，错误地把显示用的逗号分隔符识别为待替换的文本，最终把数值的小数分隔符替换为点号，导致格式错乱。

解决方案 #

方案1：改写逻辑，仅处理文本类型单元格，从根源避免重复转换 #

该方案比原实现兼容性更强，不会误改已经转换完成的数值：

Sub Convert()
    Dim rng As Range, cell As Range
    ' 定位K列有效数据范围
    Set rng = Range(Cells(2, "K"), Cells(Rows.Count, "K").End(xlUp))
    
    ' 仅处理文本格式的内容
    For Each cell In rng
        If VarType(cell.Value) = vbString Then
            ' 替换文本中的逗号为系统默认小数分隔符，再转为数值
            cell.Value = CDbl(Replace(cell.Value, ",", Application.DecimalSeparator))
        End If
    Next
    
    ' 统一设置小数格式，适配你所在区域的逗号分隔显示规则
    rng.NumberFormat = "0.00"
End Sub

方案2：保留TextToColumns逻辑，增加格式校验避免重复执行 #

如果你更习惯用原有的TextToColumns实现，可以加一层格式判断，只有目标区域是文本格式时才执行转换：

Sub Convert()
    Dim rng As Range
    Set rng = Range(Cells(2, "K"), Cells(Rows.Count, "K").End(xlUp))
    
    ' 仅文本格式区域执行转换
    If rng.NumberFormat = "@" Then
        rng.TextToColumns DataType:=xlFixedWidth, DecimalSeparator:=","
        ' 转换后设置正确的小数显示格式
        rng.NumberFormat = "0.00"
    End If
End Sub

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