2015-11-05 38 views
0

我有兩張工作表,用於存儲有關一週事務的信息。一個是本週,另一個是上週的比較目的。 兩家公司的佈局相同。 有些公司上週有交易,但本週沒有交易。查找Excel列中的所有唯一名稱

公司名稱出現在一列中,但可以多次出現。

當我使用Excel Auto過濾器功能時,它只顯示該列中的唯一條目,我想在VBA代碼中複製該條目,以便輸出出現在任一工作表中的每個公司名稱。

我正在尋找類似於Excel - All unique words in a range 的東西但是在這個解決方案中,單元格本身的條目被拆分了,我希望整個單元格作爲一個整體進行比較。

這是否會很簡單,因爲刪除JOIN代碼並更改varValues = Split(strAllValues, " ")以使strAllValues成爲工作表範圍?

任何問題隨時問。

馬特

回答

2

保持JOIN,但是,而不是使用空格(」「)的加入使用管道‘|’然後再次使用管道的分裂功能,這將給你一個你所有的個人名稱陣列

+0

感謝這一點,因爲它工作正常,但我有另一個快速的問題,如果你不介意。聯接工作正常,但在相同的子例程中,我也想做同樣的聯接,但在不同的工作表上。我嘗試了代碼'strAllValuesCompare = Join(Application.Transpose(Sheets(「Compare).Range(」C2「,Range(」C「&Rows.Count).End(xlUp))),」|「)'但我收到一個錯誤「應用程序定義或對象定義的錯誤。任何幫助? –

+0

發現了問題並修復了它。 –

相關問題