Excel含RTD公式单元格替换双单引号为小数点的问题求助

以下是针对RTD导入期权报价格式转换问题的可行方案：

方案1：辅助列函数法（无需VBA，保留RTD自动更新） #

在相邻空白单元格输入公式，直接处理RTD返回的文本值，不修改原公式：

=VALUE(SUBSTITUTE(原单元格地址,"''","."))

例如原RTD公式在A1，辅助列B1就写=VALUE(SUBSTITUTE(A1,"''","."))。

• 原理：SUBSTITUTE精准替换文本中的两个单引号为小数点，VALUE将处理后的文本转为数值格式；
• 优势：完全保留原单元格的RTD公式，后续报价更新时辅助列会自动同步转换，且适配所有数值范围（包括0''01到0''99的情况，解决RIGHT函数的局限性）。

方案2：VBA事件驱动法（自动同步转换，不破坏原公式） #

如果需要自动处理且不想手动维护辅助列，可以用工作表计算事件，在RTD值更新后自动将转换结果写入指定区域：

Private Sub Worksheet_Calculate()
    Dim rng As Range
    Dim cell As Range
    ' 替换为你的RTD数据所在区域，比如A1:A100
    Set rng = Me.Range("A1:A100")
    
    For Each cell In rng
        ' 只处理含RTD公式的单元格
        If InStr(cell.Formula, "RTD(") > 0 Then
            ' 将转换后的值写入相邻单元格（比如B列），不修改原公式
            cell.Offset(0, 1).Value = Replace(cell.Value, "''", ".")
            ' 可选：将目标单元格转为数值格式
            cell.Offset(0, 1).NumberFormat = "0.00"
        End If
    Next cell
End Sub

使用方法：

1. 右键工作表标签 → 查看代码；
2. 粘贴上述代码，修改rng的范围为你的实际数据区域；
3. 保存为启用宏的工作簿（.xlsm格式）。

• 原理：利用Worksheet_Calculate事件，每次工作表计算（包括RTD更新）时，读取单元格的值（而非公式）进行替换，写入相邻单元格，原RTD公式完全保留，不影响后续更新。

方案3：自定义函数法（封装转换逻辑） #

如果需要更灵活的调用，可以创建自定义VBA函数，直接在单元格中调用转换RTD返回的值：

Function ConvertRTDQuote(rtdCell As Range) As Double
    ConvertRTDQuote = CDbl(Replace(rtdCell.Value, "''", "."))
End Function

使用方法：

1. 按Alt+F11打开VBA编辑器，插入模块，粘贴代码；
2. 在单元格中输入=ConvertRTDQuote(A1)（A1为含RTD公式的单元格）。

• 优势：调用方式和普通Excel函数一致，自动随RTD值更新，且适配所有数值范围。

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