應用場景

批量將表達式轉換為運算結果，把代表的漢字給替換掉

知識要點

1：Worksheet.evaluate 方法 ?將一個 Microsoft Excel 名稱轉換為一個對象或者一個值。

2：利用replace函數將表達式以外的干擾字符長、寬、高替換成空文本，然后通過evaluate函數將表達式轉換成計算結果

Sub 將表達式轉換為值()

On Error Resume Next ?'防錯，避免選擇已用區域以為的區域時出錯

Dim Cell As Range

If TypeName(Selection) <> "Range" Then Exit Sub '選擇對象為非空單元格則退出

If Selection.Columns.Count > 1 Then Exit Sub '選區大于1列則退出

For Each Cell In Intersect(Selection, ActiveSheet.UsedRange) '循環選區

'在單元格cell的右邊一個單元格產生計算結果，將長寬高三字去除后再計算結果

Cell.Offset(0, 1) = evaluate(Replace(Replace(Replace(Cell.Text, "長", ""), "寬", ""), "高", ""))

Next Cell

End Sub