手抄报 安全手抄报 手抄报内容 手抄报图片 英语手抄报 清明节手抄报 节约用水手抄报

自定义模拟textjoin函数

时间:2024-10-16 02:04:27

1、ALT+F11打开VBE编辑器;

2、插入>>模块,粘贴以下代码:Function textjoin(合并符, tf, texts)Application.Volatile TrueOn Error GoTo xxxDim arr, a As String, pp As Stringpp = Join(WorksheetFunction.Transpose(texts), "-")arr = WorksheetFunction.Transpose(texts)GoTo yyyxxx:arr = WorksheetFunction.Transpose(WorksheetFunction.Transpose(texts))yyy:If tf = 1 ThenFor i = 1 To UBound(arr)If arr(i) = "" Then arr(i) = "#$%"Nextarr = Filter(arr, "#$%", False)End Iftextjoin = Join(arr, 合并符)End Function

3、保存文件为.xlsm格式。

© 手抄报圈