填写空白excel公式以替换单元格中的特定文本

Question

我正在寻找一个公式来查找和替换单元格中的特定文本。 这听起来有点令人困惑，但你可以通过查看下面的图像看到我的意思。

我想要实现的是当我填写例如单元格B1时，我想在单元格A25和其他单元格中替换“ SYS-NAME ”，其中“ SYS-NSME < / strong>“存在。

Answer 1

简短的回答是

=SUBSTITUTE(A1,"**SYS-NAME**","MYSYSNAME")

从B1开始。

Answer 2

您需要在值之前和之后替换**。如果要突出显示插入的值，可以将其更改为""。 **将导致整个单元格被替换，而不是匹配。

因此代码将A列拆分为2个子列。第一列将一直运行，直到第一个空白行，其中包含所有变量及其新值。第二列将一直运行，直到最后一次使用的行结束。这包含您的配置以及需要更改的变量。

Sub FindReplace()
    Dim NewText, OldText As String
    Dim LastRowText, i As Integer

    LastRowText = Range("A1").End(xlDown).Offset(1, 0).Row
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    i = 1

    Do While i < LastRowText
        OldText = Range("A" & i).Value
        NewText = Range("B" & i).Value
        With ActiveSheet.Range("A" & LastRowText & ":A" & LastRow)
            .Replace OldText, NewText, xlPart
        End With
        i = i + 1
    Loop
End Sub

没有宏的选项

在您的配置中，使用以下格式的变量编辑每一行。这也会立即更新配置文件。

Cell A25: ="sysname " & B1
Cell A34: ="irf domain " & B2
...