全文1100字，預(yù)計4分鐘讀完

今天我們來研討一個實例，看看在 不改變原數(shù)據(jù)的情況下，不用VBA到底能不能實現(xiàn)？

1、  初級合并文本

如圖所示，要求把所有的活動名稱合并在一個單元格中。

在B18單元格，輸入=PHONETIC(B2:B15)，可以得到下面的結(jié)果：

2、問題升級——用輔助列也很容易

那如果我們把參加活動的日期也加上，如下示例：

現(xiàn)在，我們需要把“活動名稱”和對應(yīng)的“參會日期”，合并到一個單元格中。

思路：此時可以加一個輔助列，然后再用PHONETIC函數(shù)。如下：

Step1：在D2單元格輸入函數(shù)="【"&TEXT(C2,"yyyy-m-d")&"】"&B2，將日期和活動名稱連接起來，下拉填充至D15單元格，作為PHONETIC函數(shù)的引用區(qū)域。

Step2：復(fù)制D2:D15單元格區(qū)域，選擇性粘貼為數(shù)值（這里注意PHONETIC函數(shù)只能引用“文本字符串”）。

為了間隔每條記錄，我們在E2:E14單元格區(qū)域輸入CHAR(10)換行符作為間隔符，同樣也要將函數(shù)復(fù)制粘貼為數(shù)值。

Step3：在C17單元格輸入函數(shù)=PHONETIC(D2:E15)，及此得到我們下圖的結(jié)果：

3、問題再升級——你還打算使用函數(shù)來做嗎？

案例如下：

需求就是：要把每個人的姓名去重只保留一行，然后在名字對應(yīng)的右側(cè)B列單元格，按照日期和活動內(nèi)容合并，寫在一個單元格中。

有同學(xué)說：按姓名排序，然后逐個姓名去PHONETIC，再整理文件。

當(dāng)然可行，但是實際數(shù)據(jù)如果超過100，就比較頭疼了吧？

下面看看筆者是如何處理的吧：

Step1：按ALT+F11組合鍵，打開VBE界面，插入一個待操作的模塊。

Step2：輸入代碼

 需要代碼和課件的同學(xué)，掃一掃文章下方的二維碼，進群領(lǐng)取。

Step3：執(zhí)行代碼，得到結(jié)果，及此完成。

有了代碼，以后這個工作就是“一鍵操作”，增減數(shù)據(jù)都適用。

如果是函數(shù)的話，能否寫出公式暫且不提，隨著數(shù)據(jù)的增減，我們還要去修改一次函數(shù)的參數(shù)，那可真的是要了老命了。

所以，想在Excel方面更上一層樓的話，VBA是無論如何也繞不開的。

感興趣的同學(xué)，趕緊和我們一起學(xué)起來吧！