作业帮 > 英语 > 作业

能不能告诉我下面的意思

来源:学生作业帮 编辑:作业帮 分类:英语作业 时间:2024/05/03 01:10:47
能不能告诉我下面的意思
Sub LKJL()
Set d = CreateObject("scripting.dictionary")
Set s2 = Sheets(1):Set s1 = Sheets(2)
For i = 1 To s1.[a65536].End(3).Row
##a65536是什么,(3) 是代表什么,如果是代列,是不是A/B/C-----
uc = UCase(s1.Cells(i,1).Value)
####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
03版的最大行是65536,整句就是A列有数据的最后一行
UCase英文全部转成大写
d.exists(mc)判断存不存在,存在了自然就相同
再问: 谢谢,已经OK了,能不能再改成。如果找到相同的就复制,否则就将英文翻译写入对应行单元格中。