Question

我使用以下代码将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）？

EG。 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

1 个答案: