利用VBA列出工作表中的所有公式

利用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

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。