连接未知数量的列和行[重复]

Question

几天以来我一直在尝试一些东西，但我真的很迷茫。有人可以帮我解决一下吗。

我想将 Excel 中的列从第一列连接到最后一个非空列，并在每列之间添加一个逗号。

之后，我想将循环从第一行应用到最后一个非空行。

我用已知的列数成功地做到了（我在后面添加代码），但当列数未知时却没有。

Range("H2").Select
ActiveCell.FormulaR1C1 = _
    "=CONCATENATE(RC[-7],"","",RC[-6],"","",RC[-5],"","",RC[-4],"","",RC[-3],"","",RC[-2])"
Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H" & Range("A2").End(xlDown).Row), Type:=xlFillDefault

Answer 1

这里是TEXTJOIN，对于没有它的版本（Excel 2013 和更早版本）：

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

^(Source)

---

示例：

如果您想连接 A 列中的每个填充单元格，使用逗号作为分隔符，您可以使用：

=TEXTJOIN(",",TRUE,A:A)