如图，B1单元格为公式，想要的效果：执行代码后可以获取公式的结果，即“N”，然后剪切到剪贴板，以便于粘贴到其他程序如微信、QQ。请教下老师代码该怎么写
Sub Demo()
Dim RR
Set RR = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
S = Range("B1")
RR.SetText S
RR.PutInClipboard
End Sub
温馨提示：答案为网友推荐，仅供参考
