İ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

Word sənədində cədvəldən təkrarlanan satırları necə çıxarmaq olar?

Word sənədində, çıxartmaq və bəzən ilk dəfə görünüşünü saxlamaq istədiyiniz təkrarlanan satırlar olan bəzi tablolar ola bilər. Bu halda, təkrarlananları bir-bir əl ilə aradan qaldırmağı seçə bilərsiniz, VBA kodunu da istifadə edə bilərsiniz.

Sözdəki cədvəldən cüt sətirləri silin

Word sənədində birdən çox məzmuna birbaşa onay qutusu formasını daxil edin

Söz üçün Kutools ilə onay kommunal, yalnız bir klikə ehtiyacınız varsa, Word sənədnetdə seçilmiş məzmuna bir dəfə onay qutusu formasını əlavə edə bilərsiniz. 45 gün pulsuz sınaq üçün tıklayın!
doc onay qutusu forması sahəsi
Word üçün Kutools: yüzlərlə lazımlı Word eklentisi ilə, heç bir məhdudiyyət olmadan 45 gündə cəhd edin.

Sözdəki cədvəldən cüt sətirləri silin

1. İmleci yinelenen satırları silmək istədiyiniz cədvəldə yerləşdirin, basın Alt + F11 düymələri təmin etmək üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. klik Taxmaq > Modules yeni bir modul yaratmaq.
doc dublikat sətri xNUMX silmək

3. Kodları köçürün və onları yeni yapışdırın Modules scripts.

VBA: Worddə cədvəldən cüt sətirləri silin

Public Sub DeleteDuplicateRows2 () 'UpdatebyExtendoffice20181011 Dim xTable Cədvəl kimi Dim xRow Range Dim xStr kimi String Dim xDic As obyekt Dim I, J, KK, xNum kimi uzun ActiveDocument.Tables.Count = 0 Sonra MsgBox "Bu sənəddə masa yoxdur (lar). ", vbInformation," Word üçün Kutools "Exit Sub End If Application.ScreenUpdating = False Set xDic = CreateObject (" Scripting.Dictionary ") Selection.Information (wdWithInTable) Sonra Set xTable = Selection.Tables (1) 1 üçün xTable.Rows.Count üçün 1 Addım-1 xRow = xTable.Rows (I) seçin .XStr = xRow.Text xNum = -1 xDic.Exists (xStr) Sonra 'xTable.Rows (I) .Delete J = xTable.Rows.Count üçün 1 Addım -1 Əgər (xStr = xTable.Rows (J) .Range.Text) Və (J <> I) Sonra xNum = xNum + 1 xTable.Rows (J) .Delete End I1 üçün ActiveDocument.Tables.Count Set üçün xTable = ActiveDocument.Tables (I) xNum = -1 xDic.RemoveAll J = xTable.Rows üçün, əgər Next I = I - xNum Else xDic.Add xStr, 1 Addım-XNU üçün qiymət MX xRow = xTable.Rows (J) seçin .Range xStr = xRow.Text xNum = -1 XDic.Exists (xStr) Sonra xTable.Rows (I) .KN = xTable.Rows.Count üçün 1 üçün addım - 1 Əgər (xStr = xTable.Rows (KK) .Range.Text) Və (KK <> J) Sonra xNum = xNum + 1 xTable.Rows (KK) .Delete End If Next J = J - xNum Else xDic.Add xStr , J End əgər Next Next End If Application.ScreenUpdating = True End Sub

doc dublikat sətri xNUMX silmək

4. Basın F5 kodunu çalıştırmak üçün düyməsini basın, sonra bütün təkrarlanan satırlar silinəcəkdir.
doc dublikat sətri xNUMX silmək

Qeyd: Əgər kodun yuxarı həssas olması halında, yuxarıdakı kodu təkrarlayan sətirləri aradan qaldırmaq istəyirsinizsə, aşağıdakı kodu istifadə edə bilərsiniz:

Public Sub DeleteDuplicateRows2 () 'UpdatebyExtendoffice20181011 Dim xTable Cədvəl kimi Dim xRow Range Dim xStr kimi String Dim xDic As obyekt Dim I, J, KK, xNum kimi uzun ActiveDocument.Tables.Count = 0 Sonra MsgBox "Bu sənəddə masa yoxdur (lar). ", vbInformation," Word üçün Kutools "Exit Sub End If Application.ScreenUpdating = False Set xDic = CreateObject (" Scripting.Dictionary ") Selection.Information (wdWithInTable) Sonra Set xTable = Selection.Tables (1) 1 üçün x = XTable.Rows.Count üçün xRow = xTable.Rows (I) seçin .Range xStr = UCase (xRow.Text) xNum = -1 xDic.Exists (xStr) Sonra 'xTable.Rows (I ) .X = XTable.Rows.Count üçün 1 Addım-1 (xStr = xTable.Rows (J) .Range.Text) Və (J <> I) Sonra xNum = xNum + 1 xTable.Rows (J) ActiveDocument.Tables.Count üçün x = 1 = ActiveDocument.Tables (I) üçün xNum = -1 xDic.RemoveAll J = XTable.Rows.Count 1 St xxr = xTable.Rows (J) .XStr = UCase (xRow.Text) xNum = -1 xDic.Exists (xStr) Sonra 'xTable.Rows (I) .KK = xTable.Rows üçün alın. 1 addım -1 üçün (xStr = xTable.Rows (KK) .Range.Text) Və (KK <> J) Sonra xNum = xNum + 1 xTable.Rows (KK) .Əgər sonrakı J = J - xNum Əlavə xDic.Add xStr, J End If Next Next End If Application.ScreenUpdating = True End Sub

Sənədin bütün cədvəllərində cüt sətirləri aradan qaldırmaq istəyirsinizsə, kursoru sənədin hər hansı bir yerinə yerləşdirin, sonra yuxarıda göstərilən kodlardan birini tətbiq edin.


10-un Kəşfini Firefox, Chrome, İnternet kimi bir çox Word sənədini / Excel iş kitabını gözdən keçirin və redaktə edin!

Firefox / Chrome / IE-də birdən çox veb səhifəni keçirmək üçün tanış ola bilərsiniz və asanlıqla müvafiq sekmeleri asanlıqla tıklayaraq onların arasında keçid edə bilərsiniz. Burada, Office Tab birbaşa Word pəncərəsində və ya Excel pəncərəsində birdən çox Word sənədinə və ya Excel kitablarına göz atmanıza imkan verən oxşar işlənməni dəstəkləyir və onların sekmelerini tıklayarak asanlıqla keçid edə bilərsiniz.
Ofis Sekmesinin pulsuz sınaq üçün basın!

Firefox kimi bir pəncərədə birdən çox söz sənədinə göz atın


Word üçün Kutools

100, 2003, 2007, 2010, 2013 və 2016 üçün 2019 Ətraflı funksiyaları

shot-kutools-700-225-kte

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 39.00

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.

Be the first to comment.