使用多列的宏连接答案

【问题标题】：Using macro Concatenation of Multiple Columns使用多列的宏连接
【发布时间】：2014-09-23 04:55:03
【问题描述】：

请任何人帮助使用 Excel 2007 宏连接单元格。我有 A 到 E 列。我想连接 F 列中的所有列。请注意，我不知道所有列中的确切行数，但是当上述没有值时，宏应该停止连接列。示例：

A B C D E F O ABC DEF GHI E OABCDEFGHIE O JKL MNO PQR E OJKLMNOPQRE O STU VWXYZ E OVWXYZE

【问题讨论】：

Exel - Concatenate many columns的可能重复

标签： vba excel excel-2007

【解决方案1】：

也许你可以试试下面的代码：

Sub concat()
Dim i As Integer
For i = 1 To ActiveSheet.UsedRange.Rows.Count
For j = 1 To 1
If (Cells(i, j).Value <> "") And (Cells(i, j + 1).Value <> "") And (Cells(i, j + 2).Value <> "") Then
Sheets("Sheet1").Range("D" & i).Value = Cells(i, j).Value + Cells(i, j + 1).Value + Cells(i, j + 2).Value
Else
Sheets("Sheet1").Range("D" & i).Value = "Empty cell found"
End If
Next j
Next i
End Sub

它可能看起来很长，但我希望你能有所了解......

【讨论】：

我会使用相同的逻辑，但要进行一次更改...我'
我会使用相同的逻辑...但我更喜欢将范围复制到数组中并获得更好的性能

【解决方案2】：

您可以简单地使用excel公式CONCATENATE，检查以下行：

在 F 列中使用此公式=CONCATENATE(A1,B1,C1,D1,E1)

【讨论】：

【解决方案3】：

设置一列以将公式放在最重要的单元格旁边。 .

=连接($A1:$somecell1)

在这里，您不必担心确切的单元格编号。

【讨论】：