Question

我使用Rexcel后跟宏不起作用。我有一个范围A1：A2（mydf）中的单词列表，我想计算一个特定单词（你好）的出现，但是后面的效果并不好。有人可以帮我理解吗？

Sub findwords()
Worksheets("Sheet1").Activate
rinterface.StartRServer
rinterface.PutDataframe "mydf", Range("Sheet1!A1:A200")
rinterface.RRun "a <- length(grep(hello, mydf))"
rinterface.PutArray "a", Range("Sheet1!B2:B50")

End Sub

Answer 1

以下代码是正确答案：

Sub findwords()
  MsgBox "finding the word hello"
  Rinterface.StartRServer
  Rinterface.PutArray "mydf", Range("Sheet1!A1:A200")
  Rinterface.RRun "a <- length(grep('hello', mydf))"
  Rinterface.GetArray "a", Range("Sheet1!B1")
End Sub

R，Rexcel，创建对word和excel工作表中的单词进行计数的宏

1 个答案: