使用多列的macros连接

请任何人帮忙连接使用Excel 2007macros的单元格。 我有列A到E.我想连接列F中的所有列。请注意，我不知道在所有列中的确切数量的行，但macros应停止连接时，在没有值列。 样品：

 ABCDEF O ABC DEF GHI E OABCDEFGHIE O JKL MNO PQR E OJKLMNOPQRE O STU VWXYZ E OVWXYZ 

Answer 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 

它可能看起来很长，但我希望你会有一些想法…

Answer 2

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

在列F = CONCATENATE（A1，B1，C1，D1，E1）中使用此公式

Answer 3

设置一列，把公式放在最重要的单元格旁边。 。

=：连接（$ A1：$ somecell1）

在这里你不必担心确切的细胞数量。