如果列具有特定值，则Excel VBA宏合并

Question

A栏：值不是问题 B栏：某些数字，例如B3可能是3，B4可能是3，B5可能是3，B6可能是4，等等。

如果B列中的相邻单元格相同，我希望能够合并A列中的单元格 使用相同的例子，A​​3-A5将被合并

非常感谢任何和所有帮助！

Answer 1

Sub MergeSameValue()

For Each cell In Sheet1.Columns(1).Cells
    If cell.Value = "" Then Exit Sub
    If cell.Value = cell.Offset(0, 1).Value Then
        cell.Offset(0, 1).Value = ""
        Range(cell, cell.Offset(0, 1)).Merge
    End If
Next

End Sub