Word belgesindeki tablodan yinelenen satırlar nasıl kaldırılır?
Word belgesinde, bazen kaldırmak ve ilk görünümünü korumak istediğiniz yinelenen satırlara sahip bazı tablolar olabilir. Bu durumda, kopyaları tek tek manuel olarak kaldırmayı seçebilir, ayrıca VBA kodunu kullanmayı da seçebilirsiniz.
Word'deki tablodan yinelenen satırları kaldırın
Word'deki tablodan yinelenen satırları kaldırın
1. İmleci, yinelenen satırları kaldırmak istediğiniz tablonun üzerine getirin, Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modül yeni bir Modül oluşturmak için.
3. Aşağıdaki kodları kopyalayın ve yenisine yapıştırın modül komut.
VBA: Word'deki tablodan yinelenen satırları kaldırın
Public Sub DeleteDuplicateRows2()
'UpdatebyExtendoffice20181011
Dim xTable As Table
Dim xRow As Range
Dim xStr As String
Dim xDic As Object
Dim I, J, KK, xNum As Long
If ActiveDocument.Tables.Count = 0 Then
MsgBox "This document does not have table(s).", vbInformation, "Kutools for Word"
Exit Sub
End If
Application.ScreenUpdating = False
Set xDic = CreateObject("Scripting.Dictionary")
If Selection.Information(wdWithInTable) Then
Set xTable = Selection.Tables(1)
For I = xTable.Rows.Count To 1 Step -1
Set xRow = xTable.Rows(I).Range
xStr = xRow.Text
xNum = -1
If xDic.Exists(xStr) Then
' xTable.Rows(I).Delete
For J = xTable.Rows.Count To 1 Step -1
If (xStr = xTable.Rows(J).Range.Text) And (J <> I) Then
xNum = xNum + 1
xTable.Rows(J).Delete
End If
Next
I = I - xNum
Else
xDic.Add xStr, I
End If
Next
Else
For I = 1 To ActiveDocument.Tables.Count
Set xTable = ActiveDocument.Tables(I)
xNum = -1
xDic.RemoveAll
For J = xTable.Rows.Count To 1 Step -1
Set xRow = xTable.Rows(J).Range
xStr = xRow.Text
xNum = -1
If xDic.Exists(xStr) Then
' xTable.Rows(I).Delete
For KK = xTable.Rows.Count To 1 Step -1
If (xStr = xTable.Rows(KK).Range.Text) And (KK <> J) Then
xNum = xNum + 1
xTable.Rows(KK).Delete
End If
Next
J = J - xNum
Else
xDic.Add xStr, J
End If
Next
Next
End If
Application.ScreenUpdating = True
End Sub
4. Basın F5 kodu çalıştırmak için anahtar, ardından tüm yinelenen satırlar kaldırılacaktır.
not: Yukarıdaki kod büyük / küçük harfe duyarlıdır, büyük / küçük harfe duyarlı olmayacak şekilde yinelenen satırları kaldırmak istiyorsanız aşağıdaki kodu kullanabilirsiniz:
Public Sub DeleteDuplicateRows2()
'UpdatebyExtendoffice20181011
Dim xTable As Table
Dim xRow As Range
Dim xStr As String
Dim xDic As Object
Dim I, J, KK, xNum As Long
If ActiveDocument.Tables.Count = 0 Then
MsgBox "This document does not have table(s).", vbInformation, "Kutools for Word"
Exit Sub
End If
Application.ScreenUpdating = False
Set xDic = CreateObject("Scripting.Dictionary")
If Selection.Information(wdWithInTable) Then
Set xTable = Selection.Tables(1)
For I = xTable.Rows.Count To 1 Step -1
Set xRow = xTable.Rows(I).Range
xStr = UCase(xRow.Text)
xNum = -1
If xDic.Exists(xStr) Then
' xTable.Rows(I).Delete
For J = xTable.Rows.Count To 1 Step -1
If (xStr = xTable.Rows(J).Range.Text) And (J <> I) Then
xNum = xNum + 1
xTable.Rows(J).Delete
End If
Next
I = I - xNum
Else
xDic.Add xStr, I
End If
Next
Else
For I = 1 To ActiveDocument.Tables.Count
Set xTable = ActiveDocument.Tables(I)
xNum = -1
xDic.RemoveAll
For J = xTable.Rows.Count To 1 Step -1
Set xRow = xTable.Rows(J).Range
xStr = UCase(xRow.Text)
xNum = -1
If xDic.Exists(xStr) Then
' xTable.Rows(I).Delete
For KK = xTable.Rows.Count To 1 Step -1
If (xStr = xTable.Rows(KK).Range.Text) And (KK <> J) Then
xNum = xNum + 1
xTable.Rows(KK).Delete
End If
Next
J = J - xNum
Else
xDic.Add xStr, J
End If
Next
Next
End If
Application.ScreenUpdating = True
End Sub
Belgenin tüm tablolarındaki yinelenen satırları kaldırmak istiyorsanız, imleci tablonun dışında belgenin herhangi bir yerine yerleştirin ve ardından yukarıdaki kodlardan birini uygulayın.
Birden çok Word belgesine / Excel çalışma kitaplarına Firefox, Chrome, Internet Explorer 10 olarak sekmeli göz atma ve düzenleme! |
Firefox / Chrome / IE'de birden çok web sayfasını görüntülemeye ve ilgili sekmelere kolayca tıklayarak aralarında geçiş yapmaya aşina olabilirsiniz. Burada Office Tab, tek bir Word penceresinde veya Excel penceresinde birden çok Word belgesine veya Excel çalışma kitabına göz atmanıza ve sekmelerine tıklayarak aralarında kolayca geçiş yapmanıza olanak tanıyan benzer işlemleri destekler. |
En İyi Ofis Üretkenlik Araçları
Kutools for Word - Over ile Kelime Deneyiminizi Yükseltin 100 Dikkat Çekici Özellikler!
🤖 Kutools Yapay Zeka Asistanı: Yazılarınızı AI ile dönüştürün - İçerik Oluştur / Metni Yeniden Yaz / Belgeleri Özetleyin / Bilgi İçin Arayın Belgeye dayalı, hepsi Word'de
📘 Belge Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Çeşitli Formatlarda Dışa Aktar (PDF/TXT/DOC/HTML...) / PDF'ye Toplu Dönüştürme / Sayfaları Görüntü Olarak Dışa Aktar / Aynı Anda Birden Çok Dosyayı Yazdırma...
✏ İçerik Düzenleme: Toplu Bul ve Değiştir Birden Çok Dosyada / Tüm Resimleri Yeniden Boyutlandır / Tablo Satırlarını ve Sütunlarını Yer Değiştirme / Tabloyu Metne Dönüştür...
🧹 Zahmetsiz Temizlik: Uzaklaşın Ekstra Alanlar / Bölüm Sonları / Tüm Başlıklar / Metin kutuları / Köprüler / Daha fazla sökme aleti için sayfamıza gidin Grubu Kaldır...
➕ Yaratıcı Ekler: Ekle Bin Ayırıcı / Onay Kutuları / Radyo Düğmeleri / QR Code / Barkod / Çapraz Çizgi Tablosu / Denklem Başlığı / Görüntü Başlık / Tablo başlığı / Çoklu Resimler / Daha fazlasını şurada keşfedin: Grup Ekle...
🔍 Hassas Seçimler: Nokta tespiti belirli sayfalar / tablolar / şekiller / başlık paragrafları / Gezinmeyi şununla geliştirin: Daha Özellikleri seçin...
⭐ Yıldız Geliştirmeleri: Herhangi bir konuma hızla gidin / tekrarlanan metni otomatik olarak ekle / belge pencereleri arasında sorunsuzca geçiş yapın / 11 Dönüşüm Aracı...