yy一级毛片免费视频-yyyyyy高清成人观看-yy6080理aa级伦大片一级毛片-yy4080午夜理论一级毛片-色吊丝在线观看国产-色的视频在线观看免费播放

在Excel表格中，如果我們要將同一類的內(nèi)容合并到一個(gè)單元格里要如何操作呢？其實(shí)合并文本內(nèi)容非常簡(jiǎn)單，只要我們靈活使用函數(shù)就可以完美解決了，接下來(lái)小編就來(lái)給大家分享下如何使用自定義函數(shù)來(lái)合并文本的操作方法。

接下來(lái)說(shuō)說(shuō)這個(gè)自定義函數(shù)的使用方法：

步驟一：

右鍵單擊工作表標(biāo)簽【查看代碼】，打開VBE編輯器。

步驟二：

在VBE窗口中，點(diǎn)擊【插入】【模塊】。

步驟三：

在右側(cè)的代碼窗口中輸入代碼。

以下是代碼文字版，大家使用時(shí)可以直接復(fù)制就好。

Public Function ConTxt(ParamArray args() As Variant) As Variant

Dim tmptext As Variant, i As Variant, cellv As Variant

Dim cell As Range

tmptext = ""

For i = 0 To UBound(args)

If Not IsMissing(args(i)) Then

   Select Case TypeName(args(i))

       Case "Range"

           For Each cell In args(i)

               tmptext = tmptext & cell

           Next cell

       Case "Variant()"

           For Each cellv In args(i)

               tmptext = tmptext & cellv

           Next cellv

       Case Else

           tmptext = tmptext & args(i)

   End Select

End If

Next i

ConTxt = tmptext

End Function

關(guān)閉VBE窗口，回到Excel工作表界面，就可以使用這個(gè)自定義的ConTxt函數(shù)了。

除了直接使用單元格引用，還可以對(duì)參數(shù)進(jìn)行條件設(shè)置。

回到本例的題目中，我們僅要求合并文本內(nèi)容，可使用下面的數(shù)組公式，記得要按Ctrl+Shift+回車結(jié)束輸入。

=ConTxt(IF(ISTEXT(A1:A12),A1:A12&"、"，""))

先使用ISTEXT函數(shù)判斷A1:A12單元格的內(nèi)容是否為文本。

再使用IF函數(shù)，如果是文本，則返回A1:A12并連接一個(gè)頓號(hào)"、"，否則返回空文本""。

最后使用ConTxt函數(shù)對(duì)返回的內(nèi)容進(jìn)行連接。

連接后的文本，最后部分還多了一個(gè)頓號(hào)，大家可以根據(jù)平時(shí)學(xué)習(xí)的技巧或是函數(shù)方法，將這個(gè)頓號(hào)去掉。

使用這個(gè)自定義公式，可以非常靈活的完成多種同類項(xiàng)的內(nèi)容合并，關(guān)鍵是數(shù)據(jù)源發(fā)生變化后，結(jié)果能夠自動(dòng)更新，一勞永逸哦。

最后提醒大家，工作簿必須保存為啟用宏的工作簿，也就是xlsm格式，并且重新打開時(shí)要根據(jù)提示點(diǎn)擊啟用宏，否則函數(shù)無(wú)法運(yùn)行呢。

以上就是今天給大家分享的關(guān)于如何使用自定義函數(shù)來(lái)合并文本的操作方法，有需要的小伙伴們可以根據(jù)以上步驟進(jìn)行操作，如果需要pdf轉(zhuǎn)Word可以使用topdf轉(zhuǎn)換器。