Biết trước nghiệm thì như thế này, nhưng phải làm tròn thì mới bằng nhau được
Sub test()
Set wf = Application.WorksheetFunction
For i = 1 To 10000
L = i / 100
Pi = wf.Pi()
VP = wf.Tanh(4 Pi / L)
VT = 2 Pi L / 100
If Round(VT, 3) = Round(9.81 VP, 3) Then
MsgBox L
End If
Next
End Sub