EXCEL宏中如何将A表中英文对应的翻译复制到B表中英对应的翻译

Question

主要是想将A表中英文对应的翻译拷入B表中英文对应的翻译。
如A表a2中英文翻译为：Hello,b2中文翻译为：你好！需要在B表中搜a列是否也有Hello，如果有就将A表中对应的b2内容拷入B表的bx（x是搜到的行数）中。

请宏高手帮忙解决。

最好帮我写一个完整的宏。放入代码就可以使用。
高分赏。非常感谢。

Answer 1

在B表的B2输入公式=VLOOKUP(A1,Sheet1!A:B,2,)下拉就可以了

Sub LKJL()
    Set d = CreateObject("scripting.dictionary")
    Set s1 = Sheets(1): Set s2 = Sheets(2)
    For i = 1 To s1.[a65536].End(3).Row
       d(s1.Cells(i, 1).Value) = s1.Cells(i, 2)
    Next
    For j = 1 To s2.[a65536].End(3).Row
       If d.exists(s2.Cells(j, 1).Value) Then
          s2.Cells(j, 2) = d(s2.Cells(j, 1).Value)
       End If
    Next
    Set d = Nothing
End Sub

追问

这个代码没有看懂。我现在的问题是。有Sheet1表（需要翻译的表）与Sheet2表（什么翻译都有的），我需要在Sheet1表中找到与Sheet2表中英文（不区分大小写）相同的，将Sheet2列表中对应的列翻译拷到Sheet1表中需要翻译的列表中

追答Sub LKJL()
    Set d = CreateObject("scripting.dictionary")
    Set s2 = Sheets(1): Set s1 = Sheets(2)
    For i = 1 To s1.[a65536].End(3).Row
       uc = UCase(s1.Cells(i, 1).Value)
       d(uc) = s1.Cells(i, 2)
    Next
    For j = 1 To s2.[a65536].End(3).Row
       mc = UCase(s2.Cells(j, 1).Value)
       If d.exists(mc) Then
          s2.Cells(j, 2) = d(mc)
       End If
    Next
    Set d = Nothing
End Sub

Answer 2

用公式不行吗？为什么非要用宏
或者你发个样表过来，我帮你看看[email protected]

Answer 3

请问表呢？1722187970