Hur listar jag alla formler i Excel?
Normalt kan vi i Excel snabbt visa formler i cellerna, men Excel ger ingen funktion för att lista alla formler i ett kalkylblad. Att lista alla formler i ett kalkylblad kan hjälpa oss att hålla koll på cellvärdena med dess verkliga formler. Här kan jag prata om att skapa en VBA-kod för att lösa detta problem.
Lista alla formler i ett kalkylblad med VBA-kod
Lista alla formler i ett kalkylblad med VBA-kod
Följande VBA-kod hjälper dig att lista formlerna för ett urval eller ett kalkylblad, gör så här:
1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.
VBA-kod: Lista alla formler i ett kalkylblad
Sub ListFormulas()
'Update 20141027
Dim Rng As Range
Dim WorkRng As Range
Dim xSheet As Worksheet
Dim xRow As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlFormulas, 23)
If WorkRng Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xSheet = Application.ActiveWorkbook.Worksheets.Add
xSheet.Range("A1:C1") = Array("Address", "Formula", "Value")
xSheet.Range("A1:C1").Font.Bold = True
xRow = 2
For Each Rng In WorkRng
xSheet.Cells(xRow, 1) = Rng.Address(RowAbsolute:=False, ColumnAbsolute:=False)
xSheet.Cells(xRow, 2) = " " & Rng.Formula
xSheet.Cells(xRow, 3) = Rng.Value
xRow = xRow + 1
Next
xSheet.Columns("A:C").AutoFit
Application.ScreenUpdating = True
End Sub
3. Tryck sedan på F5 nyckel för att köra den här koden, och en snabbruta dyker upp för att påminna dig om att välja ett intervall eller hela kalkylbladet som du vill lista dess formelceller, se skärmdump:
4. Och klicka sedan på OK, formler i ditt val har listats på en gång i ett nytt kalkylblad på framsidan av ditt aktiva kalkylblad som innehåller information om celladress, formel och värde enligt följande skärmdump:
Relaterade artiklar:
Hur konverterar man formel till textsträng i Excel?
Hur konverterar jag textsträngar till formler i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!