Excel是许多职场人士常用的烦恼之源，学习相关技巧需耗费大量时间。简道云作为一款办公神器，能很好地替代Excel。它是一个在线表单和数据管理工具，支持PC端和手机微信浏览器操作。除此之外，简道云还能辅助企业进行流程审批、财务报销、人事管理等业务管理，满足不同需求。
如果我们要查看一个工作表中的所有公式，可以用VBA来实现。下面的VBA代码可以在工作簿中插入一个新工作表，并在其中列出指定工作表中的所有公式、公式所在单元格及其值。使用方法是将VBA代码放入标准模块中，选择一个工作表，然后执行代码。
Sub ListFormulas()Dim FormulaCells As Range, Cell As RangeDim FormulaSheet As Works Excel利用VBA列出工作表中的所有公式
如果我们要查看一个工作表中的所有公式，可以用VBA来实现。下面的VBA代码可以在工作簿中插入一个新工作表，并在其中列出指定工作表中的所有公式、公式所在单元格及其值。使用方法是将VBA代码放入标准模块中，选择一个工作表，然后执行代码。
Sub ListFormulas()Dim FormulaCells As Range, Cell As RangeDim FormulaSheet As WorksheetDim Row As Integer'创建Range对象On Error Resume NextSet FormulaCells = Range("A1").SpecialCells(xlFormulas, 23)'没有找到公式If FormulaCells Is Nothing ThenMsgBox "当前工作表中没有公式！"Exit SubEnd If'增加一个新工作表Application.ScreenUpdating = FalseSet FormulaSheet = ActiveWorkbook.Worksheets.AddFormulaSheet.Name = "“" & FormulaCells.Parent.Name & "”表中的公式"
'列标题With FormulaSheetRange("A1") = "公式所在单元格"Range("B1") = "公式"Range("C1") = "值"
Range("A1:C1").Font.Bold = TrueEnd With'读取公式，同时在状态栏中显示进度。Row = 2For Each Cell In FormulaCellsApplication.StatusBar = Format((Row - 1) / FormulaCells.Count, "0%")With FormulaSheetCells(Row, 1) = Cell.Address _(RowAbsolute:=False, ColumnAbsolute:=False)Cells(Row, 2) = " " & Cell.FormulaCells(Row, 3) = Cell.ValueRow = Row + 1End WithNext Cell'调整列宽FormulaSheet.Columns("A:C").AutoFitApplication.StatusBar = FalseEnd Sub
