xóa dữ liệu trùng

Liên hệ QC

danhdanh81

Thành viên mới
Tham gia
18/4/08
Bài viết
29
Được thích
4
giúp em vd sau?.
em có code xóa rồi nhưng chạy chậm vì em dùng 2 vòng lặp for nhưng các bác có bac nào có code hay cho em xin với em xin cảm ơn
 

File đính kèm

giúp em vd sau?.
em có code xóa rồi nhưng chạy chậm vì em dùng 2 vòng lặp for nhưng các bác có bac nào có code hay cho em xin với em xin cảm ơn
Bạn ơi... TRỜI
- Xóa là xóa thế nào? Xóa dử liệu trong cell hay xóa nguyên 1 dòng
- Cụ thể là tìm trùng tại cột nào? dòng nào? hay chỉ trong cột D thôi?
- Bạn nói bạn đã có code sao không đưa luôn lên đây
- Xem sheet kq thấy có cell C3 bị merge là khác so với sheet 1, ngoài ra là y chang ---> Vậy mà gọi là XÓA đấy sao?
----------------
"Quăng" file lên mà giải thích chẳng rõ ràng gì cả
 
Lần chỉnh sửa cuối:
xin lỗi anh nha. em chỉ muốn trong file TKB của em có 3 tiết trùng hoặc 5 tiết trùng thì merge vào thôi.

code này mới sử lý từ thứ 2 đến thứ 6 nhưng có vài lỗi
PHP:
sub xoa()
For i = 3 To 17
For j = 5 To 20 Step 5
If Cells(j, i) = Cells(j - 2, i) Then
Cells(j, i) = ""
Cells(j - 1, i) = ""
Cells(j + 2, i) = ""
Range(Cells(j - 2, i), Cells(j, i)).Select
Selection.Merge
Range(Cells(j + 2, i), Cells(j + 1, i)).Select
Selection.Merge
 Else
Cells(j - 1, i) = ""
Cells(j + 2, i) = ""
Cells(j + 1, i) = ""
Range(Cells(j - 2, i), Cells(j - 1, i)).Select
Selection.Merge
Range(Cells(j + 2, i), Cells(j, i)).Select
Selection.Merge
 End If
 Next
 Next
 
End Sub
 
Chỉnh sửa lần cuối bởi điều hành viên:
Web KT

Bài viết mới nhất

Back
Top Bottom