如何用Excel VBA填充单元格文本中的多个指定引用位置

方法1：直接多次替换（适合固定数量的占位符） #

这种方法简单直观，针对你当前的固定占位符逐个替换即可：

Sub FillPlaceholders()
    Dim ws As Worksheet
    Dim originalText As String
    
    ' 指定目标工作表，可替换为实际工作表名，比如Sheets("Sheet1")
    Set ws = ActiveSheet
    
    ' 获取D2中的原始模板文本
    originalText = ws.Range("D2").Value
    
    ' 替换各占位符为对应单元格的值
    originalText = Replace(originalText, "<strong>C2</strong>", ws.Range("C2").Value)
    originalText = Replace(originalText, "<strong>C3</strong>", ws.Range("C3").Value)
    originalText = Replace(originalText, "<strong>A3</strong>", ws.Range("A3").Value)
    originalText = Replace(originalText, "<strong>B6</strong>", ws.Range("B6").Value)
    
    ' 将替换后的文本写回D2，也可指定其他单元格，比如ws.Range("E2").Value = originalText
    ws.Range("D2").Value = originalText
End Sub

方法2：正则表达式批量替换（适合占位符数量不固定的场景） #

如果后续需要替换更多同格式的占位符，用正则表达式可以自动匹配所有<strong>单元格地址</strong>格式的内容，无需逐个编写替换语句：

Sub FillPlaceholdersWithRegex()
    Dim ws As Worksheet
    Dim originalText As String
    Dim regex As Object
    Dim matches As Object
    Dim match As Object
    
    Set ws = ActiveSheet
    originalText = ws.Range("D2").Value
    
    ' 创建正则表达式对象
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "<strong>([A-Z]\d+)</strong>" ' 匹配<strong>包裹的单元格地址
    regex.Global = True ' 开启全局匹配，处理所有符合条件的占位符
    
    ' 获取所有匹配结果
    Set matches = regex.Execute(originalText)
    
    ' 循环替换每个匹配到的占位符
    For Each match In matches
        originalText = Replace(originalText, match.Value, ws.Range(match.SubMatches(0)).Value)
    Next match
    
    ' 写入最终结果
    ws.Range("D2").Value = originalText
End Sub

补充说明 #

• 方法1代码简单易读，适合当前固定需求，无需额外依赖。
• 方法2扩展性更强，只要占位符遵循<strong>单元格地址</strong>的格式，不管数量多少都能自动处理。

内容的提问来源于stack exchange，提问作者Muhtar