khanhnth02
Thành viên thường trực
- Tham gia
- 5/8/07
- Bài viết
- 324
- Được thích
- 35
Với file này tôi thấy dùng code thì tiện hơn. Còn Ct thì tôi chưa biết cách.làm thế nào để hoá đơn có nhiều liên sẽ tự kết hợp thành một liên...? sao cho giống như file dưới đây. cảm ơn các anh chị nhé
Sub XoaDong()
Dim Cll As Range
Sheet1.Activate
Set Cll = [B6]
Do
Do While Cll.Offset(1, -1) <> "" And Cll.Offset(1) = ""
Cll.Offset(, -1) = Cll.Offset(, -1) & "-" & Right(Cll.Offset(1, -1), [COLOR=#ff0000][B]1[/B][/COLOR])
Cll.Offset(1).EntireRow.Delete
Loop
Set Cll = Cll.Offset(1)
Loop Until Cll.Offset(, -1) = ""
End Sub
Chủ đề này bạn đã hỏi ở đây:làm sao để cho ra kết quả như ở cột E. Cảm ơn các anh chị nhiều nhé!
View attachment 68422