Word Tablonuzdaki Birden Çok Satırı veya Sütunu Toplu Silme İçin 5 Hızlı Yöntem

Bu makalede, Word tablonuzdaki birden çok satırı veya sütunu toplu olarak silmek için 5 hızlı yöntem göstermek istiyoruz.

Belgeyi göze kolay hale getirmek için verileri tablolara yerleştiriyoruz. Uzun bir masa oluşturmak nadir değildir. Ancak, tabloyu tekrar kontrol ettiğinizde ve bazı satırları ve sütunları gereksiz bulduğunuzda, bunları kaldırmak için hızlı bir yola ihtiyacınız olacaktır.

Öncelikle birden çok ardışık satırı veya sütunu silmenin yollarına bakalım.

Yöntem 1: Bağlam Menüsünden Satırları veya Sütunları Sil

1. İlk olarak, bir dizi satır veya sütun seçin ve sağ tıklayın.
2. Ardından buna göre "Satırları Sil" veya "Sütunları Sil" i seçin.    
3. Veya satırları veya sütunları seçip "Düzen"i tıklayabilirsiniz.
4. Ardından "Sil"i seçin ve "Sütunları Sil" veya "Satırları Sil"i seçin.

Yöntem 2: Kısayolları Kullanın

1. İlk olarak, satırları veya sütunları seçin.
2. İkinci olarak, "Geri al"a basın.

Şimdi, sütunlar veya satırlar ardışık değilse, yukarıdaki yöntemleri kullanarak bunları silemeyiz. Bunun yerine, aşağıdaki yöntemleri dağıtabilirsiniz.

Yöntem 3: Gereksiz Satırları veya Sütunları Bir Araya Getirin

1. Önce bir satır veya sütun seçin.
2. Ardından fareye tıklayın ve basılı tutun.
3. Fareyi uygun bir konuma sürükleyin ve bırakın.
4. sonra hepsini seç tarsatırları veya sütunları alın ve bunları silmek için yukarıdaki yöntemleri kullanın.

Yöntem 4: Birden Fazla Ardışık Olmayan Satırı Silmek için Makro Çalıştırın

1. İlk ve önost, satırları seçin.
2. Word'de VBA düzenleyicisini açmak için "Alt + F11" tuşlarına basın.
3. Ardından “Normal” projesine tıklayarak bir modül oluşturun.
4. Ardından “Ekle”ye tıklayın ve “Modül”ü seçin.
5. Modülü çift tıklayarak açın ve aşağıdaki kodları yapıştı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. Son olarak, "Çalıştır"a tıklayın veya "F5"e basın.

Yöntem 5: Ardışık Olmayan Birden Çok Sütunu Silmek için Makro Çalıştırın

1. Her şeyden önce, seçin tar“Ctrl” tuşu ile sütunları alın.
2. Daha sonra, yukarıdaki aynı adımları izleyerek bir makro kurun ve çalıştırın.
3. Ancak makroyu bununla değiştirin:

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

Belge Bozulmasına Dikkat

Dijital depolama cihazlarının kullanımının artmasıyla, verilere dikkat etmek önemlidir. En iyi yollardan biri onları yedeklemektir. Örneğin Word kullanırken bir anda yanıt vermeyi kesebilir. Ve normale döndüğünde, yalnızca belgenizi ölü bulabilirsiniz. Ve sonra tüm yaygaradan geçmek zorunda kalacaksın. docx kurtarma.

Yazar Tanıtımı:

Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. xlsx düzeltmesi ve pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com