TextJoin UDF For Excel 2013

Question

我正在尝试使用TextFoin的UDF版本，因为我使用的是Excel 2013 - 但此功能无法正确返回准确的数据。

我在Excel中的数据集如下所示

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无法正常运行

    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

我在这个单元格中调用它

=TEXTJOIN(", ",1,INDEX(REPT(B$2:B$100,A$2:A$100=ROWS(C$2:C2)),0))

我收到错误#VALUE！

Answer 1

您可以尝试这样的事情......

Function TEXTJOIN(delimiter As String, lookup_id As Range, arr_rng As Range, Optional ignore_empty As Boolean = True) As String
Dim x, dict
Dim i As Long
x = arr_rng.Value
Set dict = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(x, 1)
    If x(i, 1) = lookup_id Then
        If Not dict.exists(x(i, 1)) Then
            dict.Item(x(i, 1)) = x(i, 2)
        Else
            dict.Item(x(i, 1)) = dict.Item(x(i, 1)) & IIf(x(i, 2) = "", IIf(ignore_empty, "", delimiter), delimiter & x(i, 2))
        End If
    End If
Next i
If dict.Count > 0 Then
    TEXTJOIN = dict.Item(IIf(IsNumeric(lookup_id), lookup_id + 0, lookup_id))
Else
    TEXTJOIN = ""
End If
End Function

然后考虑您的数据在A2：B7范围内，请尝试以下内容......

在C2

=TEXTJOIN(",",A2,$A$2:$B$7)

Answer 2

此函数接受范围和数组，包括水平和垂直

```{r fig.width=8, fig.height=4, fig_align="center", echo=FALSE, warning=FALSE, message=FALSE}
library(pacman)
p_load(dplyr, tidyr, readr, tigris, acs, magrittr, foreign, ggplot2, gridExtra, ggthemes, leaflet, maps )

#map

la_trad_school_perf_map_layers <- leaflet(lac_schools) %>%
  addProviderTiles("CartoDB.Positron") %>%
  setView(-118.4, 34.05, zoom = 9) %>%
  addCircleMarkers(
    radius = 3,
    color = ~pal_measure(Math_Prof_Category_1516),
    stroke= FALSE, 
    fillOpacity = 1,
    popup=school_popup,
    group="15-16 Math Proficiency Rates"
  ) %>%
  addPolygons(data = income_200k_plus_merged, 
              fillColor = ~pal_income(plus_200k_pct), 
              color = "Greens",
              fillOpacity = 0.5, 
              weight = 1, 
              smoothFactor = 0.2,
              popup = popup_200k, 
              group="% of Households with Income > $200k - 2015")%>%
  addPolygons(data = poverty_merged, 
              fillColor = ~pal_poverty(poverty_rate), 
              color = "#b2aeae",
              fillOpacity = 0.5, 
              weight = 1, 
              smoothFactor = 0.2,
              #popup = popup_poverty, 
              group="% of Residents in Poverty - 2015")%>%
  addPolygons(data = unemployment_merged, 
              fillColor = ~pal_unemp(unemp_rate_2064), 
              color = "#b2aeae",
              fillOpacity = 0.5, 
              weight = 1, 
              smoothFactor = 0.2,
              #popup = popup_poverty, 
              group="% of Unemployed Adults - 2015")%>%
  addPolygons(data = commute_merged, 
              fillColor = ~pal_commute(commute_perc_60_more), 
              color = "#b2aeae",
              fillOpacity = 0.5, 
              weight = 1, 
              smoothFactor = 0.2,
              #popup = popup_poverty, 
              group="% of Adults with a Commute > 60 min.")%>%
  addPolygons(data = ed_attain_merged, 
              fillColor = ~pal_ed_attain(lt_hs_degree_rate_18_44), 
              color = "#b2aeae",
              fillOpacity = 0.5, 
              weight = 1, 
              smoothFactor = 0.2,
              #popup = popup_ed_attain, 
              group="% of Adults Without a HS Degree - 2015")%>%
  addPolygons(data = cit_merged, 
              fillColor = ~pal_cit(non_citizenship_rate), 
              color = "#b2aeae",
              fillOpacity = 0.5, 
              weight = 1, 
              smoothFactor = 0.2,
              popup = popup_cit, 
              group="Non-U.S. Citizen - 2015")%>%
  addPolygons(data = grandchildren_merged, 
              fillColor = ~pal_grandchildren(living_with_grand_rate), 
              color = "#b2aeae",
              fillOpacity = 0.5, 
              weight = 1, 
              smoothFactor = 0.2,
              popup = popup_grandchildren, 
              group="% of Children Raised by Grandparents - 2015")%>%
  #addMarkers(data=la_homicides_assaults,
    #         la_homicides_assaults$lat, 
     #        la_homicides_assaults$lng,
      #       group="Incidents of Violent Crime - 2015") %>%
  addLayersControl(
    baseGroups=c("% of Households with Income > $200k - 2015", 
                 "% of Residents in Poverty - 2015", 
                 "% of Unemployed Adults - 2015", 
                 "% of Adults with a Commute > 60 min.", 
                 "% of Adults Without a HS Degree - 2015",
                 "% of Non U.S. Citizens - 2015", 
                 "% of Children Raised by Grandparents - 2015"),
    overlayGroups=c("15-16 Math Proficiency Rates"),
    options = layersControlOptions(collapsed = TRUE))
la_trad_school_perf_map_layers
```

在这种情况下，您可以将其用作数组公式：

Function TEXTJOIN(delim As String, skipblank As Boolean, arr)
    Dim d As Long
    Dim c As Long
    Dim arr2()
    Dim t As Long, y As Long
    t = -1
    y = -1
    If TypeName(arr) = "Range" Then
        arr2 = arr.Value
    Else
        arr2 = arr
    End If
    On Error Resume Next
    t = UBound(arr2, 2)
    y = UBound(arr2, 1)
    On Error GoTo 0

    If t >= 0 And y >= 0 Then
        For c = LBound(arr2, 1) To UBound(arr2, 1)
            For d = LBound(arr2, 1) To UBound(arr2, 2)
                If arr2(c, d) <> "" Or Not skipblank Then
                    TEXTJOIN = TEXTJOIN & arr2(c, d) & delim
                End If
            Next d
        Next c
    Else
        For c = LBound(arr2) To UBound(arr2)
            If arr2(c) <> "" Or Not skipblank Then
                TEXTJOIN = TEXTJOIN & arr2(c) & delim
            End If
        Next c
    End If
    TEXTJOIN = Left(TEXTJOIN, Len(TEXTJOIN) - Len(delim))
End Function

作为一个数组公式，当退出编辑模式时，需要使用Ctrl-Shift-Enter而不是Enter来确认。

Answer 3

如果您的数据位于A列和B列，则此代码应该有效。

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。

Answer 4

试试这个....！

Function TEXTJOIN(delimiter As String, ignore_empty As Boolean, ParamArray 
cell_ar() As Variant)
2
For Each cellrng In cell_ar
3
For Each cell In cellrng
4
If ignore_empty = False Then
5
result = result & cell & delimiter
6
Else
7
If cell <> "" Then
8
result = result & cell & delimiter
9
End If
10
End If
11
Next cell
12
Next cellrng
13
TEXTJOIN = Left(result, Len(result) - Len(delimiter))
14
End Function