В соответствии с моим комментарием к вашему посту, VLookUp, вероятно, подойдет, но я не знаю функций Excel, поэтому он выполняет свою работу, используя VBa.
Sub search()
Dim searchValue As String
searchValue = Worksheets("Sheet1").Range("B2").Value
Worksheets("Sheet1").Range("B4").Value = GetIpFromWorksheet("Sheet2", searchValue)
Worksheets("Sheet1").Range("B5").Value = GetIpFromWorksheet("Sheet3", searchValue)
End Sub
Public Function GetIpFromWorksheet(ByVal sheet As String, ByVal search As String) As String
Dim row As Integer
row = 1
Do While (True)
If Worksheets(sheet).Range("A" & row).Value = "" Then
GetIpFromWorksheet = "Not found"
Exit Function
End If
If Worksheets(sheet).Range("A" & row).Value = search Then
GetIpFromWorksheet = Worksheets(sheet).Range("B" & row).Value
Exit Function
End If
row = row + 1
Loop
End Function
Лист1:
Лист2:
Sheet3:
Лист1 после того, как я нажму кнопку поиска