能不能告诉我下面的意思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.Cell

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/23 12:13:59
能不能告诉我下面的意思SubLKJL()Setd=CreateObject("scripting.dictionary")Sets2=Sheets(1):Sets1=Sheets(2)Fori=1To

能不能告诉我下面的意思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.Cell
能不能告诉我下面的意思
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

能不能告诉我下面的意思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.Cell
03版的最大行是65536,整句就是A列有数据的最后一行
UCase英文全部转成大写
d.exists(mc)判断存不存在,存在了自然就相同

product hp pavilion ze2000 : 产品型号
s/n cnf5301nv3 :产品序列号(每个产品唯一)
p/n ee474pa#ab2 :产品编号
service tag ze2202ap :是否维修过
warranty 1year :保修1年
是否可以...

全部展开

product hp pavilion ze2000 : 产品型号
s/n cnf5301nv3 :产品序列号(每个产品唯一)
p/n ee474pa#ab2 :产品编号
service tag ze2202ap :是否维修过
warranty 1year :保修1年
是否可以解决您的问题?

收起