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

應用場景

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

知識要點

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

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。