[megaloman]

Вот макрос Excel

Код:

Sub pinglan()
    Begin = "N3"    ' Клетка, с которой начинается просмотр адресов в таблице
    Set WS = CreateObject("WScript.Shell")
    
    ip = Range(Begin)
    i = 0
    Do While Len(Trim(ip)) <> 0
        Ret = WS.Run("cmd /C Ping " + ip, 1, True)
        
        Msg = CStr(Date) + " " + CStr(Time)
        If Ret = 0 Then Msg = Msg + " OK" Else Msg = Msg + " Err"
        Range(Begin).Offset(i, 1) = Msg
'        MsgBox Msg
        
        i = i + 1
        ip = Range(Begin).Offset(i, 0)
    Loop
End Sub

Готовая таблица в прикреплённом файле