VBA 将B相邻的单元格且值相同的单元格进行合并

可以使用VBA中的循环来实现该功能。以下是一个示例代码：

Sub MergeCells()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row '获取B列最后一个非空单元格的行号
    
    For i = lastRow To 2 Step -1 '从最后一行开始往上遍历，不包括第一行
        If Cells(i, "B").Value = Cells(i - 1, "B").Value Then '如果当前单元格与上一个单元格值相同
            Range("B" & i - 1 & ":B" & i).Merge '合并两个单元格
        End If
    Next i
End Sub

该代码首先获取B列最后一个非空单元格的行号，然后从最后一行开始往上遍历，不包括第一行。在循环中，如果当前单元格与上一个单元格值相同，则合并两个单元格。最后，所有相邻且值相同的单元格都将被合并。