VB两个Excel表合并查找替换

两个Excel表合并查找替换：

Sub 替换()
    Dim vData As Variant, nRow As Integer, vContrast As Variant, nI As Integer
    
    With Sheets("对照表").UsedRange
        vContrast = Sheets("对照表").UsedRange.Offset(1).Resize(.Rows.Count - 1).Value '单元格向下偏移一行，并大小向上调节1行创建数组
    End With
    With Sheet1.UsedRange
        With .Offset(1).Resize(.Rows.Count - 1, 1) '同上
            vData = .Value 'vdate是单元格
            For nRow = 1 To UBound(vData) '循环取sheet1中的数据
                If Trim(vData(nRow, 1))  "" Then '如果sheet1中的第2行开始的单元格不是空的
                    For nI = 1 To UBound(vContrast)
                        vData(nRow, 1) = Replace(vData(nRow, 1), vContrast(nI, 1), vContrast(nI, 2)) '源文本，查找他，替换他
                    Next
                End If
            Next
            .Offset(, 1) = vData '向右偏移一列，写入数据
        End With
    End With
End Sub