Xin code Merge ô dữ liệu giống nhau theo vùng điều kiện (1 người xem)

[Duc9184]

Xin chào các anh, chị,

Em muốn viết 1 sub để tự động gộp các ô dữ liệu giống nhau theo cột và xét theo điều kiện của cột điều kiện, giống như file ví dụ đính kèm.
Nhờ các anh chị hướng dẫn hoặc viết giúp em viết sub trên.

Xin cảm ơn!

 

[giaiphap]

Xin chào các anh, chị,

Em muốn viết 1 sub để tự động gộp các ô dữ liệu giống nhau theo cột và xét theo điều kiện của cột điều kiện, giống như file ví dụ đính kèm.
Nhờ các anh chị hướng dẫn hoặc viết giúp em viết sub trên.

Xin cảm ơn!

Dùng thử code này.

Public Sub GPE()
Dim Rng As Range, mRng As Range
Application.DisplayAlerts = False
For Each Rng In Sheet1.Range("B3", Sheet1.Range("B65000").End(xlUp))
    If (mRng Is Nothing) Or (Rng.Offset(, -1).Value <> Rng.Offset(-1, -1).Value) Then
        If Not mRng Is Nothing Then mRng.Merge
        Set mRng = Rng
    ElseIf Rng.Offset(, -1).Value = Rng.Offset(-1, -1).Value Then
        Set mRng = Union(mRng, Rng)
    End If
Next Rng
Application.DisplayAlerts = True
End Sub

 

[ndu96081631]

Xin chào các anh, chị,

Em muốn viết 1 sub để tự động gộp các ô dữ liệu giống nhau theo cột và xét theo điều kiện của cột điều kiện, giống như file ví dụ đính kèm.
Nhờ các anh chị hướng dẫn hoặc viết giúp em viết sub trên.

Xin cảm ơn!

Khuyên bạn không nên merge kiểu đó. Excel là dùng để tính toán, merge tùm lum rồi sao tính toán? Cho dù không tính toán thì ngay cả việc thiết lập công thức tham chiếu cũng là chuyện khó khăn rồi

 

[Duc9184]

Dùng thử code này.

Public Sub GPE()
Dim Rng As Range, mRng As Range
Application.DisplayAlerts = False
For Each Rng In Sheet1.Range("B3", Sheet1.Range("B65000").End(xlUp))
    If (mRng Is Nothing) Or (Rng.Offset(, -1).Value <> Rng.Offset(-1, -1).Value) Then
        If Not mRng Is Nothing Then mRng.Merge
        Set mRng = Rng
    ElseIf Rng.Offset(, -1).Value = Rng.Offset(-1, -1).Value Then
        Set mRng = Union(mRng, Rng)
    End If
Next Rng
Application.DisplayAlerts = True
End Sub

Cảm ơn đã chia sẻ

Khuyên bạn không nên merge kiểu đó. Excel là dùng để tính toán, merge tùm lum rồi sao tính toán? Cho dù không tính toán thì ngay cả việc thiết lập công thức tham chiếu cũng là chuyện khó khăn rồi

Cảm ơn anh đã chia sẻ kinh nghiệm.