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

[Luong24]

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!

 

[Hoàng Tuấn 868]

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!
View attachment 280979

Thử tham khảo tại đây.

 

[VetMini]

Thử tham khảo tại đây.

E không biết cách tham khảo.

 

[be_09]

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!
View attachment 280979

Muốn Merge & Center thì điều kiện cần là trong cột đó hoặc dựa vào một cột khác có cùng nội dung giống nhau.

 

[HieuCD]

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!
View attachment 280979

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