Excel將多個工作表的函數(shù)計算結(jié)果轉(zhuǎn)換為數(shù)值

本篇文章給大家?guī)砹岁P(guān)于excel的相關(guān)知識,其中主要整理了如何將多個工作表的函數(shù)計算結(jié)果轉(zhuǎn)換為數(shù)值的相關(guān)問題,包括了單個工作表的公式轉(zhuǎn)數(shù)值、多個工作表的公式轉(zhuǎn)數(shù)值,多個工作簿的公式轉(zhuǎn)數(shù)值等等內(nèi)容,下面一起來看一下,希望對大家有幫助。

Excel將多個工作表的函數(shù)計算結(jié)果轉(zhuǎn)換為數(shù)值

相關(guān)學習推薦:excel

如何將多個工作表的函數(shù)計算結(jié)果轉(zhuǎn)換為數(shù)值?今天就給大家集中聊一下這類問題。根據(jù)操作范圍,這可以分為三種情況。

  • 單個工作表的公式轉(zhuǎn)數(shù)值

  • 多個工作表的公式轉(zhuǎn)數(shù)值

  • 多個工作簿的公式轉(zhuǎn)數(shù)值

1. 區(qū)域公式轉(zhuǎn)數(shù)值

先來說第一種情況,區(qū)域函數(shù)計算結(jié)果轉(zhuǎn)數(shù)值。這種最為常見,操作也比較簡單。復制目標區(qū)域,右鍵選擇性粘貼為數(shù)值即可。

操作動畫演示如下:

Excel將多個工作表的函數(shù)計算結(jié)果轉(zhuǎn)換為數(shù)值

2. 多工作表公式轉(zhuǎn)數(shù)值

如果是將當前工作簿所有工作表的公式轉(zhuǎn)換為數(shù)值,需要使用到VBA代碼。參考代碼如下:

Sub?FunctionTransValue_Sheets() Dim?sht?As?Worksheet For?Each?sht?In?Worksheets?'遍歷工作表 sht.UsedRange.Value?=?sht.UsedRange.Value Next End?Sub

第3行至第5行代碼遍歷工作表,第4行代碼將單元格的值修改為值,也就去除了公式內(nèi)容。

3. 多工作簿公式轉(zhuǎn)數(shù)值

指定文件夾下多個工作簿的公式轉(zhuǎn)數(shù)值,可以復制運行以下代碼:

Sub?FunctionTransValue_Workbooks()?'全部工作簿 Dim?strPath?As?String,?sht?As?Worksheet Dim?strWbName?As?String,?wb?As?Workbook With?Application.FileDialog(msoFileDialogFolderPicker)?'獲取文件夾路徑 If?.Show?Then?strPath?=?.SelectedItems(1)?&?""?Else?Exit?Sub End?With On?Error?Resume?Next With?Application .ScreenUpdating?=?False?'取消屏幕刷新 .DisplayAlerts?=?False?'取消警告信息 .EnableEvents?=?False?'取消事件 .Calculation?=?xlCalculationManual?'取消公式重算 .AskToUpdateLinks?=?False?'取消外鏈詢問 End?With strWbName?=?Dir(strPath?&?"*.xls*") Do?While?strWbName??""?'dir語句遍歷excel文件 If?strWbName??ThisWorkbook.Name?Then Set?wb?=?Workbooks.Open(strPath?&?strWbName)?'打開工作簿 For?Each?sht?In?wb.Worksheets?'遍歷工作表公式轉(zhuǎn)數(shù)值 sht.UsedRange.Value?=?sht.UsedRange.Value Next wb.Close?True?'保存關(guān)閉工作簿 End?If strWbName?=?Dir()?'下一個excel文件 Loop With?Application?'恢復系統(tǒng)設(shè)置 .ScreenUpdating?=?True .DisplayAlerts?=?True .EnableEvents?=?True .Calculation?=?xlCalculationAutomatic .AskToUpdateLinks?=?True End?With If?Err.Number?Then MsgBox?Err.Description Else MsgBox?"轉(zhuǎn)換完成。" End?If End?Sub

代碼解析如下

第4至第6行代碼允許用戶選擇目標文件夾,并獲取文件夾的路徑。

第8至第14行代碼取消一系列系統(tǒng)設(shè)置。

第15至第25行代碼使用條件循環(huán)語句+DIR函數(shù)遍歷工作簿。第19至第21行代碼再遍歷工作表,將公式轉(zhuǎn)換為數(shù)值。

第26至第32行代碼恢復一系列系統(tǒng)設(shè)置。

第33行至第37行代碼反饋程序運行結(jié)果。

相關(guān)學習推薦:excel

? 版權(quán)聲明
THE END
喜歡就支持一下吧
點贊12 分享