您可以使用SpecialCells获取所有有错误的公式：

Dim errorCells as Range, cell as Range
On Error Resume Next    ' Prevent Runtime error when no errors found
Set errorCells = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
On Error Goto 0
If Not errorCells is Nothing then
    For Each cell in errorCells
        Debug.Print cell.Address, cell.Formula
    Next 
End If

示例：在消息框中显示出错的行

Sub GetRow()
Dim i As Long, lastRow As Long
Dim colG
Dim errRows As String
Dim shtDebet As Worksheet: Set shtDebet = ThisWorkbook.Worksheets("Debet")

lastRow = shtDebet.Cells(Rows.Count, "G").End(xlUp).Row
colG = shtDebet.Range("G1:G" & lastRow).Value

For i = 1 To UBound(colG)
    If IsError(colG(i, 1)) Then
        errRows = errRows & "," & i'append the row with error
    End If
Next i
errRows = Mid(errRows, 2)
MsgBox "These are the rows with errors - " & errRows
End Sub