合併單元格實例操做

幫我熟悉:

  1. 獲取行數的公式:usedrange.rows.count函數

  2. 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
相關文章
相關標籤/搜索