Functionvalue_to_key(dict1)'用字典的值匹配keyDimarrAsNewarrSetdict22=CreateObject("scripting.dictionary")value1=dict1.itemskey1=dict1.keysForz=LBound(dict1.keys)ToUBound(dict1.keys)dict22(val