暗淡？啊，啊？Rng？作為什麽？範圍，？Sht嗎？作為什麽？工作表，？Dic？作為什麽？目標
暗淡？k？t，？Str？作為什麽？字符串，？我？作為什麽？龍？lc？作為什麽？長的
申請。屏幕更新？=?假的？關閉屏幕更新。
Arr？=?範圍（“a 1“）current region . value。
lc？=?UBound（Arr，2)?找到最後壹行的行號。
設置？Rng？=?行數（1）？標題行
設置？Dic？=?CreateObject（“腳本。詞典》）？創建詞典
為了什麽？我？=?2?去哪？欠額
Str？=?Arr（我，3)?承包商的名稱和關鍵字
如果？不是嗎？Dic。存在（Str）？然後呢？如果字典沒有關鍵字。
設置？DIC（Str）？=?細胞（我，？1).調整大小（，？lc）？將當前行載入字典。
不然呢？否則（關鍵字存在於字典中）
設置？DIC（Str）？=?union（Dic（Str），？細胞（我，？1).調整大小（，？lc）？把線連在壹起。
結束？如果
然後
k？=?Dic。鑰匙？詞典關鍵詞集合
t？=?Dic。物品？詞典條目集合
開？錯誤？簡歷？然後
用什麽？工作表
為了什麽？我？=?0?去哪？Dic。數數？-?1?循環關鍵字的數量
設置？Sht嗎？=?。第（k（I）項？給變量賦值（工作表稱為關鍵字）
如果？Sht嗎？是嗎？什麽都沒有？然後呢？如果工作表不存在，請插入壹個空工作表。
。添加（在:=之後。項目（。計數）。名字？=?k（I）？新創建的工作表將放在所有工作表之後，並命名為關鍵字。
設置？Sht嗎？=?ActiveSheet？活動表給出變量。
不然呢？否則。
Sht。細胞。清楚了嗎？清除作業中的所有內容和格式。
結束？如果
Rng。復制？Sht。範圍（“A1“）？把標題寫在第壹行。
t（I）。復制？Sht。範圍（“A2“）？寫其他內容
Sht。Cells.EntireColumn .自動調整？自動調整所有工作表單元格的列寬
設置？Sht嗎？=?什麽都沒有？變量處於初始狀態。
然後
結束？隨著
張（1）。激活？第1張工作表處於活動狀態。
申請。屏幕更新？=?真的嗎？打開屏幕更新。
結束？如果承包商的名稱在c列中，則填寫Sub。