如何在excel公式中为列表追加一个字符串(DropDown)

时间:2016-04-26 06:33:23

标签: excel vba excel-vba excel-formula

我在sheet2小区F6有一个下拉列表,其中包含来自sheet1的公式=Sheet1!$1:$1的列表,它给了我一个包含值的列表Header1,Header2,Header3,Header4,..。 我想要实现的是这些值应该像[Header1],[Header2],[Header3],.. 有没有办法实现使用excel公式或VBA(除了带有for循环的数组)。 我正在搜索"["&=Sheet1!$1:$1 &"]"

之类的内容

1 个答案:

答案 0 :(得分:0)

使用以下代码完成(如果有人需要有关如何在excel VBA中读取行的参考)

    Dim objSheet As Worksheet
    Set objSheet = Sheets(1)
    Dim intLastCellIndexInRow As Integer
    intLastCellIndexInRow = ActiveCell.SpecialCells(xlLastCell).Column
    Dim i As Integer
    Dim strRowValue As String

    For i = 1 To intLastCellIndexInRow
      If objSheet.Cells(1, i) <> "" Then
        strRowValue = strRowValue & ",[ " & objSheet.Cells(1, i) & "]"
      End If
    Next