在 IP 地址的最后一个八位字节上加 2

Question

我使用以下代码将 IP 地址从一个 sheet 检索到另一个

  For Each c In w1.Range("D2", w1.Range("D" & Rows.Count).End(xlUp))
  FR = Application.Match(c, w2.Columns("A"), 0)
  If IsNumeric(FR) Then c.Offset(, 13).Value = w2.Range("N" & FR).Value
  Next c

是否可以在最后一个八位字节同时加2(+2)？

例如。 192.168.0.1 将是 192.168.0.3

Answer 1

这是一种方法（假设点之间的值是数字并且有四个元素，因此可能需要一些错误捕获）。

For Each c In w1.Range("D2", w1.Range("D" & Rows.Count).End(xlUp))
    FR = Application.Match(c, w2.Columns("A"), 0)
    If IsNumeric(FR) Then
        v = Split(w2.Range("N" & FR).Value, ".")
        v(3) = v(3) + 2
        c.Offset(, 13).Value = Join(v, ".")
    End If
Next c

在 IP 地址的最后一个八位字节上加 2

Add 2 on last octet in IP-Address

excel

vba

add

ip-address