應(yīng)用場景
批量將表達式轉(zhuǎn)換為運算結(jié)果，把代表的漢字給替換掉
知識要點
1：Worksheet.evaluate 方法 ?將一個 Microsoft Excel 名稱轉(zhuǎn)換為一個對象或者一個值。
2：利用replace函數(shù)將表達式以外的干擾字符長、寬、高替換成空文本，然后通過evaluate函數(shù)將表達式轉(zhuǎn)換成計算結(jié)果
Sub 將表達式轉(zhuǎn)換為值()
On Error Resume Next ?'防錯，避免選擇已用區(qū)域以為的區(qū)域時出錯
Dim Cell As Range
If TypeName(Selection) <> "Range" Then Exit Sub '選擇對象為非空單元格則退出
If Selection.Columns.Count > 1 Then Exit Sub '選區(qū)大于1列則退出
For Each Cell In Intersect(Selection, ActiveSheet.UsedRange) '循環(huán)選區(qū)
'在單元格cell的右邊一個單元格產(chǎn)生計算結(jié)果，將長寬高三字去除后再計算結(jié)果
Cell.Offset(0, 1) = evaluate(Replace(Replace(Replace(Cell.Text, "長", ""), "寬", ""), "高", ""))
Next Cell
End Sub
