Excel에서 모든 수식을 나열하려면 어떻게 해야 하나요?

일반적으로 Excel에서는 셀에 있는 수식을 빠르게 표시할 수 있지만, Excel에는 워크시트의 모든 수식을 나열하는 기능이 제공되지 않습니다. 워크시트의 모든 수식을 나열하면 실제 수식과 함께 셀 값의 추적을 유지하는 데 도움이 될 수 있습니다. 여기서는 이 문제를 해결하기 위해 VBA 코드를 작성하는 방법에 대해 설명하겠습니다.

VBA 코드를 사용하여 워크시트의 모든 수식 나열하기

VBA 코드를 사용하여 워크시트의 모든 수식 나열하기

다음 VBA 코드는 선택 영역 또는 워크시트의 수식을 나열하는 데 도움이 됩니다. 아래 단계를 따라 주세요:

1. ALT + F11 키를 누르고 있으면 Microsoft Visual Basic for Applications 창이 열립니다.

2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 워크시트의 모든 수식 나열하기

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. 그런 다음 코드를 실행하기 위해 F5 키를 누르면 선택한 범위 또는 전체 워크시트의 수식 셀을 나열하도록 안내하는 메시지 상자가 나타납니다. 스크린샷 참고:

4. 확인을 클릭하면 선택 영역의 수식이 활성 워크시트 앞에 새로 생성된 워크시트에 즉시 나열되며, 셀 주소, 수식 및 값 정보가 포함됩니다. 아래 스크린샷 참고:

관련 문서:

Excel에서 수식을 텍스트 문자열로 변환하려면 어떻게 해야 하나요?

Excel에서 텍스트 문자열을 수식으로 변환하려면 어떻게 해야 하나요?