
1、将IP放在A列;
2、使用公式Vookup,括号里选择依次选择A1,你要匹配的区域(绝对引用,可按F4搞定),引用的是匹配区域的第几列,false)
3、将公式下拉复制即可。
Sub 按钮1_Click()
GetMyIP
End Sub
Public Sub GetMyIP()
Dim strComputer As String
Dim objWMI As Object
Dim colIP As Object
Dim IP As Object
Dim i As Integer
Dim LANstr As String, IPstr As String, MACstr As String
strComputer = ""
Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colIP = objWMIExecQuery _
("Select from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IP In colIP
If Not IsNull(IPIPAddress) Then
For i = LBound(IPIPAddress) To UBound(IPIPAddress)
LANstr = IPDescription(i) '网卡名称
IPstr = IPIPAddress(i) '网卡IP地址
MACstr = IPMacAddress '网卡的MAC地址
MsgBox "网卡名称:" & LANstr & vbCrLf & "IP地址:" & IPstr & vbCrLf & "MAC地址:" & MACstr, vbInformation, LANstr
Next
End If
Next
End Sub
=ROUND(RAND()255,0)&""&ROUND(RAND()255,0)&""&ROUND(RAND()255,0)&""&ROUND(RAND()255,0)
以上就是关于如何通过excel匹配ip地址段全部的内容,包括:如何通过excel匹配ip地址段、ExcelVBA怎么获取IP与mac然后分别赋值给变量、求用Excel中随即函数生成自己想要的IP段内的IP地址列表的具体 *** 作方法等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)