VBA Excel将“/”string转换为除法和其他

在VBA Excel中，我想要执行以下操作

范围A1包含值val1,/,val2 。我想要一个函数来计算公式如下：

 Sub CalculateFormula() With Sheets("Sheet1") splitFormula = split(.range("A1").value,",") debug.print splitFormula(0) / splitFormula(2) End With End Sub 

其中子标记中的/符号是dynamic的，所以如果在A1放置a + -或* ，它将执行该操作。

Answer 1

使用Evaluate（）应该做这个工作：

 Sub CalculateFormula() With Sheets("Sheet1") splitFormula = Split(.Range("A1").Value, ",") Debug.Print Application.Evaluate(splitFormula(0) & splitFormula(1) & splitFormula(2)) End With End Sub