Question

我正在使用Excel VBA和Rexcel。

以下是代码：

Sub CalcRets()
    Dim outRange As Range
    'ClearOutput
    rinterface.StartRServer

    rinterface.GetRApply "function(mydata)tryingf(mydata)", _
        Range("predict!T17"), AsSimpleDF(DownRightFrom(Range("'database'!B1")))

    rinterface.StopRServer
    Set outRange = Range("predict!T17:CE188").CurrentRegion
    HighLight outRange

    Range("T18:CE188").Select
Selection.Replace What:="#SAKNAS!", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
End Sub

输出是一个简单的数据框。

部分：

 Range("T18:CE188").Select
    Selection.Replace What:="#SAKNAS!", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

用宏录制器录制

。我只想替换“#SAKNAS！”空的空间。但这不能正常工作。它不会取代“#SAKNAS！”有时它似乎也给出了约会......

WESECFA.LX.Equity   FFHKOPP.LX.Equity   BALHKGI.FP.Equity
#SAKNAS!                #SAKNAS!                #SAKNAS!
0,072010019             #SAKNAS!                -0,081449492
0,091121495             #SAKNAS!                0,001003906
0,054068522             #SAKNAS!                1900-01-00
-0,047232098        #SAKNAS!                1900-01-00

最好的问候

使用RExcel时替换VBA中的缺失值

0 个答案: