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

【问题标题】：Add 2 on last octet in IP-Address在 IP 地址的最后一个八位字节加 2
【发布时间】：2018-02-14 13:24:20
【问题描述】：

我使用以下代码将 IP 地址从一张纸检索到另一张纸。

  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

【问题讨论】：

标签： excel add ip-address vba

【解决方案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 地址。
当我用一个单元格测试它时工作。您是否已通过代码检查发生了什么？
我的错，我看错了专栏。它按预期工作。感谢您的支持！