獲取行數的公式:usedrange.rows.count函數
offset/risize/merge等函數的使用。code
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