时间：2016-11-08 20:19作者：admin来源：未知人气：362我要评论(0)
如果我们要查看一个工作表中的所有公式，可以用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
相关阅读 你想学的FILTER函数用法，很全了当Excel体积臃肿，运行卡顿时，我们应该做些什么？带合并单元格的表格，求和计数也不难Excel筛选条件怎么设置ExcelA4页面怎么设置Excel表格A列被隐藏了怎么恢复Excel图例位于底部怎么设置Excel图表怎么嵌入单元格Excel没保存不小心关闭怎么恢复Excel图表怎么设置X轴Y轴
热门文章
excel怎么制作表格？制作excel表格的步骤技巧
excel 常见的六个排序方法，你必须要学会
excel自动换行显示不全怎么办
excel 数据透视表 选定区域不能分组 的原因和解决方法
最新文章
你想学的FILTER函数用法，很全了
当Excel体积臃肿，运行卡顿时，我们应该做些什么？
带合并单元格的表格，求和计数也不难Excel筛选条件怎么设置ExcelA4页面怎么设置Excel表格A列被隐藏了怎么恢复
人气排行 excel怎么制作表格？制作excel表格的步骤技巧excel 常见的六个排序方法，你必须要学会excel自动换行显示不全怎么办excel 数据透视表 选定区域不能分组 的原因和解决方法Excel高级筛选怎么用 excel高级筛选多个条件（并且、或用法）excel if函数的多个条件使用方法Excel中的快速填充键ctrl+e没反应，不能用是为什么？excel 判断两列数据是否一致的四种方法
盖楼回复X
(您的评论需要经过审核才能显示)
查看所有0条评论>>