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

Question

I'm looking for a formula to find and replace particular piece of text in a cell. It sound a bit confusing but you can see what I mean by viewing the following image.

What I'm trying to achieve is when I fill for example cell B1 I would like to replace " SYS-NAME " in cell A25 and other cells where " SYS-NSME " is present.

Answer 1

The short answer would be

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

starting in B1.

Answer 2

You need to replace the ** before and after your values. You could change it to "" instead if you want to highlight those inserted values. ** will cause the entire cell to be replaced, instead of its match.

So the code splits column A into 2 sub columns. The first column runs until the first blank row, this contains all your variables and their new value. The second column runs until the end of the last used row. This contains your configuration with the variables that need to be changed.

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

Option without a macro

In your configuration, edit each line with a variable to the following format. This will instantly update the configuration file too.

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