問:工作表中含有大量的用戶數(shù)據(jù),要求合并相同用戶號的數(shù)據(jù)并導(dǎo)入到Word文檔。
例如下圖簡化了的示例工作表:
需要分別將戶號“2021102788”、”2021110115“、……等等相對應(yīng)的所有姓名找出來并將其合并在一起后導(dǎo)入到Word文檔(如下圖所示是戶號為“2021102788”的結(jié)果),該如何實(shí)現(xiàn)?
答:可以使用兩次高級篩選后得到結(jié)果,然后導(dǎo)出到Word文檔。
具體思路
1.使用“戶號”作為標(biāo)題,篩選出不重復(fù)的戶號列表。
2.遍歷這個不重復(fù)的戶號列表,并以戶號和每個列表數(shù)據(jù)(即具體的戶號數(shù)據(jù))作為篩選條件,分別篩選出與戶號對應(yīng)的所有姓名。
3.分別將戶號和相應(yīng)篩選出的姓名導(dǎo)入到Word并命名。(例如,本示例中有3個戶號,就會得到3個不同的Word文檔,其內(nèi)容為戶號和姓名)。
VBA代碼
說明
代碼注釋有詳細(xì)的說明,有助于對代碼的理解。
本示例有兩個過程,其中主過程FinaDataAndExportToWord()過程調(diào)用ExportToWord()過程。ExportToWord過程用于輸出數(shù)據(jù)到Word文檔。
如果您對本文介紹的內(nèi)容有什么建議或好的示例,歡迎發(fā)送郵件給我:xhdsxfjy@163.com
也可以在本文下面發(fā)表留言,留下您的足跡。
本文屬原創(chuàng)文章,轉(zhuǎn)載請聯(lián)系我或者注明出處。
關(guān)注《完美Excel》微信公眾賬號:
聯(lián)系客服