3 სწრაფი გზა ცარიელი რიგებისა და სვეტების წასაშლელად თქვენს Word ცხრილში

სიტყვის გადაწყვეტილებები სექტემბერი 28, 2025

ამ პოსტში ჩვენ აგიხსნით 3 სწრაფ გზას, თუ როგორ წაშალოთ ცარიელი რიგები და სვეტები თქვენს Word ცხრილში.

ცხრილები აუცილებელია დოკუმენტისთვის, განსაკუთრებით სხვადასხვა ტიპის მონაცემების შესანახად. ხანდახან, გრძელი ცხრილი შეიძლება აღემატებოდეს გვერდს და გავრცელდეს რამდენიმეზე. ასე რომ, როგორც კი ცხრილი გრძელი და გართულდება, არსებობს ზომები, რომელთა გაკეთებაც შეგიძლიათ მის გასამარტივებლად. მაგალითად, შეგიძლიათ წაშალოთ არასაჭირო ცარიელი რიგები და სვეტები.

ქვემოთ მოცემულია 3 მეთოდი, რომლის გამოყენებაც შეგიძლიათ.

მეთოდი 1: ხელით წაშალეთ ცარიელი რიგები და სვეტები

პირველ რიგში, აირჩიეთ მწკრივი ან სვეტი ცარიელი.
შემდეგ დააწკაპუნეთ მარჯვენა ღილაკით კონტექსტური მენიუს მისაღებად. მენიუში აირჩიეთ "წაშლა რიგები" ან "წაშლა სვეტები" შესაბამისად.

სამწუხაროდ, თქვენ არ შეგიძლიათ აირჩიოთ მრავალი არათანმიმდევრული მწკრივი ან სვეტი და წაშალოთ ისინი ამ გზით. ამ მოთხოვნისთვის შეგიძლიათ მიმართოთ ჩვენს წინა სტატიას: 5 სწრაფი მეთოდი რამდენიმე მწკრივის ან სვეტის ჯგუფური წაშლის თქვენს Word ცხრილში

მეთოდი 2: ჯგუფური წაშლა ყველა ცარიელი მწკრივისა და სვეტის ცხრილში

მეთოდს 1 აქვს თავისი შეზღუდვა. ასე რომ, ჩვენ შემოგთავაზებთ ცხრილის რიგების და სვეტების ჯგუფური ამოღების გზას VBA კოდების საშუალებით.

დასაწყისისთვის, მოათავსეთ კურსორი სამიზნე ცხრილში.
მეორე, ჩართეთ VBA რედაქტორი "Alt+ F11" დაჭერით.
რედაქტორში ჯერ დააწკაპუნეთ პროექტზე „ნორმალური“.
შემდეგ დააჭირეთ ღილაკს "ჩასმა" მენიუს ზოლში.
ჩამოსაშლელ მენიუში აირჩიეთ "მოდული".
ორჯერ დააწკაპუნეთ მოდულზე მის გასახსნელად და იქ ჩასვით შემდეგი კოდები:

Sub DeleteBlankRowsAndTablesInATable()
  Dim objCell As Cell
  Dim nRowIndex As Integer, nRows As Integer, nColumns As Integer, nColumnIndex As Integer
  Dim varCellEmpty As Boolean
 
  Application.ScreenUpdating = False
 
  If Selection.Information(wdWithInTable) = False Then
    MsgBox ("Put cursor inside a table first!")
    Exit Sub
  Else
    With Selection.Tables(1)
      nRows = .Rows.Count
      For nRowIndex = nRows To 1 Step -1
        varCellEmpty = True
        For Each objCell In .Rows(nRowIndex).Cells
          If Len(objCell.Range.Text) > 2 Then
            varCellEmpty = False
            Exit For
          End If
        Next objCell
          If varCellEmpty = True Then
            .Rows(nRowIndex).Delete
          End If
      Next nRowIndex
 
      nColumns = .Columns.Count
      For nColumnIndex = nColumns To 1 Step -1
        varCellEmpty = True
        For Each objCell In .Columns(nColumnIndex).Cells
          If Len(objCell.Range.Text) > 2 Then
            varCellEmpty = False
            Exit For
          End If
        Next objCell
          If varCellEmpty = True Then
            .Columns(nColumnIndex).Delete
          End If
      Next nColumnIndex
    End With
  End If

  Set objCell = Nothing

  Application.ScreenUpdating = True
End Sub

ბოლოს დააჭირეთ ღილაკს "Run" მენიუს ზოლზე ან დააჭირეთ "F5".

წამებში თქვენ წაშლით ცხრილის ყველა ცარიელ სტრიქონს და სვეტს.

მეთოდი 3: ჯგუფური წაშლა ყველა ცარიელი მწკრივისა და სვეტის ყველა ცხრილში დოკუმენტში

უპირველეს ყოვლისა, გაიმეორეთ მე-2 მეთოდის ნაბიჯები მაკროს ინსტალაციისა და გასაშვებად.
მხოლოდ ამჯერად შეცვალეთ ეს მაკრო შემდეგით:

Sub DeleteBlankRowsAndColumnsInAllTables()
  Dim objCell As Cell
  Dim objTable As Table
  Dim nRowIndex As Integer, nRows As Integer, nColumns As Integer, nColumnIndex As Integer
  Dim varCellEmpty As Boolean
 
  Application.ScreenUpdating = False
 
  With ActiveDocument
    For Each objTable In .Tables
      nRows = objTable.Rows.Count
      For nRowIndex = nRows To 1 Step -1
        varCellEmpty = True
        For Each objCell In objTable.Rows(nRowIndex).Cells
          If Len(objCell.Range.Text) > 2 Then
            varCellEmpty = False
            Exit For
          End If
        Next objCell
          If varCellEmpty = True Then
            objTable.Rows(nRowIndex).Delete
          End If
      Next nRowIndex
    Next objTable
 
    For Each objTable In .Tables
      nColumns = objTable.Columns.Count
      For nColumnIndex = nColumns To 1 Step -1
        varCellEmpty = True
        For Each objCell In objTable.Columns(nColumnIndex).Cells
          If Len(objCell.Range.Text) > 2 Then
            varCellEmpty = False
            Exit For
          End If
        Next objCell
          If varCellEmpty = True Then
            objTable.Columns(nColumnIndex).Delete
          End If
      Next nColumnIndex
    Next objTable
  End With

  Set objCell = Nothing
  Set objTable = Nothing

  Application.ScreenUpdating = True
End Sub

გატეხილი დოკუმენტის აღდგენა

დღესდღეობით დაკარგული მონაცემების აღდგენის არაერთი გზა არსებობს. მაგალითად, სარეზერვო ასლების შექმნა ყოველთვის თქვენს მთავარ პრიორიტეტად რჩება. თუ ეს არ აკმაყოფილებს თქვენს მოთხოვნილებას უახლესი ინფორმაციის აღდგენის შესახებ, შეგიძლიათ სცადოთ დოკუმენტის შეკეთება ინსტრუმენტი.

ავტორი შესავალი:

ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის xlsx შეკეთება მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად