Excel دا قايتىلانغان ئۇچۇرلارنى ئۆچۈرۈۋېتىش

بەزىدە  Excel جەدۋىلىگە كىرگۈزۈلگەن ئۇچۇرلار ئىچىدە تەكرارلانغان سانلىق مەلۇماتلارنى ئۆچۈرىۋېتىشكە توغرا كىلىدۇ. ئۇ ۋاقىتتا  Excel نىڭ ماكرو خۇسۇسىيىتىدىن پايدىلانساق ناھايىتى تېزلا تەكرارلانغان ئۇچۇرنى ئۆچۈرىۋېتەلەيمىز.
تۆۋەندىكىلەرنى تەپسىللىي ئوقۇڭ ۋە مۇناسىۋەتلىك سانلىق مەلۇماتلارنى ئۆزگەرتىڭ.
پىروگرامما كودىدا ئۇيغۇر يېزىقىنى قوللىمىغاچقا ئۇيغۇر لاتىن يېزىقىدا يېزىلدى، شۇ ئەسكەرتىشلەرنى ئوقۇم، تەلەپ بويىچە بېجىرسىڭىز بولىدۇ. بارلىق تەكرارلانغان قۇرنى ئۆچۈرىۋېتىدۇ. ئۆچۈرۈشتىن بۇرۇن، ئەڭ ياخشىسى ئەسلى نۇسخىنى بىر نۇسخا زاپاسلىۋېلىڭ.
1. تەكرار ئۇچۇر كىرگۈزۈلگەن Excel نى ئېچىڭ.
2. Alt+F11 نى چېكىپ، ماكرو تەھرىرلىگۈچنى ئېچىڭ.
3. سول تەرەپ رامكىدىكى ThisWorkBook  نى قوش چېكىڭ
4. ئېچىلغان رامكىغا تۆۋەندىكى پىروگرامما كودىنى كوپىيەلەپ چاپلاڭ، ھەمدە بېجىرىڭ:

1. 
   
2. Sub TekrarUchurOchur()
   
3. 'col istondiki tekrar sanliq melumatni ochurush
   
4. 'Bu bolsa nami sheet1 bolghan EXCEL jedwilidiki A iston (A2 katekchidin bashlinidu) diki tekrar sanliq melumatni ochuridu
   
5. application.ScreenUpdating = False
   
6. 'Emeliy ehwalgha asasen towendiki uch qurning qur axiridiki qimmetni ozgerting
   
7. Dim sheetsCaption As String: sheetsCaption = "Sheet1"
   
8. Dim Col As String: Col = "A"
   
9. Dim StartRow As Integer: StartRow = 2
   
10. 'Towendikilerni ozgertmeng
    
11. Dim EndRow As Integer: EndRow = Sheets(sheetsCaption).Range(Col & "65536").End(xlUp).Row
    
12. Dim Count_1 As Integer: Count_1 = 0
    
13. Dim count_2 As Integer: count_2 = 0
    
14. Dim i As Integer: i = StartRow
    
15. With Sheets(sheetsCaption)
    
16. Do
    
17. Count_1 = Count_1 + 1
    
18. For j = StartRow To i - 1
    
19. If .Range(Col & i) = .Range(Col & j) Then
    
20. Count_1 = Count_1 - 1
    
21. .Range(Col & i).EntireRow.Delete
    
22. EndRow = Sheets(sheetsCaption).Range(Col & "65536").End(xlUp).Row
    
23. i = i - 1
    
24. count_2 = count_2 + 1
    
25. Exit For
    
26. End If
    
27. Next
    
28. i = i + 1
    
29. Loop While i < EndRow + 1
    
30. End With
    
31. MsgBox "Jem'i" & Count_1 & " dane tekrarlanmighan sanliq melumat bar"
    
32. MsgBox "Jem'i" & count_2 & " dane sanliq melumat ochuruldi"
    
33. Application.ScreenUpdating = True
    
34. End Sub
    

مەزمۇننى كۆچۈرۈۋېلىش

5. F5 كۇنۇپكىسىنى بېسىپ بېجىرسىڭىزلا بولىدۇ

ماڭا بەكلا لازىم ئىدى رەھمەت