Word Cədvəlinizdə birdən çox sətir və ya sütunu toplu silmək üçün 5 sürətli üsul

Bu yazıda sizə Word cədvəlinizdə birdən çox sətir və ya sütunu silmək üçün 5 sürətli üsul göstərmək istərdik.

Sənədi gözə asanlaşdırmaq üçün məlumatları cədvəllərə qoyuruq. Uzun bir masa yaratmaq qeyri-adi deyil. Bununla belə, cədvəli yenidən yoxladıqda və bəzi sətir və sütunları lazımsız tapdıqda, onları silmək üçün sürətli bir yola ehtiyacınız olacaq.

Əvvəlcə bir neçə ardıcıl sətir və ya sütunu silməyin yollarına baxaq.

Metod 1: Kontekst menyusu vasitəsilə sətirləri və ya sütunları silin

1. Əvvəlcə bir sıra satır və ya sütunları seçin və sağ klikləyin.
2. Sonra müvafiq olaraq "Sətrləri Sil" və ya "Sütunları Sil" seçin.    
3. Və ya sətirləri və ya sütunları seçib "Layout" düyməsini klikləyə bilərsiniz.
4. Sonra "Sil" seçin və "Sütunları Sil" və ya "Sətrləri Sil" seçin.

Metod 2: Qısayollardan istifadə edin

1. Əvvəlcə sətirləri və ya sütunları seçin.
2. İkincisi, "Backspace" düyməsini basın.

İndi sütunlar və ya sətirlər ardıcıl deyilsə, yuxarıdakı üsullardan istifadə edərək onları silə bilmərik. Bunun əvəzinə aşağıdakı üsulları yerləşdirə bilərsiniz.

Metod 3: Lazımsız sətirləri və ya sütunları bir yerə qoyun

1. Əvvəlcə bir sıra və ya sütun seçin.
2. Sonra siçanı vurun və saxlayın.
3. Siçanı lazımi yerə sürükləyin və buraxın.
4. Sonra bütün hədəf sətirləri və ya sütunları seçin və yuxarıdakı metodlardan istifadə edərək onları silin.

Metod 4: Birdən çox ardıcıl olmayan sətirləri silmək üçün makro işə salın

1. İlk növbədə, sıraları seçin.
2. Word-də VBA redaktorunu açmaq üçün “Alt+ F11” düyməsini basın.
3. Sonra “Normal” layihəsinə klikləməklə modul yaradın.
4. Sonra "Daxil et" düyməsini basın və "Modul" seçin.
5. Modulu iki kliklə açın və aşağıdakı kodları yapışdırın:

Sub DeleteNonConsecutiveRows()
  Dim objCell As Cell
  Dim objTable As Table
  Dim nIndex As Integer, nRows As Integer
  Dim strTable As String
  Dim varCellEmpty As Boolean
 
  Application.ScreenUpdating = False
 
  '  Delete contents in selected rows.
  Selection.Delete
 
  With Selection.Tables(1)
    nRows = .Rows.Count
    For nIndex = nRows To 1 Step -1
      For Each objCell In .Rows(nIndex).Cells
        If Len(objCell.Range.Text) > 2 Then
          varCellEmpty = False
          Exit For
        Else
          varCellEmpty = True
          .Rows(nIndex).Delete
        End If
      Next objCell
    Next nIndex
  End With
 
  Set objCell = Nothing
  Set objTable = Nothing
 
  Application.ScreenUpdating = True
End Sub

6. Sonuncu, lakin ən azı, "Çalış" düyməsini basın və ya "F5" düyməsini basın.

Metod 5: Birdən çox ardıcıl olmayan sütunları silmək üçün makro işə salın

1. Əvvəlcə "Ctrl" düyməsi ilə hədəf sütunları seçin.
2. Sonra yuxarıdakı eyni addımları yerinə yetirərək bir makro quraşdırın və işə salın.
3. Lakin makronu bununla əvəz edin:

Sub DeleteNonConsecutiveColumns()
  Dim objCell As Cell
  Dim objTable As Table
  Dim nIndex As Integer, nColumns As Integer
  Dim strTable As String
  Dim varCellEmpty As Boolean
 
  Application.ScreenUpdating = False
 
  '  Delete contents in selected columns.
  Selection.Delete
 
  With Selection.Tables(1)
    nColumns = .Columns.Count
    For nIndex = nColumns To 1 Step -1
 
      For Each objCell In .Columns(nIndex).Cells
        If Len(objCell.Range.Text) > 2 Then
          varCellEmpty = False
          Exit For
        Else
          varCellEmpty = True
          .Columns(nIndex).Delete
        End If
      Next objCell
    Next nIndex
  End With
 
  Set objCell = Nothing
  Set objTable = Nothing
 
  Application.ScreenUpdating = True
End Sub

Sənəd korrupsiyasına diqqət yetirin

Rəqəmsal yaddaş qurğusundan istifadənin artması ilə məlumatların qayğısına qalmaq vacibdir. Ən yaxşı yollardan biri onların ehtiyat nüsxəsini çıxarmaqdır. Məsələn, Word istifadə edərkən, o, birdən cavab verməyi dayandıra bilər. Və normallaşdıqda, yalnız sənədinizi ölü tapa bilərsiniz. Və sonra bütün təlaşdan keçməli olacaqsınız docx bərpası.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc xlsx düzəliş və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com