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

Fill in the blanks excel formula to replace particular text in a cell

我正在寻找一个公式来查找和替换单元格中的特定文本。 听起来有点混乱,但您可以通过查看下图了解我的意思。

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

简短的回答是

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

从 B1 开始。

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

因此代码将 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
...