如何在两个不同的列中连接所有字符串？

Question

不用开始弄乱多余的列等，还有没有比下面的代码中概述的使用double for循环更好的方法来连接两列中的字符串了？

Sub test(endra_celle As Range)
  Dim plass_i_årsakslister, c1 As Range, c2 As Range
  Dim i As Long, endra_rad As Long
  Dim ovnsnummer() As String

  endra_rad = endra_celle.Row

  Set plass_i_årsakslister = Range(Årsakslister.Range("C1"), _
                    Årsakslister.Range("XFD1").End(xlToLeft)).Find(What:= _
                    registrering.Range("C" & endra_rad).Value, _
                    LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)

  If Not plass_i_årsakslister Is Nothing Then
    With plass_i_årsakslister
      i = 0
      For Each c1 In Range(.Offset(2, 1), .Offset(1048575, 1).End(xlUp))
        For Each c2 In Range(.Offset(2, 3), .Offset(1048575, 3).End(xlUp))
          ReDim Preserve ovnsnummer(i)
          ovnsnummer(i) = CStr(c1) & CStr(c2)
          i = i + 1
        Next
      Next
    End With
  End If
End Sub

详细说明; 第一列中的每个单元格应与第二列中的每个单元格合并，所有组合应存储在数组（或其他集合）中。

Answer 1

像这样：

Dim a
a = WorksheetFunction.Transpose(Evaluate("A1:A9&B1:B9"))

只需将A1:A9和B1:B9替换为您的列范围即可。

之所以Evaluate()是因为Evaluate()正确地将其检测为数组公式并依次对每个单元进行操作。 但是，默认情况下，它将返回一个二维数组（该列始终等于1）。 Transpose()交换行和列，以便行始终为1，因此Excel可以返回一维数组。

Answer 2

可能有另一种方法来测试这是否适用于行数...

• 在每个范围上创建一个名称范围，例如A列上的FirstCol和B列上的SecondCol
• 保存您的工作簿（在我的示例Book1.xlsx中，c：\\ temp）
• 打开另一个工作簿，选择第一个工作表的单元格A1，然后选择“数据/来自其他来源/来自Microsoft Query
• 选择“数据库/ Excel文件”作为数据源
• 选择上面刚刚保存的书
• “查询向导/选择列”应该显示并显示您的2个数据范围firstCol和secondCol。
• 通过选择每个选项，然后单击>按钮，将它们放在“查询列”中
• 按下一步。 将出现有关联接表的错误消息。 只需忽略它，然后按OK。
• 完成后，它将打开一个带有“ Microsoft Query”和一些数据的窗口。
• 单击小按钮SQL，然后将出现一个带有SQL查询的窗口

• 在SQL语句中，用＆替换2列之间的逗号（以连接col1和col2的值），然后像后面的示例代码一样添加WHERE条件。 您可能必须根据您命名列和范围的方式进行调整。

   SELECT FirstCol.Col1 & SecondCol.Col2 FROM `C:\\temp\\Book1.xlsx`.FirstCol FirstCol, `C:\\temp\\Book1.xlsx`.SecondCol SecondCol WHERE (FirstCol.Col1>'') AND (SecondCol.Col2>'') 

通过在没有适当联接条件的情况下进行表的联接，您将执行SQL中称为表的“笛卡尔积”的操作，这意味着第一个表的每一行将与第二个表的每一行合并。 如果在FirstCol中有50行，在secondCol中有10行，那么结果将是500行...

当然，如果您有机会使用适当的数据库引擎，则可能会好得多，例如，使用在ORACLE DB中作为外部表加载的.csv文件。但是，这对我有用，但需要与您的测试数据集，因为如果您有很多行，响应时间可能会很糟糕...

希望能有所帮助

样品结果