Excel利用VBA列出工作表中的所有公式
发布时间：2022-07-31 02:23:53
如果我们要查看一个工作表中的所有公式，可以用VBA来实现。下面的VBA代码可以在工作簿中插入一个新工作表，并在其中列出指定工作表中的所有公式、公式所在单元格及其值。使用方法是将VBA代码放入标准模块中，选择一个工作表，然后执行代码。
Sub ListFormulas()
Dim FormulaCells As Range, Cell As Range
Dim FormulaSheet As Worksheet
Dim Row As Integer
'创建Range对象
On Error Resume Next
Set FormulaCells = Range("A1").SpecialCells(xlFormulas, 23)
'没有找到公式
If FormulaCells Is Nothing Then
MsgBox "当前工作表中没有公式！"
Exit Sub
End If
'增加一个新工作表
Application.ScreenUpdating = False
Set FormulaSheet = ActiveWorkbook.Worksheets.Add
FormulaSheet.Name = "“" & FormulaCells.Parent.Name & "”表中的公式"
'列标题
With FormulaSheet
Range("A1") = "公式所在单元格"
Range("B1") = "公式"
Range("C1") = "值"
Range("A1:C1").Font.Bold = True
End With
'读取公式，同时在状态栏中显示进度。
Row = 2
For Each Cell In FormulaCells
Application.StatusBar = Format((Row - 1) / FormulaCells.Count, "0％")
With FormulaSheet
Cells(Row, 1) = Cell.Address _
(RowAbsolute:=False, ColumnAbsolute:=False)
Cells(Row, 2) = " " & Cell.Formula
Cells(Row, 3) = Cell.Value
Row = Row + 1
End With
Next Cell
'调整列宽
FormulaSheet.Columns("A:C").AutoFit
Application.StatusBar = False
End Sub
0
投稿猜你喜欢
- 如果你需要给别人演示你的文稿，通常情况下你也是需要告诉别人哪里是重点的，那么，当我们播放幻灯片的时候应该怎么划重点呢？大家如果是用的Powe
在浏览网页的时候，有时会遇到无法显示该网页的故障，基本都是网络方面的问题，在Win8系统下，打开浏览器老是弹出浏览器控件不兼容，关于这个问题- 小编今天就来给小伙伴们分享一下子小编处理网络频繁掉线的这个状况的方法，可以让小伙伴们遇到这个情况时很好的解决好这个问题.方法一：检查网络协议
- win10系统中硬件加速可以让浏览器利用GPU来加速渲染，从而减轻CPU的负荷，由于部分电脑不支持硬件加速或者开启硬件减速资源占用增加，所以
- 在AMD Ryzen大军压境之后，Intel今年势必会拿出来点反制措施。但就目前的情况来看，Intel似乎还是有那么点轻敌了。Benchli
- EXCEL怎怎么给复合图表添加双坐标轴？excel表格中制作的复合图表中，想要添加双坐标轴，该怎么添加呢？下面我们就来看看详细的教程，需要的
- 在使用电脑的过程中，我们常常会遇到一些问题，其中最常见的就是虚拟内存不足了。也有不少用户反映自己的电脑虚拟内存不足，那么当你遇到电脑虚拟内存
- win10更改电脑默认字体怎么改？有很多电脑爱好者喜欢非常喜欢个性化自己的电脑，比如修改电脑的默认字体，更改字体大小等，那这个win10电脑
- 教大家使用WPS演示制作性感无比的封面，下面小编给大家分享WPS演示制作封面的方法，欢迎阅读：WPS演示制作性感无比的封面的教程：先看上面这
- 大部分的用户在面对种类十分丰富的办公软件时，依然会坚持选择使用wps软件，wps软件和其它的办公软件对比起来有着很不一样的优势，用户可以在w
- 很多突 * 况往往是您将要使用时发生，比如我们要使用win10系统电脑打开应用商店，应该有很多用户遇到过应用商店打不开的情况，那么win10系
- 前面说过，Excel 2007数据透视表中，如果要布局excel数据透视表，必须在“数据透视表字段列表”任务窗格中的5个列表框之间拖放字段，
- 极点五笔怎么设置光标跟随？极点五笔是一款多功能五笔输入法软件，如果我们想要在极点五笔中设置光标跟随的话，要怎么进行操作呢？下面九个大家分享极
- 很多设置了苹果手机最新充电提示音的用户都遇到了提示两次的情况，今天就给你们带来了苹果充电提示音响两次解决方法，有需要的话就快来看看吧。iph
- 经常使用电脑的用户，可能有时候在使用电脑过程中会发现网络图标只有飞行模式的情况，为此有用户反馈网络图标只有飞行模式怎
- 小编在这为大家介绍下WPS文字制作稿纸模板精确套打一、绘制稿纸首先，要详细了解稿纸的信息：稿纸纸张大小，量出纸张上下左右的边距、行间距、稿纸
- 在编辑表格的时候，很难控制表格的行数，当行数超过了页面所能容纳的默认最高时就会出现跨页换行来显示多余的行数。这个功能是很好的，不过在某些时候
- window10修改hosts无法保存怎么处理？hosts文件记录了电脑的使用ip，但是有的用户反映自己在对hosts文件进行操作之后保存的
- 最近有Win8.1用户反馈，他在给Win8.1系统中的某个卷集中备份镜像时出现了故障，提示错误代码为0x807800c5，导致用户无法备份W
- excel如何冻结拆分窗口，一般我们在使用excel工作表的时候如果说excel间距比较大，数据比较多，我们可以把excel工作表的窗口进行
