vba - EXCEL - 根据单元格值有条件地合并行的宏

Question

如果当前行的 Col C 的内容为空，我正在使用 VBA 宏，它将当前行的内容与前一行的内容合并

输入
上校 | 上校 B | 科尔C
文本1A | 文本1B | 1
文本2A | 文本2B |
文本3A | 文本3B |
文本4A | 文本4B | 2
文本5A | 文本5B |

输出
上校 | 上校 B | 科尔C
文本1A 文本2A 文本3A | text1B text2B test3B | 1
text4A text5A | 文本4B 文本5B | 2

有类似的问题，但我对 VBA 的了解太基础，无法将答案应用于此特定案例。谢谢！

Answer 1

我认为这个问题将帮助您找到所需的解决方案。您的问题几乎是一个重复的问题。

Sub mergeCategoryValues()
Dim lngRow As Long

With ActiveSheet
    lngRow = .Cells(65536, 1).End(xlUp).Row
    .Cells(1).CurrentRegion.Sort key1:=.Cells(1), Header:=xlYes

    Do
        If .Cells(lngRow, 1) = .Cells(lngRow - 1, 1) Then
            .Cells(lngRow - 1, 3) = .Cells(lngRow - 1, 3) & "; " & .Cells(lngRow, 3)

            .Rows(lngRow).Delete
        End If

        lngRow = lngRow - 1
    Loop Until lngRow = 1
End With
End Sub

此代码对我有用。答案发布在此处的问题上