Excel

應(yīng)用場(chǎng)景

批量將表達(dá)式轉(zhuǎn)換為運(yùn)算結(jié)果，把代表的漢字給替換掉

知識(shí)要點(diǎn)

1：Worksheet.Evaluate 方法  將一個(gè) Microsoft Excel 名稱(chēng)轉(zhuǎn)換為一個(gè)對(duì)象或者一個(gè)值。

2：利用replace函數(shù)將表達(dá)式以外的干擾字符長(zhǎng)、寬、高替換成空文本，然后通過(guò)Evaluate函數(shù)將表達(dá)式轉(zhuǎn)換成計(jì)算結(jié)果

Sub 將表達(dá)式轉(zhuǎn)換為值()

    On Error Resume Next  '防錯(cuò)，避免選擇已用區(qū)域以為的區(qū)域時(shí)出錯(cuò)

    Dim Cell As Range

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

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

    For Each Cell In Intersect(Selection, ActiveSheet.UsedRange) '循環(huán)選區(qū)

        '在單元格cell的右邊一個(gè)單元格產(chǎn)生計(jì)算結(jié)果，將長(zhǎng)寬高三字去除后再計(jì)算結(jié)果

        Cell.Offset(0, 1) = Evaluate(Replace(Replace(Replace(Cell.Text, "長(zhǎng)", ""), "寬", ""), "高", ""))

    Next Cell

End Sub

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶(hù)投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶(hù)投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請(qǐng)聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。