核心原因 #

你的代码计算逻辑完全正确，0.93 * 0.22 = 0.2046的结果在VBA中能正确保留，但写入单元格后显示为0.2000，本质是单元格格式设置与预期不符，而非VBA代码的精度问题：

• 你提到单元格设置为保留4位小数的Currency类型，但实际可能是小数位数被误设为2位，或是使用了仅显示2位小数的自定义格式；
• Excel的Currency格式默认显示2位小数，若未手动调整为4位，就会自动截断/四舍五入显示为0.20（即0.2000的简化显示）。

解决方案 #

1. 手动修正单元格格式

选中Input工作表的V6单元格：

• 右键→「设置单元格格式」→「数字」→「货币」；
• 将「小数位数」调整为4，确认后即可显示正确的0.2046。

2. 代码中强制设置格式（推荐）

避免依赖手动格式设置，在写入值后添加代码强制指定单元格格式：

Sub TestIt()
    Dim v1 As Currency, v2 As Currency, v3 As Currency ' 修正原代码的声明问题：原写法仅v3是Currency类型
    v1 = 0.93@
    v2 = 0.22@

    v3 = FCalcCurrency(v1, v2)
    Debug.Print "v3 after the function " & v3
    
    With Sheets("Input").Range("V6")
        .Value = v3
        .NumberFormat = "$#,##0.0000" ' 带货币符号的4位小数格式
        ' 若不需要货币符号，可用：.NumberFormat = "0.0000"
    End With
End Sub

Function FCalcCurrency(ByVal v1 As Currency, ByVal v2 As Currency) As Currency
    Dim answ As Currency
    answ = v1 * v2
    FCalcCurrency = answ
    Debug.Print "answ before return " & answ
End Function

注：原代码中Dim v1, v2, v3 As Currency的写法仅v3是Currency类型，v1和v2默认是Variant类型，虽然这里用@后缀强制转换了，但统一声明类型能避免潜在问题。

3. 排除其他干扰

• 检查V6单元格是否存在条件格式、数据验证或其他VBA代码修改其值/格式；
• 若单元格有隐藏小数的设置，可通过「设置单元格格式」→「自定义」查看是否有特殊格式规则。

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