相同单元格合并

rmsc_kr

姓名	季度	金额
王  三	第一季度	256
王  三	第二季度	325
王  三	第三季度	458
王  三	第四季度	256
鲁  四	第一季度	2165
鲁  四	第二季度	264
鲁  四	第三季度	12564
鲁  四	第四季度	465
鲁  五	第一季度	456
鲁  五	第二季度	5465
鲁  五	第三季度	4565
鲁  五	第四季度	465
蔡  六	第一季度	465
蔡  六	第二季度	465
蔡  六	第三季度	456
蔡  六	第四季度	4564

代码：
Sub 合并()
Application.DisplayAlerts = False
Dim x%
Dim ra As Range
Set ra = Range("a" & 2)
For x = 2 To Range("a65535").End(3).Row
   If Range("a" & x) = Range("a" & x + 1) Then
   Set ra = Application.Union(ra, Range("a" & x + 1))
   Else
   ra.Merge
   Set ra = Range("a" & x + 1)
   End If
Next
Application.DisplayAlerts = True
End Sub