小编Jbo*_*one的帖子

我所拥有的是已拆分为单独列的部分描述。所有列都有标题，但并非所有列都包含每个部分的信息，例如：有些可能有尺寸、材料和温度，而另一些可能只有尺寸和温度。我有一个连接它们的函数，它忽略空格。我想在我连接的每个单元格之前引用列的标题。

预期结果：

在 B6 中输入以下内容时 =ConcatenateRangeValve(G6:J6,",")

我想看到这些结果。[ITEM]阀门，[TYPE]Gate，[DIM]28IN

[ ] 中的项目在第 1:1 行中，我无法让我的函数引用与我拉标题所在的列相同的行。我认为它需要确定我正在工作的单元格在整个电子表格中的位置。我试图通过定义 C 来实现这一点，将其值设置为我范围内第一个单元格的列号，然后在循环时将其增加 1。我无法让它工作。所有其他部分都很好。见下文：

    Function ConcatenateRangeValve(ByVal cell_range As Range, _
         Optional ByVal seperator As String) As String



    Dim newString As String
    Dim cellArray As Variant
    Dim i As Long, j As Long
    Dim C As Long


    cellArray = cell_range.Value

    With Range("cell_range")
    C = .Column
    End With

    For i = 1 To UBound(cellArray, 1)
        For j = 1 To UBound(cellArray, 2)
              If Len(cellArray(i, j)) <> 0 Then
                newString = newString …