Excel VBA小程序-如何快速将整个工作簿的公式转换为数值

根据操作范围，这可以分为三种情况。

❶多工作表公式转数值

❷多工作簿公式转数值

1、多工作表公式转数值

如果是将当前工作簿所有工作表的公式转换为数值，需要使用到VBA代码。

Sub FunctionTransValue_Sheets()Dim sht As WorksheetFor Each sht In Worksheets '遍历工作表sht.UsedRange.Value = sht.UsedRange.ValueNextMsgBox "ok"
End Sub

2、多工作簿公式转数值

复制运行以下代码即可▼

Sub FunctionTransValue_Workbooks() '全部工作簿Dim strPath As String, sht As WorksheetDim strWbName As String, wb As Workbook'1、选择目标文件夹，并获取文件夹的路径。With Application.FileDialog(msoFileDialogFolderPicker) '获取文件夹路径If .Show Then strPath = .SelectedItems(1) & "\" Else Exit SubEnd WithOn Error Resume Next'2、取消一系列系统设置With Application.ScreenUpdating = False '取消屏幕刷新.DisplayAlerts = False '取消警告信息.EnableEvents = False '取消事件.Calculation = xlCalculationManual '取消公式重算.AskToUpdateLinks = False '取消外链询问End With'3、遍历工作簿，工作表，将公式转换为数值。strWbName = Dir(strPath & "*.xls*")Do While strWbName <> "" 'dir语句遍历excel文件If strWbName <> ThisWorkbook.Name ThenSet wb = Workbooks.Open(strPath & strWbName) '打开工作簿For Each sht In wb.Worksheets '遍历工作表公式转数值sht.UsedRange.Value = sht.UsedRange.ValueNextwb.Close True '保存关闭工作簿End IfstrWbName = Dir() '下一个excel文件Loop’4、恢复一系列系统设置With Application .ScreenUpdating = True.DisplayAlerts = True.EnableEvents = True.Calculation = xlCalculationAutomatic.AskToUpdateLinks = TrueEnd With'5、反馈程序运行结果If Err.Number ThenMsgBox Err.DescriptionElseMsgBox "转换完成。"End If
End Sub

Excel VBA小程序-如何快速将整个工作簿的公式转换为数值相关推荐

Excel VBA实例教程 #051：不打开工作簿取得其他工作簿数据
在Excel的使用过程中,经常需要引用其他工作簿的数据,而用户往往希望能在不打开工作簿或看似不打开工作簿的情况下取得其他工作簿中的数据,有以下几种方法可以实现. 1.使用公式如果需要引用的数据不是太 ...
Excel VBA小程序01-将多个sheet表另存为单独的工作薄文件并清除原表数据
具体步骤: 按Alt+F11,打开VBA编辑器,在代码窗口中粘贴代码. 然后关闭VBA编辑器,返回Excel界面,然后按Alt+F8打开"宏"对话框,选择对应宏执行即可. 这四段 ...
Excel VBA小程序03-快速提取单元格中的数字和非数字
0.表格内容 A列 B列手机2134 型号324 2135手机 325型号 2手机136 32型号6 1.Word法 1.1 提取非数字遇事不决就去隔壁找Word,将表格A列内容复制到Word中, ...
Excel VBA小程序 -批量合并和撤销合并单元格
合并单元格之前要提前将数据列排序好,然后再复制以下代码,运行宏程序. 批量合并单元格 Sub RngMergeCondition() '批量合并单元格Dim rngUser As RangeDim r ...
Excel VBA 小程序 - 文本型数字转为数值型数字
实现功能:选中当前工作表中的所有数据内容,将文本型数字转换为数值型数字. 缺点:日期格式的字符串会变成数值 Sub 转数值型数字() With ActiveSheet.UsedRange.Number ...
整合了一下网上的内容，excel工作簿全部公式转换为值
注意:故意留了1~2处错误,一看便知 '放到模块里 Sub 公式转为值()Dim rng As Range, c As RangeDim Sht As WorksheetFor Each Sht In ...
VBA小程序--针对所有已经打开的Excel文件_格式调整_针对所有工作表_冻结首行_无视所在位置
VBA小程序--针对所有已经打开的Excel文件_格式调整_针对所有工作表_冻结首行_无视所在位置 Function 格式调整_针对所有工作表_冻结首行_无视所在位置()Dim sht As Work ...
wps vba模块压缩包_01_创建第一个VBA小程序：你好，世界
大家好,我是一可赛二(Excel),EXCEL VBA爱好者,在这里分享我学习VBA的过程. 目录第一节什么是EXCEL VBA(宏) 第二节在EXCEL界面上调出"开发工具" ...
小程序源码租房管理系统_如何通过租房小程序开发快速引流
租房市场在整个房产市场占据了极大一部分市场份额,而随着租售同权政策的提出.房价的不断提升,租房市场份额将进一步扩大. 合肥小程序开发智速新媒体公司传统的租房方式不管是出租方还是租房客户,彼此之间的消 ...

Excel VBA小程序-如何快速将整个工作簿的公式转换为数值

Excel VBA小程序-如何快速将整个工作簿的公式转换为数值相关推荐

最新文章

热门文章