錦子老師

字串處理是函數的軟肋，動不動就多層嵌套，陣列公式，有些功能還無法實現，比如用連接子連接文字，用Excel函數幾乎是無法做到的，有了VBA自訂函數，這一切將SO EASY!

下面就介紹一個自訂的簡單字串處理函數：

函數名稱：   MYSTR

函數作用：   用任意連接子連接文字。

參數介紹：   第一參數：必須要參數，指定連接子，可以是文字常量，也可以是儲存格參照。忽略空白儲存格。

第二參數：   必須要參數，需要連接的文字或儲存格範圍。

第三參數：   可選用參數，同第二參數。

第四參數：   可選用參數，同第二參數。

n  創建自訂函數的方法：

新建一個EXCEL活頁簿，只保留一個工作表，其餘的將其刪除。

按ALT+F11，打開VBE編輯器。

點取「插入 > 模組」指令，如下圖所示。

把下面的自訂函數代碼輸入到模組中。

Public Function mystr(ll, ParamArray x())

For Each r In x

If IsArray(r) Then

For Each rr In r

If rr <> ""Then mystr = mystr & ll & rr

Next

Else

mystr = mystr & ll & r

End If

Next

mystr = Mid$(mystr, 2, Len(mystr))

End Function

關閉VBA編輯器視窗。

按F12鍵開啟「另存新檔」對話方塊，點取「存檔類型」下拉方塊，選擇「Excel增益集」。

點取「檔案名稱」下拉方塊，輸入「合併函數」，如下圖所示。

點取「儲存」鈕，它將自動存入ADDIN資料夾中。

點取「開發人員 > 增益集 > Excel 增益集」圖示，如下圖所示。

在「增益集」對話方塊，點取「合併函數」核取方塊，使其打勾，如下圖所示。

點取「確定」鈕，就可以在工作表中的隨心所欲的使用自訂的合併函數，動手試試吧！

點取「C2」儲存格輸入公式：「=MYSTR(A2,B2:B6,B7:B9)」後，按Enter鍵，結果如下圖所示。