İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Çoğaltılanları aradan qaldırmaq, lakin Excel-də ilk instansiyanı necə saxlamaq olar?

Diyelim ki, bəzi dublikatları olan iş səhifənizdə dəyərlər siyahısı mövcuddur, indi dublikatları aradan qaldırmaq lazımdır, lakin dublikatın olduğu yerin ilk satırını saxlamalısınız. Bu yazıda, cütlüyü aradan qaldırmağa dair iki üsul göstərəcəyik, lakin Excel-də ilk nümunəni saxlayırıq.

Çoğaltıcıları silin, lakin ilk növbədə VBA kodu ilə saxlayın

Çoğaltıcıları sil, lakin Excel üçün Kutools ilə ilk instansiya tutun


Siyahıda bütün dublikatları və ya unikal dəyərləri asanlıqla vurğulamaq

ilə Excel üçün Kutools's Duplicate & Unique Cells seçin yardım proqramında, Excel-də bir siyahıda bütün dublikatları və ya uqiq dəyərlərini tezliklə vurğulamaq olar.

Excel üçün Kutools 300-dən çox lazımlı Excel alətləri daxildir. 60 gün ərzində heç bir məhdudiyyətsiz cəhd edin. İndi pulsuz sınaq yükləyin


Çoğaltıcıları silin, lakin ilk növbədə VBA kodu ilə saxlayın


Çoğaltılanları aradan qaldırmaq üçün ilk olaraq bir sütunda saxlamaq üçün aşağıdakı VBA kodunu çalıştırabilirsiniz.

1. Basın Dayandırmaq + F11 açmaq üçün Proqramlar üçün Microsoft Visual Basic dialoq qutusu.

2. İçində Proqramlar üçün Microsoft Visual Basic informasiya qutusuna basın Taxmaq > Modules. Sonra kodu kodunu aşağıdakı kodu kopyalayıb yapışdırın.

VBA kodu: çoğaltıcıları aradan qaldırın, lakin ilk növbədə saxlayın

Sub TrimExcessSpaces()
	Dim Rng As Range
	Dim WorkRng As Range
	Dim dic As Variant
	Set dic = CreateObject("Scripting.Dictionary")
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Columns(1)
	For Each Rng In WorkRng.Cells
		dic(Rng.Value) = ""
	Next
	WorkRng.ClearContents
	WorkRng.Range("A1").Resize(UBound(dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
End Sub

3. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Popping up KutoolsforExcel informasiya qutusunda, çoğaltılanları aradan qaldırmaq istədiyiniz aralığı seçin və sonra basın OK düyməsini basın. Ekran görüntüsünə baxın:

İndi ilk qeydlər istisna olmaqla, seçilmiş sütun aralığından xaric olan bütün təkrarlanan satırları görə bilərsiniz. Ekran görüntüsünə baxın:


Çoğaltıcıları sil, lakin Excel üçün Kutools ilə ilk instansiya tutun

VBA kodunun yanında, istifadə edə bilərsiniz Duplicate & Unique Cells seçin faydası Excel üçün Kutools asanlıqla çoğaltıcıları aradan qaldırmaq üçün, lakin Excel-də ilk nümunələri saxlamaq üçün əlavə edin.

Excel üçün Kutools : 300-dən çox lazımlı Excel eklentisi ilə, 60 gün ərzində heç bir məhdudiyyət olmadan cəhd edin.

1. Çoğaltıcıları aradan qaldırmaq üçün istədiyiniz aralığı seçin, lakin ilk nümunələri saxlayın. Sonra basın Kutools > seçmək > Duplicate & Unique Cells seçin. Ekran görüntüsünə baxın:

2. İçində Duplicate & Unique Cells seçin dialoq qutusunu seçin Çoğaltıcılar (1st biri istisna olmaqla) seçimi seçin və sonra basın OK düyməsini basın. Ekran görüntüsünə baxın:

doc dublikatları 1 çıxarın

3. Aşağıda Duplicate & Unique Cells seçin informasiya qutusuna basın OK.

doc dublikatları 1 çıxarın

4. İndi ilk nümunələri istisna olmaqla, dublikatlar seçilir, xahiş edirik basın Sil Seçilmiş dublikatları aradan qaldırmaq üçün düyməni basın.

QeydDublikat silmək istəyirsinizsə, yalnız yoxlamaq lazımdır Bütün satırları seçin seçimi Duplicate & Unique Cells seçin informasiya qutusunu və sonra tətbiq edin Sil bütün kopyalanan satırları silmək üçün sağ klik menyusundan əmr.

İpucu.Bu yardım proqramının pulsuz bir sınaq versiyasını istəyirsinizsə, xahiş edirəm proqramı sərbəst yükləyin birincisi, sonra yuxarıdakı addımlara uyğun olaraq əməliyyata müraciət edin.


Çoğaltıcıları sil, lakin Excel üçün Kutools ilə ilk instansiya tutun

Excel üçün Kutools 300-dən çox lazımlı Excel alətləri daxildir. 60 gün ərzində heç bir məhdudiyyətsiz cəhd edin. İndi pulsuz sınaq yükləyin!



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    lelouch · 1 years ago
    I am trying to do something similar but not quite. I am trying to take the following where I indicates the next cell

    John I Red
    John I Blue
    John I Yellow

    Joe I Red
    Joe I Blue
    Joe I Yellow

    and turn it into

    John I Red
    I Blue
    I Yellow

    Joe I Red
    I Blue
    I Yellow

    Can you help on just keeping the first duplicate in a single cell only?