merge

合并单元格实例操作

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