Xin mọi người giúp đỡ việc bẫy lỗi trong xóa dữ liệu trùng lặp các dòng (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
T

thungdols

Thành viên chính thức
Tham gia
27/3/09
Bài viết
66
Được thích
2
Mã: 
[COLOR=#0000BB][FONT=monospace][I]Option Explicit
Sub DelRows[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]()
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Dim lCol [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Integer[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]lRw [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Long[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Jj [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Integer
Dim Rng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Clls [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]sRng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]dRng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range
Dim Cll [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range
Dim MyAdd [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]String

Sheet1[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Select
[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]WorksheetFunction[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]CountA[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cells[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]) > [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]0 Then
lRw [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cells[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Find[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]What[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[/I][/FONT][/COLOR][COLOR=#DD0000][FONT=monospace][I]"*"[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]After[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]A1[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]SearchOrder[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]xlByRows[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]_
SearchDirection[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]xlPrevious[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Row
lCol [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cells[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Find[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]What[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[/I][/FONT][/COLOR][COLOR=#DD0000][FONT=monospace][I]"*"[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]After[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]A1[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]SearchOrder[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]xlByColumns[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]_
SearchDirection[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]xlPrevious[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Column [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]+ [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]1
End [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cells[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Interior[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]ColorIndex [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]0
Columns[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#DD0000][FONT=monospace][I]"A:A"[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Insert Shift[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]xlToRight
[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I][[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]A1[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Value [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#DD0000][FONT=monospace][I]"=SUM(RC[1]:RC[12])"
[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I][[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]A1[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]AutoFill Destination[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#DD0000][FONT=monospace][I]"A1:A" [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]& [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]lRw[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]), [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Type[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]xlFillDefault
[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]For [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Each Clls In Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#DD0000][FONT=monospace][I]"A1:A" [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]& [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]lRw[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I])
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Set Rng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Clls[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Offset[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]1[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]), [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cells[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]lRw[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]1[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]))
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Set sRng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Rng[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Find[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Clls[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Value[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], , [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]xlValues[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]xlWhole[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I])
If [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Not sRng Is Nothing Then
MyAdd [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]sRng[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Address
[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]Do
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Jj [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]0
[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]For [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Each Cll In Clls[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Offset[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I](, [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]1[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Resize[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I](, [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]lCol [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]- [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]1[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I])
If [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cll[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Value [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]<> [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cells[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]sRng[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Row[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cll[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Column[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Value Then [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]Exit For
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Jj [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Jj [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]+ [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]1
Next
[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Jj [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]lCol [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]- [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]1 Then
[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]dRng Is Nothing Then
Set dRng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]sRng
[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]Else
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Set dRng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Union[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]dRng[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]sRng[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I])
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]End [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]End [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Set sRng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Rng[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]FindNext[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]sRng[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I])
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Loop [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]While [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Not sRng Is Nothing [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]And [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]sRng[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Address [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]<> [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]MyAdd
[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Not dRng Is Nothing Then
dRng[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]EntireRow[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Delete[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]: [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Set dRng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Nothing
Clls[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Resize[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I](, [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]lCol[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Interior[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]ColorIndex [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]34 [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]+ [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Clls[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Row Mod 7
End [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]End [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Next Clls

Columns[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#DD0000][FONT=monospace][I]"A:A"[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Delete
End Sub  [/I][/FONT][/COLOR]

Code xóa dòng trùng của bác SA_DQ. chạy rất tốt khi có dòng dữ liệu trùng lặp. Nhưng nếu dữ liệu không có dòng nào trùng thì xóa luôn dòng cuối cùng và báo lỗi. Giờ em muốn bẫy lỗi với ko xóa dòng khi không có dữ liệu trùng lặp. Mong mọi ngưòi giúp.}}}}}}}}}}}}}}}}}}}}}}}}}
 
Sắp xếp theo thời gian sắp xếp theo bầu chọn
thungdols đã viết:
Mã: 
[COLOR=#0000BB][FONT=monospace][I]Option Explicit
Sub DelRows[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]()
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Dim lCol [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Integer[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]lRw [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Long[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Jj [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Integer
Dim Rng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Clls [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]sRng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]dRng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range
Dim Cll [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range
Dim MyAdd [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]As [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]String

Sheet1[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Select
[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]WorksheetFunction[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]CountA[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cells[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]) > [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]0 Then
lRw [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cells[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Find[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]What[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[/I][/FONT][/COLOR][COLOR=#DD0000][FONT=monospace][I]"*"[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]After[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]A1[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]SearchOrder[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]xlByRows[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]_
SearchDirection[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]xlPrevious[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Row
lCol [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cells[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Find[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]What[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[/I][/FONT][/COLOR][COLOR=#DD0000][FONT=monospace][I]"*"[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]After[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]A1[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]SearchOrder[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]xlByColumns[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]_
SearchDirection[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]xlPrevious[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Column [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]+ [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]1
End [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cells[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Interior[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]ColorIndex [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]0
Columns[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#DD0000][FONT=monospace][I]"A:A"[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Insert Shift[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]xlToRight
[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I][[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]A1[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Value [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#DD0000][FONT=monospace][I]"=SUM(RC[1]:RC[12])"
[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I][[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]A1[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]AutoFill Destination[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#DD0000][FONT=monospace][I]"A1:A" [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]& [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]lRw[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]), [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Type[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]xlFillDefault
[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]For [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Each Clls In Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#DD0000][FONT=monospace][I]"A1:A" [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]& [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]lRw[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I])
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Set Rng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Clls[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Offset[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]1[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]), [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cells[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]lRw[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]1[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]))
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Set sRng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Rng[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Find[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Clls[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Value[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], , [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]xlValues[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]xlWhole[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I])
If [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Not sRng Is Nothing Then
MyAdd [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]sRng[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Address
[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]Do
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Jj [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]0
[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]For [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Each Cll In Clls[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Offset[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I](, [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]1[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Resize[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I](, [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]lCol [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]- [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]1[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I])
If [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cll[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Value [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]<> [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cells[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]sRng[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Row[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cll[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Column[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Value Then [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]Exit For
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Jj [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Jj [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]+ [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]1
Next
[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Jj [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]lCol [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]- [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]1 Then
[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]dRng Is Nothing Then
Set dRng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]sRng
[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]Else
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Set dRng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Union[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]dRng[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]sRng[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I])
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]End [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]End [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Set sRng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Rng[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]FindNext[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]sRng[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I])
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Loop [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]While [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Not sRng Is Nothing [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]And [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]sRng[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Address [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]<> [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]MyAdd
[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Not dRng Is Nothing Then
dRng[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]EntireRow[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Delete[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]: [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Set dRng [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Nothing
Clls[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Resize[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I](, [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]lCol[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Interior[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]ColorIndex [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]34 [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]+ [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Clls[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Row Mod 7
End [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]End [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]If
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Next Clls

Columns[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#DD0000][FONT=monospace][I]"A:A"[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Delete
End Sub  [/I][/FONT][/COLOR]

Code xóa dòng trùng của bác SA_DQ. chạy rất tốt khi có dòng dữ liệu trùng lặp. Nhưng nếu dữ liệu không có dòng nào trùng thì xóa luôn dòng cuối cùng và báo lỗi. Giờ em muốn bẫy lỗi với ko xóa dòng khi không có dữ liệu trùng lặp. Mong mọi ngưòi giúp.}}}}}}}}}}}}}}}}}}}}}}}}}
Nhấp chuột vào đây để mở rộng...
Bạn sửa dòng
Mã: 
Set Rng = Range(Clls.Offset(1), Cells(lRw, 1))
thành
Mã: 
Set Rng = Range(Clls.Offset(1), Cells(lRw + 1, 1))
Tuy nhiên, yêu cầu của bạn chỉ cần dùng Advance Filter với tùy chọn Unique records only là ra kết quả (không tính phần tô màu)
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

B
Sau 1 tháng Mã Lại reset về 1 trở lên (1 người xem)
Trả lời
6
Đọc
83
ongke0711
ongke0711
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
3 4 5
Trả lời
411
Đọc
50K
ongke0711
ongke0711
H
Đánh số thứ thự phiếu thu chi
Trả lời
11
Đọc
159
HangktGTN
H
H
Tìm kiếm thông tin chi tiết trên sheet tổng hợp (1 người xem)
Trả lời
1
Đọc
51
LOGANWover
L
N
  • Question Question
Cho em hỏi về mail merge bằng vba
Trả lời
3
Đọc
85
Hoàng Tuấn 868
H
T
Xin hỏi về bảng lương (2 người xem)
Trả lời
0
Đọc
47
tuandovn
T
Gà Công Nghệ
Tô màu họ và tên bị trùng từ 2 sheet khác nhau (1 người xem)
Trả lời
6
Đọc
105
Gà Công Nghệ
Gà Công Nghệ
A
  • Question Question
Giải thích giúp mình code giải phóng bộ nhớ từ biến
Trả lời
20
Đọc
9K
nguyendang95
N
Nguyenkhang2404
giúp đỡ lọc dữ liệu nâng cao (1 người xem)
Trả lời
22
Đọc
722
Phan Thế Hiệp
Phan Thế Hiệp
B
Dùng button trên forrm để gọi bàn phím ảo win 10(OSK) (1 người xem)
Trả lời
5
Đọc
123
huhumalu
H
P
VẼ ĐƯỜNG TẦN SUẤT (DTS) TRÊN EXCEL (1 người xem)
Trả lời
8
Đọc
188
ptm0412
ptm0412
P
GOAL SEEK NÂNG CAO TRONG EXCEL (2 người xem)
    • Thích
Trả lời
4
Đọc
199
Hoale85
H
B
Gán Phím Tắt Gọi Form (1 người xem)
Trả lời
7
Đọc
98
HeSanbi
HeSanbi
K
Điền giá trị ô thay vì địa chỉ ô (1 người xem)
Trả lời
2
Đọc
126
LOGANWover
L
G
Chia sẻ các bạn File vẽ kèo Zamil từ excel (1 người xem)
    • Thích
    • Yêu thích
Trả lời
11
Đọc
911
trqt82
T
T
Xin trợ giúp cách lọc trùng về khoảng thời gian
Trả lời
10
Đọc
2K
Phan Thế Hiệp
Phan Thế Hiệp
L
Xin hàm trích xuất chuỗi trong ô
Trả lời
12
Đọc
207
LINH7979
L
H
[Xin giúp đỡ] Tìm thời gian trùng ở nhiều khoảng thời gian khác nhau. (1 người xem)
Trả lời
14
Đọc
2K
Phan Thế Hiệp
Phan Thế Hiệp
N
Thuế thu nhập cá nhân
    • Chấp nhận
Trả lời
3
Đọc
273
ngouyen1505
N
D
Lọc các ô có dữ liệu trùng nhau trong một cột. Xin chỉ giúp (1 người xem)
Trả lời
7
Đọc
310
Gà Công Nghệ
Gà Công Nghệ
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom