能不能告诉我下面的意思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/05/01 17:24:53
能不能告诉我下面的意思Sub LKJL()Set d = CreateObject(

能不能告诉我下面的意思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年
是否可以解决您的问题？

收起

能不能告诉我下面的意思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 floor 的中文意思是什么? sub ject的中文意思是? $1.00off sub sandwich的汉语意思 请教下面VB 代码的意思 Private Sub Command1_Click() If Combo1.Text And Combo2.Text And C Private Sub Form_Load() 的意思具体是什么啊,sub的意思是什么啊? VB.NET 中的sub和end sub啥意思?是什么单词的缩写? name of sub 是啥意思?统计市场份额的报表,有一项叫 name of sub. a meatball sub.sub在这里是submarine sandwich 还是subway 的意思? 帮我解释一下下面每一句的意思!谢谢!Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address $C$2 Then Exit Sub On Error Resume Next ActiveSheet.Shapes(pic).Select Selection.ShapeRange.Fill.UserPicture _ sub-orbital 啥意思? Sub-Vocalist什么意思 sub-specialized什么意思 能不能告诉我这句啥意思选啥! 求大神告诉我下面的英语是啥意思? 谁能告诉我下面的字叫什么.意思是什么?. Private Sub 与 Sub的区别 能不能告诉我地球的表面积!