Sub？測試()
暗淡？我& amp,?強生公司。,?k & amp
設置？d？=?CreateObject("腳本。字典”)？定義詞典
為了什麽？我？=?1?去哪？床單。數數？循環所有表格。
為了什麽？j？=?1?去哪？床單(壹)。單元格(行。數數，？1).結束(xlUp)。假設A列是壹個列表，它從第1行循環到最後壹行。
d(第壹頁)。細胞(j，1).值)？=?d(第壹頁)。細胞(j，1).值)？+?1?將name關鍵字計入字典，字典值就是重復數。
然後
y？=?鑰匙呢。賦值關鍵字數組
t？=?d .物品？分配字典值數組
張(1)。範圍(" c1 ")。調整大小(UBound(y)，？1)?=?工作表功能。轉置(y)？將關鍵字數組寫入c列
張(1)。範圍(" d1 ")。Resize(UBound(t)，？1)?=?工作表功能。轉置(t)？將字典值數組寫入列d
然後
結束？潛水艇