uibot-字典扩容

通过excel取到公司名字与公司地址, 然后使用for循环把一个空字典扩容成无限长度的{"公司":"地址"}

dim dict = []
dim 公司
dim 地址
For i = 0 to UBound(array公司)
    公司 = 公司array[i]
    地址簿[公司] = 地址array[i]
Next