求組vba中 提取 字典(Dictionary)內容的壹些問題

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