本文轉(zhuǎn)載自公眾號：涂涂說Excel，作者：涂大榮。本文著作權(quán)歸原創(chuàng)作者所有，本人收藏此文僅作為學(xué)習(xí)之用，不作其他目的，如有侵權(quán)請聯(lián)系我刪除。

大家好！我是涂涂

「Excel VBA」文本字符串（數(shù)據(jù)）的合并。

今天的內(nèi)容

今天涂涂給大家分享一段VBA小代碼，用于字符串（數(shù)據(jù)）的合并，效果類似于TEXTJOIN函數(shù)。但TEXTJOIN函數(shù)有版本要求，使用低版本的表親們就只能呵呵了。有了這段小代碼，不需要呵呵了。

?效果展示

 

操作步驟

STEP 01

◆將xlsx后綴的工作簿文件另存為xlsm后綴的工作簿文件

◆打開xlsm后綴的工作簿文件

STEP 02

◆選擇【開發(fā)工具】選項卡，點擊左側(cè)的“Visual Basic”，打開VBE編輯器

◆點擊左側(cè)工程管理器的文件名，右鍵插入“模塊”

◆雙擊打開模塊，在模塊的代碼區(qū)域?qū)懭胂掠涀远x函數(shù)的代碼

◆保存，關(guān)閉VBE界面，返回Excel界面

代碼示例

代碼解釋

TxtJoin(Rg As Range, JoinStr AsString)

◆TxtJoin自定義函數(shù)名（可根據(jù)個人喜好起名）

◆Rg自定義函數(shù)的第一參數(shù)，JoinStr自定義函數(shù)的第二參數(shù)

WorksheetFunction.Transpose(Rg)

◆返回轉(zhuǎn)置單元格區(qū)域，即將一行單元格區(qū)域轉(zhuǎn)置成一列單元格區(qū)域，反之亦然

Join(Arr, JoinStr)

◆Join函數(shù)，返回一個字符串，該字符串是通過連接某個數(shù)組中的多個子字符串而創(chuàng)建的

Join(sourcearray[, delimiter])

第一參數(shù)，包含被連接子字符串的一維數(shù)組

第二參數(shù)，在返回字符串中用于分隔子字符串的字符