摘要：
程序目的:利用字典实现将1至10填入指定单元格Sub 显示10() Dim arr Dim dic As Object, i As Long, s As String Set dic = CreateObject("Scripting.Dictionary") '创建字典 For i = 1 To 10 dic.Add i, " " '将数字写入字典 Next s = Join(dic.keys, " ") Debug.Print s arr = Split(s, " ") '锯一锯 arr 阅读全文
