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

人工服務 離線下載

如何使用自定義函數來合并文本

轉轉大師PDF轉換器

支持40多種格式轉換,高效辦公

在Excel表格中,如果我們要將同一類的內容合并到一個單元格里要如何操作呢?其實合并文本內容非常簡單,只要我們靈活使用函數就可以完美解決了,接下來小編就來給大家分享下如何使用自定義函數來合并文本的操作方法。

接下來說說這個自定義函數的使用方法:

步驟一:

右鍵單擊工作表標簽【查看代碼】,打開VBE編輯器。

步驟二:

在VBE窗口中,點擊【插入】【模塊】。

步驟三:

在右側的代碼窗口中輸入代碼。

以下是代碼文字版,大家使用時可以直接復制就好。

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

關閉VBE窗口,回到Excel工作表界面,就可以使用這個自定義的ConTxt函數了。

除了直接使用單元格引用,還可以對參數進行條件設置。

回到本例的題目中,我們僅要求合并文本內容,可使用下面的數組公式,記得要按Ctrl+Shift+回車結束輸入。

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

先使用ISTEXT函數判斷A1:A12單元格的內容是否為文本。

再使用IF函數,如果是文本,則返回A1:A12并連接一個頓號"、",否則返回空文本""。

最后使用ConTxt函數對返回的內容進行連接。

連接后的文本,最后部分還多了一個頓號,大家可以根據平時學習的技巧或是函數方法,將這個頓號去掉。

使用這個自定義公式,可以非常靈活的完成多種同類項的內容合并,關鍵是數據源發生變化后,結果能夠自動更新,一勞永逸哦。

最后提醒大家,工作簿必須保存為啟用宏的工作簿,也就是xlsm格式,并且重新打開時要根據提示點擊啟用宏,否則函數無法運行呢。

以上就是今天給大家分享的關于如何使用自定義函數來合并文本的操作方法,有需要的小伙伴們可以根據以上步驟進行操作,如果需要pdf轉Word可以使用topdf轉換器。