excel - 如何将工作表的第一行连接成以逗号分隔的列表？

Question

我正在尝试将工作表的第一行连接到以逗号分隔的列表中。它抛出类型不匹配错误。

单元格中的所有值都是字符串，每个单元格中都有一个值。

我也尝试将 header 声明为变体。

lc = Cells(1, Columns.Count).End(xlToLeft).column
headers = Join(Range(Cells(1, 1), Cells(1, lc)), ",")

Debug.Print headers

Answer 1

您不能加入 Range ，你加入一个一维数组。这里隐含的是对 Range.Value 的调用。 ，由于该范围包含多个单元格，它将是一个二维变量数组:您需要将其传递给 Application.Transpose一次将其变成一维数组，再一次使其垂直，以便 VBA.Strings.Join功能将能够使用。

另外，请注意 implicit ActiveSheet references :除非该代码是在工作表模块中编写的(其中隐式限定符是 Me. )，否则所有这些不合格的 Range和 Cells无论 ActiveSheet是。

With ActiveSheet
    lc = .Cells(1, .Columns.Count).End(xlToLeft).column
    Dim headerCells As Variant
    headerCells = .Range(.Cells(1, 1), .Cells(1, lc)).Value '2D variant array
End With

Dim headers As String
headers = Join(Application.Transpose(Application.Transpose(headerCells)), ",")

Debug.Print headers