VBA中最强大的命令：Evaluate

Sub Neato()
 MsgBox Evaluate("SUM(A1:A6)")
End Sub

Set Fn = Application.WorksheetFunction
x = Fn.Sum(Range("A1:A10"))

x = Application.Sum(Range("A1:A10"))

Range("A1:A6").Select

[A1:A6].Select

[A1:A6].Select

Evaluate("A1:A6").Select

MsgBox [SUM(A1:A6)]

Sub test()
 Dim xArray() As Variant
 Dim y As String
 
 '一维数组字符串转换
 xArray = [{1,2,3}]
 Range("A1").Resize(1, UBound(xArray)).Value = xArray
 
 '二维数组字符串转换
 xArray = [{1,2;3,4;5,6}]
 Range("A5").Resize(UBound(xArray, 1), UBound(xArray, 2)).Value = xArray
 
 '使用字符串变量的二维数组转换
 y = "{1,2;3,4;5,6}"
 '必须显式，简写不起作用
 xArray = Evaluate(y)
 Range("A5").Resize(UBound(xArray, 1), UBound(xArray, 2)).Value = xArray
End Sub

'行为类似单元格的用户窗体文本框
'允许一个文本框里包含另一个文本框要用的公式
Private Sub TextBox1_Change()
 On Error Resume Next
 TextBox2.Value = Evaluate(TextBox1.Text)
End Sub
'只需双击即可将公式转换为条目？
'这似乎是用户窗体输入的一个很有用的功能，而且很容易应用。
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 TextBox1.Value = Evaluate(TextBox1.Text)
End Sub

Sub EvalUDF()
 MsgBox Evaluate("MyUDF()")
End Sub
Function MyUDF() As String
 MyUDF = "Hi!完美Excel"
End Function