代替TEXTJOIN函数的方法

sun420001775

`TEXTJOIN` 是 Excel 中的一个函数，用于将多个文本字符串合并为一个字符串，并可以指定分隔符。虽然 `TEXTJOIN` 函数在 Excel 中非常方便，但在 VBA 中，我们可以创建一个自定义函数来实现类似的功能。

下面是一个示例 VBA 代码，定义了一个名为 `CustomTextJoin` 的函数，功能类似于 Excel 的 `TEXTJOIN`：

```vba
Function CustomTextJoin(delimiter As String, ignore_empty As Boolean, ParamArray text_items() As Variant) As String
    Dim result As String
    Dim i As Long
   
    result = ""
   
    For i = LBound(text_items) To UBound(text_items)
        If Not IsEmpty(text_items(i)) Or Not ignore_empty Then
            If result <> "" Then
                result = result & delimiter
            End If
            result = result & text_items(i)
        End If
    Next i
   
    CustomTextJoin = result
End Function
```

### 如何使用此函数：

1. 打开 Excel，按 `ALT + F11` 进入 VBA 编辑器。
2. 在菜单中选择 `插入` -> `模块`，然后将上述代码粘贴到模块窗口中。
3. 关闭 VBA 编辑器，返回 Excel。

### 示例用法：

在 Excel 中，你可以像使用其他函数一样使用 `CustomTextJoin` 函数。例如：

```excel
=CustomTextJoin(", ", TRUE, A1, A2, A3)
```

这个公式将会把单元格 A1, A2, A3 中的文本用 ", " 作为分隔符连接起来。如果某个单元格为空且你将 `ignore_empty` 参数设置为 `TRUE`，那么空单元格将被忽略。

### 注意事项：

- `delimiter` 是分隔符，可以是任何你想要的字符串。
- `ignore_empty` 是一个布尔值，指示是否忽略空单元格。
- `ParamArray` 允许你传递任意数量的参数。

这样，你就可以在 VBA 中使用 `CustomTextJoin` 函数来实现类似于 Excel 的 `TEXTJOIN` 功能。

gufengaoyue

可以扩展一下，对ParamArray 进行分类：字符串、单元格、区域、数组，等等，
这个函数一般不会只是一个单元格一个单元格去加，会是一片区域，如A1:A10，这样的。
供参考

[Visual Basic] 纯文本查看 复制代码

?

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Function TextUnion(delimiter As String, ignore_empty As Boolean, ParamArray arr() As Variant) As String Application.Volatile  '设置为易失性函数，可以即时更新 If IsMissing(arr()) Then TextUnion = "": Exit Function   Dim Rg As Range, Tmp As Variant For a = LBound(arr()) To UBound(arr())     If Not IsMissing(arr(a)) Then         Select Case TypeName(arr(a))             Case "Range"                 For Each Rg In arr(a)                     If Len(Rg.Value) > 0 Or (Len(Rg.Value) = 0 And Not ignore_empty) Then TextUnion = TextUnion & delimiter & Rg.Value                 Next             Case "Variant()"                 For Each Tmp In arr(a)                     If Len(Tmp) > 0 Or (Len(Tmp) = 0 And Not ignore_empty) Then TextUnion = TextUnion & delimiter & Tmp                 Next             Case Else                 If Len(arr(a)) > 0 Or (Len(arr(a)) = 0 And Not ignore_empty) Then TextUnion = TextUnion & delimiter & arr(a)         End Select     End If Next         TextUnion = Mid(TextUnion, Len(delimiter) + 1) End Function

odinchu

试试看，。函数不怎么懂

sen7fire

感觉VBA真的好复杂，SQL只要简单一个函数就能自定义连接符和链接方式

sun420001775

sen7fire 发表于 2024-12-13 10:47
感觉VBA真的好复杂，SQL只要简单一个函数就能自定义连接符和链接方式

这是2019版本以前可以代替的

otra

这是2019版本以前可以代替的

小能维尼

学到了，我搞这么久vba，才知道ParamArray
damn

byxc

先收藏   后面再看看怎么用