我的问题：将 Excel 范围从货币格式 (USD) 转换为另一种 (EUR)，反之亦然。
Excel 中的美元格式看起来像 123,456.00
Excel 中的 EUR 格式看起来像 123 456,00
在美元值中，逗号是千位分隔符，. 是小数点
和
在欧元值中，空格是千位分隔符，逗号, 是小数点。
我在 VBA 中尝试过一些编码，但我是这方面的新手。
对构建用于 Excel 电子表格的 VBA 宏代码有帮助吗？
【问题讨论】：
123456。使它们看起来不同的是单元格格式。
这个 UDF 将完成这项工作。复制并粘贴到模块中：
Function ConvertUSDToEUR(Amount As Range) As String
Dim TempStr As String: TempStr = Amount.Value
TempStr = Replace(TempStr, ",", " ")
TempStr = Replace(TempStr, ".", ",")
ConvertUSDToEUR = TempStr
End Function
输出：
【讨论】：
在A1中输入值，在B1中输入：
=TEXT(A1,"#,##0.00")
并在 C1 中输入：
=SUBSTITUTE(SUBSTITUTE(B1,","," "),".",",")
例如：
注意：
也可以“就地”转换值，但这需要 VBA。
编辑#1：
这里有两个宏可以“就地”改变格式。因此结果仍然是数字，但外观会改变。假设我们有一个数字列表（不是公式）：
选择值并运行此宏：
Sub MakeUS()
Dim r As Range
For Each r In Selection
r.NumberFormat = "#,##0.00"
Next r
End Sub
生产：
还有这个宏：
Sub MakeEUR()
Dim r As Range, v1 As String, v2 As String, DQ As String
DQ = Chr(34)
For Each r In Selection
v1 = Format(r.Value, "#,##0.00")
v2 = Replace(Replace(v1, ",", " "), ".", ",")
r.NumberFormat = DQ & v2 & DQ & ";;;"
Next r
End Sub
生产：
如果该列包含公式，则方法会略有不同。
【讨论】：