如何修改VBA宏实现11组拉丁字母到相似西里尔字母的批量替换

原代码存在两个核心问题导致无法完成全部替换：

• 每次Replace都基于原始字符串操作，而非上一次替换后的结果，最终只有最后一次替换生效
• 仅遍历前2行数据，无法处理所有内容

以下是修正后的代码：

Sub REPCHAR()
    Dim DATA As Variant, RES As Variant, LC As Long, I As Long, N As Long
    Dim Dic: Set Dic = CreateObject("Scripting.Dictionary")
    Dim replacedText As String
    
    With Sheets("1")
        ' 获取数据最后一行行号（修正为Long类型）
        LC = .Cells(.Rows.Count, "D").End(xlUp).Row
        ' 读取D、E列数据到数组
        DATA = .Range("D1:E" & LC).Value
        RES = DATA ' 初始化结果数组
        
        ' 遍历所有数据行，构建替换字典
        For I = 1 To UBound(DATA)
            If Not Dic.Exists(DATA(I, 2)) Then
                replacedText = DATA(I, 2)
                ' 链式替换：基于上一次替换结果继续处理
                replacedText = Replace(replacedText, "A", "А")
                replacedText = Replace(replacedText, "B", "В")
                replacedText = Replace(replacedText, "E", "Е")
                replacedText = Replace(replacedText, "K", "К")
                replacedText = Replace(replacedText, "M", "М")
                replacedText = Replace(replacedText, "H", "Н")
                replacedText = Replace(replacedText, "O", "О")
                replacedText = Replace(replacedText, "P", "Р")
                replacedText = Replace(replacedText, "C", "С")
                replacedText = Replace(replacedText, "X", "Х")
                replacedText = Replace(replacedText, "T", "Т")
                ' 字典存储原始文本和替换后的结果
                Dic(DATA(I, 2)) = replacedText
            End If
        Next I
        
        ' 将替换结果写入结果数组
        For N = 1 To UBound(DATA)
            On Error Resume Next
                RES(N, 1) = Dic(DATA(N, 2))
            On Error GoTo 0
        Next N
        
        ' 将结果写回工作表
        .Range("D1:E" & LC) = RES
    End With
End Sub

关键修改说明： #

• 链式替换：每次Replace都把结果赋值给replacedText，确保所有替换规则依次生效
• 遍历全部数据：将原代码的For I = 1 To 2改为For I = 1 To UBound(DATA)，覆盖所有行
• 简化字典存储：去掉不必要的数组Massive，直接存储替换后的字符串，减少复杂度
• 修正变量类型：将LC的类型从String改为Long，符合行号的数值类型规范

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