Excel VBA宏实现一键Ping选中单元格内网络设备IP需求

直接上可用的宏代码，附带详细说明和使用步骤：

Sub PingSelectedIPs()
    Dim selectedCell As Range
    Dim pingResult As String
    Dim shellObj As Object
    
    ' 创建Shell对象调用系统命令
    Set shellObj = CreateObject("WScript.Shell")
    
    ' 遍历选中的每个单元格
    For Each selectedCell In Selection
        ' 先校验IP格式是否合法
        If IsValidIP(selectedCell.Value) Then
            ' 执行Ping命令，-n 1只发1个包，-w 1000超时1秒
            pingResult = shellObj.Exec("ping -n 1 -w 1000 " & selectedCell.Value).StdOut.ReadAll
            
            ' 根据返回结果判断连通状态
            If InStr(pingResult, "TTL=") > 0 Then
                selectedCell.Offset(0, 1).Value = "连通"
                selectedCell.Offset(0, 1).Interior.Color = vbGreen
            Else
                selectedCell.Offset(0, 1).Value = "不通"
                selectedCell.Offset(0, 1).Interior.Color = vbRed
            End If
        Else
            selectedCell.Offset(0, 1).Value = "无效IP"
            selectedCell.Offset(0, 1).Interior.Color = vbYellow
        End If
    Next selectedCell
    
    ' 释放对象资源
    Set shellObj = Nothing
    MsgBox "Ping检测完成！", vbInformation
End Sub

' 辅助函数：校验IPv4地址格式
Function IsValidIP(ipStr As String) As Boolean
    Dim ipParts As Variant
    Dim i As Integer
    
    ipParts = Split(ipStr, ".")
    ' 合法IPv4必须是4段
    If UBound(ipParts) <> 3 Then
        IsValidIP = False
        Exit Function
    End If
    
    ' 每段必须是0-255的整数
    For i = 0 To 3
        If Not IsNumeric(ipParts(i)) Or ipParts(i) < 0 Or ipParts(i) > 255 Then
            IsValidIP = False
            Exit Function
        End If
    Next i
    IsValidIP = True
End Function

代码说明 #

• 主宏PingSelectedIPs会自动遍历你选中的所有单元格，完全不用手动输入IP
• Ping结果直接写到选中单元格的右侧相邻列，用颜色直观区分状态：绿色代表连通、红色代表不通、黄色代表无效IP
• 内置IP格式校验，避免执行无效命令浪费时间

使用步骤 #

1. 打开你的设备清单Excel，按Alt + F11打开VBA编辑器
2. 右键左侧工程窗口里的工作簿名称 → 插入 → 模块
3. 把上面的代码粘贴进去，保存文件（注意要存为.xlsm格式，否则宏会丢失）
4. 返回Excel，选中要Ping的IP单元格（可以多选）
5. 按Alt + F8，选择PingSelectedIPs点击执行就行

自定义调整 #

• 想改结果输出位置？把selectedCell.Offset(0,1)里的数字改了就行，比如Offset(0,2)就是右侧第二列
• 要增加Ping次数？把ping -n 1里的1改成你要的次数，比如-n 3
• 处理IPv6的话，把Ping命令改成ping -6 -n 1 -w 1000，还要修改IsValidIP函数的校验逻辑

内容的提问来源于stack exchange，提问作者AndrewRosa