EXCEL 2010 MACRO包含不同行数的连接单元

我有10个超过10K行的Excel文件。

我想连接一个已经被分解成不同行的描述字段。 一些logging有两行，一些有三行，有些甚至有五六行！每一条logging都有一行，唯一的代码或行号。

我已经尝试嵌套如果函数，但它确定何时有4行或更多的logging时，它变得太复杂了。

该文件如下所示：

AB CODIGO DESCRIPCIÓN 
 R2 Dos Renglones 2R, Renglón Dos R3 Tres Renglones 3R, Renglón 2 3R, Renglón 3 R4 Cuatro Renglones 4R, Renglón 2 4R, Renglón 3 4R, Renglón 4 R5 Cinco Renglones 5R Renglón 2 5R Renglón 3 5R Renglón 4 5R Renglón 5 R21 Dos Renglones 2R, Renglón Dos R51 Cinco Renglones 5R Renglón 2 5R Renglón 3 5R Renglón 4 5R Renglón 5 R31 Tres Renglones 3R, Renglón 2 3R, Renglón 3 

是否有一系列公式或macros可以用来实现这些？

提前致谢。

Answer 1

试试这个代码：

 Sub sample() Dim lastRow As Long lastRow = Range("B" & Rows.Count).End(xlUp).Row Dim CellA As String Dim CellB As String For i = 2 To lastRow CellA = IIf(Cells(i, 1) = "", CellA, Cells(i, 1)) CellB = Cells(i, 2) Cells(i, 3) = CellA & " " & CellB Next End Sub 

更新的代码

 Sub sample() Dim lastRow As Long lastRow = Range("B" & Rows.Count).End(xlUp).Row Dim firstCell As Boolean Dim dataCell As Range Dim strVal As String For i = 2 To lastRow If Cells(i, 1) <> vbNullString Then begin: If firstCell = False Then Set dataCell = Cells(i, 1) firstCell = True strVal = vbNullString strVal = Cells(i, 2) Else Cells(dataCell.Row, 3) = strVal firstCell = False GoTo begin End If Else strVal = strVal & ", " & Cells(i, 2) End If Next Cells(dataCell.Row, 3) = strVal End Sub