Замена отсутствующих значений в VBA при использовании RExcel

Я использую 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

С уважением

0 ответов

Другие вопросы по тегам