3

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

期望的结果：

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

我想看看这些结果。[ITEM]阀门，[TYPE]闸门，[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 & (seperator & "[" & cells(1, C) & "]")
                newString = newString & (cellArray(i, j))
            End If
           C = C + 1
        Next
    Next

    If Len(newString) <> 0 Then
        newString = Right$(newString, (Len(newString) - Len(seperator)))
    End If

    ConcatenateRangeValve = newString

    End Function

提前感谢你们可以提供的任何帮助。

4

3 回答 3

6

您可以通过多种不同的方式来执行此操作，但您可以像使用工作表一样引用范围内的单元格。如果您的命名范围包含标题：

Range("NamedRange").Cells(1,1)

如果您的命名范围从标题下方开始：

Range("NamedRange").Offset(-1,0)

对于所有其他情况：

Range(Cells(1,Range("NamedRange").Column))

于 2014-11-07T13:35:34.973 回答
2

我不是 100% 这与 OP 的问题有关，但就标题和未来的读者而言，这对我有用。

Dim Rng As Range, FirstIteminRng As Range
Set Rng = Range("A1:B10")
Set FirstIteminRng = Cells(Rng.Row,Rng.Column)
FirstIteminRng.Select
于 2021-01-30T23:38:17.890 回答
1

所以，我是 VBA 的新手，显然我使用了错误的命名范围。我想出的解决方案是更换

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

和

' cell_range(1).column returns the column index of the starting range from the passed variable
  C = cell_range(1).Column

这将返回与电子表格中的列对应的数字，即数组的第一个单元格所在的位置。这允许我使用 C 引用列标题。

于 2014-11-07T18:49:55.647 回答