vba - 更改 VBA 中的小数点分隔符

Question

我用 VBA 编写了简单的代码(并看到了问题 here 和 here，但这些解决方案都不起作用)。

            Dim toString As String
            toString = cell.Value & "_"
               If (InStr(toString, ",")) Then
                 toString = Replace(toString, ",", ".")
                 toString = Trim(toString)
                 cell.Value = " " + Left(toString, (Len(toString) - 1))               
               End If

不幸的是，Excel 在 cell.Value 中给出了带有逗号的 double 值，而不是带有点分隔符的字符串。奇怪的是，当我用“_”交换这个空格时，它会转换 f。前任。 12,3 进入_12.3。我该如何修复它？

附注我在末尾添加“_”以确保 toString 仍为 String。

Answer 1

我以前也遇到过这个问题。您需要在写入之前更改单元格的格式。

Application.Workbooks("Book1").Sheets("Sheet1").Range("A1:A100").NumberFormat = "@"

该行运行后，您可以简单地写入该列，如下所示:

Cells(1,1).Value = "12.3"

Excel 将保留字符串格式，而不将其转换为 double 型。

希望这有帮助。