. Em cảm ơn anh chị ạ!
Thế bạn đã thử ghi macro chưa?Dạ em chào các anh chị trong nhóm ạ! Xin các anh chị giúp em gộp cột tiêu đề hồ sơ lại với điều kiện 5 dòng một ô. Những dòng có chữ " hợp đồng công trình " thì mình sẽ giữ nguyên không gộp. Em mài từ sáng tới giờ mà cũng không tìm ra code phù hợp
Người ta nói "mài từ sáng đến giờ".
Dạ, em cảm ơn góp ý của anh ! Em có làm tay ở sheet ví dụ. Bình thường cứ gộp 5 dòng vào một ô. Nếu dòng nào có chữ "Hợp đồng công trình" thì sẽ bỏ ko gộp. Trường hợp nếu có 3 dòng xong dòng thứ 4 mà có chữ "hợp đồng công trình"thì sẽ gộp 3 dòng. Em đính lại file như bên dưới anh hỗ trợ giúp em với ạ! Em cảm ơn!
Dạ chưa á anh. Em là gà mờ mới vô cứ vào xem các công thức mấy anh viết trước xem có cái nào tương tương thì lắp vô chạy thử. Nên hôm qua em mới mạo mụi lên đây đăng nhờ các anh chỉ giúp ạ! Em cảm ơn!
Dạ hôm qua giờ miền trung đón áp thấp vô nên chưa có cơ hội để làm nũng á anh.
. Với em cũng là gà mờ nên bí quá nhờ các anh hỗ trợ giúp á. Em cảm ơn!
Option Explicit
Sub test()
Dim lr&, i&, j&, chuoi As String, st As String, u As Range
lr = Cells(Rows.Count, 4).End(xlUp).Row
chuoi = Range("L1").Value 'nhap giá tri chuoi can tim vao 1 o trong nao do, vi du: o L1
Application.DisplayAlerts = False ' Tat canh bao khi merge cells
For i = 5 To lr
j = 0: Set u = Nothing
If Cells(i, 4) Like chuoi & "*" Then GoTo z ' neu o chua gia tri can tim thi bo qua
Do While Not Cells(i + j, 4) Like chuoi & "*" And j <= 4 ' thuc hien khi o khong chua gia tri can tim VA so lan lap <=4
If u Is Nothing Then
Set u = Cells(i + j, 4): st = u.Value & vbLf ' u la ghep dia chi cac o lai, st la ghep chuoi text
Else
Set u = Union(u, Cells(i + j, 4)): st = st & Cells(i + j, 4) & vbLf
End If
j = j + 1
Loop
u.Merge: u.Value = st ' merge cac o da ghep, dan gia tri moi vao o da merge
i = i + j - 1
z:
Next
Application.DisplayAlerts = True
End SubDạ. em cảm ơn anh! Em thử chạy mà nó vẫn ko ra kết quả á anh.
Bạn chạy test trên file đính kèm, hay file khác?Dạ. em cảm ơn anh! Em thử chạy mà nó vẫn ko ra kết quả á anh.
Dạ chạy ok rồi anh á. Em cảm ơn anh nhiều nhé!
