Bạn đưa file lên xem nào?
Mong mọi người quan tâm xem giúp....
Giả sử rằng 2 shapes được gọi là trùng nhau nếu có chung 2 thuộc tính Left, Top (nghĩa là nằm cùng vị trí), thực ra thì chúng cần có cùng 2 thuộc tính Height, Width (cùng kích thước) nhưng có lẽ 2 thuộc tính Height, Width không cần thiết lắm với thực tế trong file nên có thể bỏ qua.
Sub RemoveDuplicateShapes()
Dim i As Long, j As Long
i = 1
With Sheet1
Do
j = i + 1
Do
If .Shapes(j).Top = .Shapes(i).Top And .Shapes(j).Left = .Shapes(i).Left Then .Shapes(j).Delete
j = j + 1
Loop Until j > .Shapes.Count
i = i + 1
Loop Until i = .Shapes.Count
End With
End SubMsgbox Sheet1.Shapes.Count- Bạn mở file ra, nhấn Alt+F11 để mở cửa sổ VBE --> chọn Insert\Module --> dán code trên vào khung soạn thảo bên phải --> nhấn F5 để chạy code.
Sub delDoubLine()
Dim i As Long, j As Long, cS As Long
MsgBox ActiveSheet.Shapes.Count
On Error Resume Next
Do
cS = Me.Shapes.Count
For i = 1 To cS - 1
For j = i + 1 To cS
If Me.Shapes(i).Left = Me.Shapes(j).Left And Me.Shapes(i).Top = Me.Shapes(j).Top And Me.Shapes(i).Width = Me.Shapes(j).Width Then
Me.Shapes(j).Delete
End If
Next
Next
Loop Until cS = Me.Shapes.Count
MsgBox Me.Shapes.Count
End Sub
bạn có thể làm thành file .xla để mình dùng vào "add in" luôn được k? thanks bạn nhiều, mình đang cần, file nặng quá làm nản 
Đây là code đã chuyển thành addin 2003bạn ơi bạn sửa giúp mình đc k? mình thử nhiều lần mà sao k đc. toàn báo lỗi
Theo mình đâu cần phải Code làm gì
