Code Merge và in có điều kiện trong Excel (1 người xem)

[ngoctinh87]

Em có 1 file muốn merge và in có điều kiện, mong các thầy giúp
kết quả có ghi rõ trong file

 

[seikoqn]

File này điều kiện in là gì vậy bạn???

 

[ngoctinh87]

File này điều kiện in là gì vậy bạn???

ah mình nhầm,Sau khi Merge thì in theo cột STT đó, giả sử STT 1=>4 thì in lần 1, 1=>20 thì in lần 2..., nhưng phải có tiêu đề và phần chứ "người nhận và người giao" và số dòng thì có thay đổi khi dữ liệu có thêm

 

[phulien1902]

Em có 1 file muốn merge và in có điều kiện, mong các thầy giúp
kết quả có ghi rõ trong file

Bạn chép cái này vào Module chạy thử xem( Merge Cell dòng) thế nào nhé. Mình nghĩ bạn có thể Merge cột A nữa, nhìn nó đẹp hơn. Riêng cột D thì chưa Ok

Option Explicit
Sub ngoctinh87()
    Dim i As Range, Cll As Range, name As String
    Set i = Range("C3:C31")
    Application.DisplayAlerts = False
Thoat:
    For Each Cll In i
        If Cll.Value = Cll.Offset(1, 0).Value _
           And IsEmpty(Cll) = False Then
            Debug.Print Cll.Address
            Range(Cll, Cll.Offset(1, 0)).Merge
            Cll.Offset(0, -2).Resize(Cll.MergeArea.Rows.Count, 1).Merge
            Cll.Offset(0, 1).Resize(Cll.MergeArea.Rows.Count, 1).Merge
            GoTo Thoat
        End If
    Next
    Application.DisplayAlerts = True
End Sub

 

[ngoctinh87]

Bạn chép cái này vào Module chạy thử xem( Merge Cell dòng) thế nào nhé. Mình nghĩ bạn có thể Merge cột A nữa, nhìn nó đẹp hơn. Riêng cột D thì chưa Ok

Option Explicit
Sub ngoctinh87()
    Dim i As Range, Cll As Range, name As String
    Set i = Range("C3:C31")
    Application.DisplayAlerts = False
Thoat:
    For Each Cll In i
        If Cll.Value = Cll.Offset(1, 0).Value _
           And IsEmpty(Cll) = False Then
            Debug.Print Cll.Address
            Range(Cll, Cll.Offset(1, 0)).Merge
            Cll.Offset(0, -2).Resize(Cll.MergeArea.Rows.Count, 1).Merge
            Cll.Offset(0, 1).Resize(Cll.MergeArea.Rows.Count, 1).Merge
            GoTo Thoat
        End If
    Next
    Application.DisplayAlerts = True
End Sub

Cột A, và C thì ok rồi, Cột D chưa được bạn ah, vì một số cty ty khác bị mất mà không phải trùng, mong bạn giúp mình lần nữa

 

[ngoctinh87]

Mong mọi người giúp đỡ, mình đang cần

 

[ngoctinh87]

Mong mọi người giúp Mình với