填空 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
...
我正在寻找一个公式来查找和替换单元格中的特定文本。 听起来有点混乱,但您可以通过查看下图了解我的意思。
我想要实现的是,当我填充例如单元格 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
...