使用多列的宏级联

Question

请任何人帮助使用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

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）

在这里，您无需担心确切的细胞数量。