帮我熟悉:
获取行数的公式:usedrange.rows.count
offset/risize/merge等函数的使用。
Sub 合并单元格()
Application.DisplayAlerts = False
Dim i%, k%
i = UsedRange.Rows.Count
For k = i To 2 Step -1
If Cells(k, 1) = Cells(k, 1).Offset(-1) Then
Cells(k, 1).Offset(-1).Resize(2).Merge
End If
Next