1、用 INSTR( key,"【") 获得 左右书名号在key中的位置， 然后用MID函数 截取【XXX】
2、sheet2.[a1].reszie(dic.count)=application.transpose(dic.keys)
3、
For i = 1 To dic.count
sheet2.Hyperlinks.Add Anchor:=Cells(i, 1), Address:= dic(i), TextToDisplay:=Cells(i, 1).Value
Next
第1个问题
dic("【xxx】")=x
key是文本，所以用引号做定界符就可以了。
第2个问题
sheet2.range("A1").resize(?,?)=application.transpose(dic.items)
输出之后再弄超链接，这就和字典没关系了。
没看懂， 这个 DIC(i.j)=x 只有 二维数组才这样写吧
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024