EXCEL的VBA中字典使用 5
Setdic_yewu=CreateObject("Scripting.Dictionary")dic_yewu(jbsj.Cells(i,18),jbsj.Cells(...
Set dic_yewu = CreateObject("Scripting.Dictionary")
dic_yewu(jbsj.Cells(i, 18), jbsj.Cells(i, 17)) = ""
这个程序可以用吗？ 展开
dic_yewu(jbsj.Cells(i, 18), jbsj.Cells(i, 17)) = ""
这个程序可以用吗？ 展开
1个回答
展开全部
dic_yewu(jbsj.Cells(i, 18)& jbsj.Cells(i, 17)) = ""
这样就差不多了。
这样就差不多了。
更多追问追答
追问
再加上以下程序，实现不了将不重复的jbsj.Cells(i, 18)与jbsj.Cells(i, 17)里的数据分别放入B3和C3开始的列表中，请高手指点
yewu_wy = dic_yewu.keys()
[B3:C3].Resize(row, 1) = Application.WorksheetFunction.Transpose(yewu_wy)
追答
这问题和代码，都是一段一段的，我也不明白你要做什么了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
