Question

一直在使用Visual Basic for Excel，并且一直在尝试遍历一大堆单元格，并使用我保存到代码中的变量的输入替换部分单元格。

例如：

123 
ip address [ip_address]  255.255.255.255
345
678

我需要用我通过userform输入的ip地址替换它重复的每个单元格中的[ip_address]。我到目前为止完成它的方式是我为每个单元格手动完成并将其余的常量输入为字符串但我知道它可以通过一种循环更容易完成。我已经尝试过录制宏等等，如果有另外一种方法可以比将值输入到单元格然后将该值复制到变量中更好，但这就是我知道该怎么做！任何帮助都很棒

Answer 1

单击列中的任何单元格并运行：

Sub IPFixer()
    Dim BigR As Range, Stuff As String, OldStuff As String
    Set BigR = Intersect(ActiveSheet.UsedRange, Selection.EntireColumn).Cells
    Stuff = Application.InputBox(Prompt:="Enter string", Type:=2)
    OldStuff = "[ip_address]"
    BigR.Replace What:=OldStuff, Replacement:=Stuff
End Sub

vb excel替换单元循环中单词的一部分

1 个答案: