excel 合并一行的前面相同的列

不怕你数据多，不怕你数据乱，只要相同就合并，试试哦
Sub Macro1()
Application.DisplayAlerts = False
BR = Sheets(1).[B65536].End(xlUp).Row
b1 = 1
For I = 2 To BR + 1
If Cells(I, 2) <> Cells(I - 1, 2) T