Замена отсутствующих значений в 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
С уважением