Gộp dòng có điều kiện

Chào mọi người!
E có file dữ liệu sau khi tự động thêm dòng bằng VBA rồi cần gộp dòng trên ( có data ) với dòng liền kề phía dưới ( không có data ) ( Gộp dòng ở cột AA )
Mọi người giúp e với ạ
Em cảm ơn!
224

Dữ liệu nhiều cần thêm các lệnh tăng tốc code. Kiểm tra lại

Sub ABC()
  Dim rng As Range, eRow&, sR&, i&
  With Sheets("Sheet1")
    eRow = .Range("B1000000").End(xlUp).Row
    If eRow < 3 Then MsgBox ("Khong co du lieu!"): Exit Sub
    For i = 3 To eRow
      sR = .Range("C" & i).MergeArea.Rows.Count
      If sR > 1 Then
        Set rng = .Range("C" & i).MergeArea
        i = i + sR - 1
      ElseIf Not rng Is Nothing Then
        Set rng = Union(rng, .Range("C" & i))
        If i = eRow Or .Range("C" & i + 1).MergeArea.Rows.Count > 1 Then
          rng.Merge
        End If
      End If
    Next i
  End With
End Sub

www.giaiphapexcel.com/diendan/threads/g%E1%BB%99p-d%C3%B2ng-c%C3%B3-%C4%91i%E1%BB%81u-ki%E1%BB%87n.162038/#post-1081901

Khóa học SprinGO phù hợp

Khoá học Trưởng phòng nhân sự

Nguồn nhân lực là một trong Tứ trụ kinh doanh của doanh nghiệp, có tác động tới sự tồn tại và phát triển bền...

Xem khóa học