TextJoin UDF For Excel 2013 [英] TextJoin UDF For Excel 2013
本文介绍了TextJoin UDF For Excel 2013的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我正在尝试使用 UDF 版本的 TextJoin,因为我使用的是 Excel 2013 - 但此函数没有正确返回准确的数据.
I am trying to utilize a UDF version of TextJoin since I am using Excel 2013 - but this function is not properly returning the accurate data.
我在 Excel 中的数据集如下所示
My data-set in Excel looks like this
saleID Item
5 PRE2323
6 Pre2323223
6 OX12321
6 RI132
9 TN23
9 LSR12
我想要的输出是
saleID Items
5 Pre2323
6 Pre2323223, OX12321, RI132
9 TN23, LSR12
这是我拥有的 UDF 没有正常运行
And this is the UDF I Have that is not functioning as it should
Option Explicit
Function TEXTJOIN(delimiter As String, ignore_empty As String, ParamArray textn() As Variant) As String
Dim i As Long
For i = LBound(textn) To UBound(textn) - 1
If Len(textn(i)) = 0 Then
If Not ignore_empty = True Then
TEXTJOIN = TEXTJOIN & textn(i) & delimiter
End If
Else
TEXTJOIN = TEXTJOIN & textn(i) & delimiter
End If
Next
TEXTJOIN = TEXTJOIN & textn(UBound(textn))
End Function
我像这样在单元格中调用它
And I am calling it in the cell like this
=TEXTJOIN(", ",1,INDEX(REPT(B$2:B$100,A$2:A$100=ROWS(C$2:C2)),0))
我收到了 #VALUE 的错误!
And I get an error of #VALUE!
推荐答案
如果您的数据在 A 列和 B 列中,则此代码应该可以工作.
If your data is in columns A and B, this code should work.
Sub TEXTJOIN()
Dim i As Long, str As String, k As Long
Columns("A:B").Sort key1:=Range("A2"), order1:=xlAscending, Header:=xlYes
str = Cells(2, 2)
k = 2
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = Cells(i + 1, 1) Then
str = str & "," & Cells(i + 1, 2)
Else
Cells(k, 4) = Cells(i, 1)
Cells(k, 5) = str
k = k + 1
str = Cells(i + 1, 2)
End If
Next i
End Sub
我把这个部分留给你把它转换成 UDF.
I leave the part to you to convert this to an UDF.
这篇关于TextJoin UDF For Excel 2013的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文