如何用VBA宏将Excel单元格C17内多值替换为AF列对应值？

你的代码问题出在一次性把整个单元格区域传给了Replace方法——Excel的Replace函数一次只能处理一组「查找内容-替换值」，所以只会执行第一组匹配的替换就停了。要实现所有匹配内容的批量替换，需要循环遍历每一组查找和替换值，逐个执行替换操作。

修正后的代码如下：

Sub questiontext()
    Dim InputRng As Range, ReplaceRng As Range
    Dim i As Integer ' 循环计数器
    
    ' 定义查找内容范围（AJ3到AJ52）和对应的替换值范围（AF3到AF52）
    Set InputRng = Range("AJ3:AJ52")
    Set ReplaceRng = Range("AF3:AF52")
    
    ' 循环遍历每一组查找-替换对
    For i = 1 To InputRng.Rows.Count
        ' 跳过查找内容为空的行，避免无效替换
        If InputRng.Cells(i, 1).Value <> "" Then
            ' 对C17单元格执行替换：用ReplaceRng第i行的值替换InputRng第i行的内容
            Range("C17").Replace _
                What:=InputRng.Cells(i, 1).Value, _
                Replacement:=ReplaceRng.Cells(i, 1).Value, _
                SearchOrder:=xlByRows, _
                LookAt:=xlPart ' xlPart表示部分匹配，"/1"这类片段在文本任何位置都会被替换
        End If
    Next i
End Sub

关键说明： #

• 用For...Next循环遍历每一行，确保每一组「查找内容-替换值」都被执行
• 加入空值判断，避免处理AJ列无内容的行，减少无效操作
• 保留了你原有的LookAt:=xlPart，确保"/1"、"/2"这类片段能被正确匹配替换

内容的提问来源于stack exchange，提问作者Esperanza Castro Vergel