Tăng độ chính xác của Goal Seek

File/Options/Formulas

Tick: Enable iterative calculation
Maximum Iterative: tăng lên hết cỡ
Maximum change: Giảm hết cỡ

Hoặc dùng Macro

Sub Macro1()

    With Application

        .MaxIterations = 32767

        .MaxChange = 1E-99

    End With

End Sub