Excel VBA编辑IP-Adresses并将其存储到变量中

Question

将值存储在变量中，而不是将其打印到单元格中。下面的代码使用一个纸中的单元格中的IP地址，然后用 2更改最后一个八位位，然后将其打印在单元格中。

我想使用该IP地址，然后添加 1并存储在一个变量中，让我们说称为IP-Addressgateway，然后 2(从原始IP-Address(到另一个称为IP-AddressController的变量。

。

我不想将值打印到单元格中，只是将它们保存在变量中。

  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("K" & FR).Value, ".")
      v(3) = v(3) + 2
      c.Offset(, 10).Value = Join(v, ".")
  End If
  Next c

我需要For Each，因为我还有很多其他代码。然后将存储在变量中的值将用于我用来打印到TXT的另一个模块中。

Answer 1

只需从代码中删除此行：

  c.Offset(, 10).Value = Join(v, ".")

这就是将它们打印在Excel中的原因。根据您到底需要什么，您可以添加：

FR = Join(v, ".")而不是c.Offset(,10)...