Word belgesindeki tablodan Yinelenen satır kaldırma (Tam Kılavuz)

Word tablosundaki yinelenen satırlar — özellikle kopyalanmış veriler, içe aktarılmış raporlar veya anket sonuçlarıyla uğraşırken — belgenizi kafa karıştırıcı, profesyonel olmayan ve analiz edilmesi zor hale getirebilir. Ne yazık ki, Microsoft Word’ün Excel’de olduğu gibi tablolar için yerleşik bir «Yinelenenleri Kaldır» özelliği yoktur.
İyi haber? Word’te yinelenen satırları temizlemek için yine de birkaç güvenilir seçeneğiniz var. Aşağıda, başlangıçtan ileri düzeye kadar üç pratik yöntemi ve her biri için net, adım adım talimatları bulacaksınız.

Word’teki tablodan Yinelenen satır kaldırma

• Yöntem 1: Bir tablodan Excel kullanarak
• Yöntem 2: Bir veya tüm tablolardan VBA kodu kullanarak
• Yöntem 3: Bir veya tüm tablolardan Kutools for Word kullanarak

Sonuç

Yöntem 1: Excel kullanarak Yinelenen satır kaldırma

Microsoft Excel, veri yönetimi için tasarlandığından, yinelenenleri işlemek için en güvenilir yöntem tablonuzu kısa süreliğine Excel’e taşıyıp ardından geri getirmektir.

1. Tabloyu Kopyalayın:
   Word’te tablonun üzerine gelin ve tüm tabloyu seçmek için sol üst köşedeki artı işaretine tıklayın. Ctrl + C tuşlarına basın.
   
2. Excel’e Yapıştırın:
   Boş bir Excel çalışma kitabını açın, A1 hücresini seçin ve Ctrl + V tuşlarına basın.
3. Excel’de Yinelenenleri Kaldır:
   • Veri aralığını vurgulayın.
   • Veri sekmesine üst şeritte geçin.
   • Yinelenenleri Kaldır öğesine Veri > Araçlar grubunda tıklayın.
   • Tüm sütunların işaretli olduğundan emin olun ve Tamam'a tıklayın.
     
   • Excel, kaç adet Yinelenen satır kaldırıldığını gösterecektir.
     
4. Geri Aktarın:
   Excel’de temizlenen veriyi kopyalayın, Word belgenize dönün, eski tabloyu silin ve benzersiz satırları yapıştırmak için Ctrl + V tuşlarına basın.

Yöntem 2: VBA kodu kullanarak Yinelenen satır kaldırma (Bir veya tüm tablolardan)

Sık sık büyük Word tablolarıyla çalışıyor ve belgenizde otomasyon sağlama ihtiyacınız varsa, VBA harika bir seçenektir. Bu yöntem, satırları karşılaştırır ve yinelenenleri doğrudan Word içinde siler.

Bu VBA kodu, geçerli Word belgesindeki belirli bir tablodan veya tüm tablolardan Yinelenen satır kaldırmanıza olanak tanır ve her benzersiz satırın yalnızca ilk örneğini korur.

1. Açmak için Alt + F11 tuşlarına basın ve Microsoft Visual Basic for Applications penceresini açın.
2. Tıklayın Ekle>ModülYeni bir modül oluşturmak için aşağıdaki VBA kodunu modül penceresine kopyalayıp yapıştırın.

   Public Sub DeleteDuplicateRowsClean()
       Dim xTable As Table
       Dim xDic As Object
       Dim i As Long, j As Long
       Dim xStr As String
   
       If ActiveDocument.Tables.Count = 0 Then
           MsgBox "There is no table in this file", vbInformation, "Kutoolsfor word"
           Exit Sub
       End If
   
       Set xDic = CreateObject("Scripting.Dictionary")
       Application.ScreenUpdating = False
       If Selection.Information(wdWithInTable) Then
           ProcessTable Selection.Tables(1), xDic
       Else
           For i = 1 To ActiveDocument.Tables.Count
               ProcessTable ActiveDocument.Tables(i), xDic
               xDic.RemoveAll
           Next i
       End If
   
       Application.ScreenUpdating = True
       MsgBox "Complete!", vbInformation
   End Sub
   
   
   Private Sub ProcessTable(targetTable As Table, dic As Object)
       Dim r As Long
       Dim rowText As String
   
       For r = targetTable.Rows.Count To 1 Step -1
           rowText = targetTable.Rows(r).Range.Text
           If dic.Exists(rowText) Then
               targetTable.Rows(r).Delete
           Else
               dic.Add rowText, True
           End If
       Next r
   End Sub
         

3. Kod penceresini kapatın ve aşağıdaki seçeneklerden birini uygulayın:
   • Belirli bir tablodan yinelenenleri kaldırın:
     Hedef tablonun içine herhangi bir yere tıklayın.
   • Tüm tablolardan Yinelenenleri Kaldır:
     İmlecinizin herhangi bir tablo içinde olmadığından emin olun.
4. Alt + F8 tuşlarına basın, DeleteDuplicateRowsClean makrosunu seçin ve Çalıştır’a tıklayın.

Sonuç:
Yinelenen satır, belirtilen seçilen tablodan veya belgedeki tüm tablolardan otomatik olarak kaldırılır.

Public Sub DeleteDuplicateRowsIgnoreCase()
    Dim xTable As Table
    Dim xDic As Object
    Dim i As Long

    If ActiveDocument.Tables.Count = 0 Then
        MsgBox "There are no tables", vbInformation, "Kutoolsfor word"
        Exit Sub
    End If
    Set xDic = CreateObject("Scripting.Dictionary")
    xDic.CompareMode = 1

    Application.ScreenUpdating = False

    If Selection.Information(wdWithInTable) Then
        ProcessTable Selection.Tables(1), xDic
    Else
        For i = 1 To ActiveDocument.Tables.Count
            xDic.RemoveAll
            ProcessTable ActiveDocument.Tables(i), xDic
        Next i
    End If

    Application.ScreenUpdating = True
    MsgBox "complete", vbInformation
End Sub

Private Sub ProcessTable(targetTable As Table, dic As Object)
    Dim r As Long
    Dim rowText As String
    For r = targetTable.Rows.Count To 1 Step -1
        rowText = targetTable.Rows(r).Range.Text
        If dic.Exists(rowText) Then
            targetTable.Rows(r).Delete
        Else
            dic.Add rowText, True
        End If
    Next r
End Sub
    

Yöntem 3: Kutools for Word kullanarak Yinelenen satır / Sütunları kaldırma (Bir veya Tüm Tablolardan)

Word tablolarınızda yinelenen satırları kaldırmak için en hızlı ve kullanıcı dostu yöntemi mi arıyorsunuz? O zaman Kutools for Word, ideal çözümdür! Manuel yöntemlerin veya VBA betiklerinin aksine, Kutools hem tek bir tablodan hem de belgedeki tüm tablolardan yinelenenleri birkaç tıklamayla temizlemenizi sağlar. Kodlama, Excel’e kopyalama ya da karmaşık kurulum gerektirmez—bu da özellikle büyük veya çok sayıda tabloyla sık sık çalışan ve anında doğru sonuç bekleyen kullanıcılar için mükemmeldir.

Kutools for Word’u indirip yükledikten sonra, lütfen aşağıdaki adımları izleyin:

1. KUTOOLS PLUS sekmesine gidin ve ardından Tablo > Boş Satırları/Sütunları Sil iletişim kutusunu açmak için tıklayın.
   
2. Boş veya Yinelenen satır/Sütunları SilTablodailetişim kutusunda aşağıdaki seçenekleri belirtin:
   1. Kapsamı seçin (Aranacak yer)
      Aranacak yer Açılır Liste içinde aşağıdaki seçeneklerden birini seçin:
      • Seçilen tablo(lar) – Yalnızca seçtiğiniz tablolardaki yinelenen satırları kaldırır.
      • Etkin belgedeki tüm tablolar – Geçerli belgedeki tüm tablolardan yinelenen satırları kaldırır.
   2. Silme türünü belirtin ve silmek istediğiniz Satır veya Sütun öğesini seçin.
   3. Yinelenen satırları veya sütunları kaldırmak istediğinizi belirtmek için Yinelenen satır / sütun seçin.
   4. İsteğe bağlı ayarları belirleyin
      • Büyük/Küçük Harf Duyarlı (isteğe bağlı):
        Farklı büyük/küçük harf içeren metinleri Kutools'un farklı değerler olarak değerlendirmesini istiyorsanız, bu seçeneği etkinleştirin.
      • Boş Satırları Sil (isteğe bağlı):
        Eğer aynı zamanda boş satırları da kaldırmak istiyorsanız, bu seçeneği işaretleyin.
   5. Tamam'a tıklayın.
      

Sonuç:
Kutools, belirttiğiniz tabloyu (veya tabloları) anında tarar ve seçtiğiniz yinelenen satır veya sütunları kaldırır.

Sonuç

Word’teki tablolardan yinelenen satırları kaldırmak zor olabilir, çünkü Word’ün yerleşik bir yinelenen kaldırma aracı yoktur. Ancak doğru yöntemi uygulayarak verilerinizi verimli ve hatasız şekilde temizleyebilirsiniz.

• Excel, özellikle tanıdık ve kod gerektirmeyen bir yaklaşımı tercih ederken tek bir tabloyla çalışıyorsanız, büyük miktarda veriyle uğraşırken güvenilir bir seçenektir.
• VBA kodunu kullanmak, işlemi otomatikleştirmek ve bir veya tüm tablolardan yinelenen satırları kaldırmak isteyen ileri düzey kullanıcılar için uygundur; ancak bu yöntem teknik bilgi gerektirir ve makroların etkinleştirildiği belgelerde kullanılabilir.
• Kutools for Word, Excel veya VBA kullanmadan birkaç tıklamayla bir veya tüm tablolardan yinelenen satırları kaldırmanızı sağlayan en hızlı ve kullanıcı dostu çözümdür.

Word tablolarınızı, yetenek seviyenize ve belge karmaşıklığınıza en uygun yöntemi seçerek temiz, doğru ve yönetmesi kolay hale getirebilir; böylece zaman kazanır, tekrarlı manuel işlerden kaçınırsınız.