3 วิธีที่รวดเร็วในการลบแถวและคอลัมน์ว่างในตาราง Word ของคุณ

ในบทความนี้ เราจะอธิบาย 3 วิธีง่ายๆ ในการลบแถวและคอลัมน์ว่างในตาราง Word ของคุณ

ตารางมีความสำคัญต่อเอกสารโดยเฉพาะอย่างยิ่งในการเก็บข้อมูลประเภทต่างๆ บางครั้งตารางยาวอาจเกินหน้าและขยายไปหลาย ๆ ดังนั้นเมื่อตารางยาวและซับซ้อนมีมาตรการที่คุณสามารถทำได้เพื่อทำให้มันง่ายขึ้น ตัวอย่างเช่นคุณสามารถลบแถวและคอลัมน์ว่างที่ไม่จำเป็นได้

ต่อไปนี้เป็น 3 วิธีที่คุณสามารถใช้ได้

วิธีที่ 1: ลบแถวว่างและคอลัมน์ด้วยตนเอง

1. อันดับแรกเลือกแถวหรือคอลัมน์ว่าง
2. จากนั้นคลิกขวาเพื่อรับเมนูตามบริบท บนเมนูเลือก "ลบแถว" หรือ "ลบคอลัมน์" ตามนั้น

ขออภัยคุณไม่สามารถเลือกแถวหรือคอลัมน์ที่ไม่ต่อเนื่องกันหลายแถวและลบพร้อมกันด้วยวิธีนี้ สำหรับความต้องการนี้คุณสามารถอ้างถึงบทความก่อนหน้าของเรา: 5 วิธีด่วนในการแบทช์ลบหลายแถวหรือคอลัมน์ในตาราง Word ของคุณ

วิธีที่ 2: แบทช์ลบแถวและคอลัมน์ว่างทั้งหมดในตาราง

วิธีที่ 1 มีข้อ จำกัด ดังนั้นเราจะเสนอวิธีการลบแถวและคอลัมน์ในตารางผ่านรหัส VBA

1. ขั้นแรก ให้วางเคอร์เซอร์ไว้ภายในตารางเป้าหมาย
2. ประการที่สองทริกเกอร์โปรแกรมแก้ไข VBA โดยกด“ Alt + F11”
3. ในตัวแก้ไขคลิกโปรเจ็กต์“ ปกติ” ก่อน
4. จากนั้นคลิกแท็บ“ แทรก” บนแถบเมนู
5. ในเมนูแบบเลื่อนลงเลือก "โมดูล"
6. ดับเบิลคลิกที่โมดูลเพื่อเปิดและวางรหัสต่อไปนี้:

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

7. สุดท้ายคลิกปุ่ม“ Run” บนแถบเมนูหรือกด“ F5”

ในไม่กี่วินาทีคุณจะได้รับแถวและคอลัมน์ว่างทั้งหมดในตารางนั้นออก

วิธีที่ 3: แบทช์ลบแถวและคอลัมน์ว่างทั้งหมดในตารางทั้งหมดในเอกสาร

1. ก่อนอื่นให้ทำซ้ำขั้นตอนในวิธีที่ 2 เพื่อติดตั้งและเรียกใช้แมโคร
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

กู้คืนเอกสารที่เสียหาย

ปัจจุบันมีหลายวิธีในการกู้คืนข้อมูลที่สูญหาย ตัวอย่างเช่น การสำรองข้อมูลยังคงเป็นสิ่งสำคัญที่สุดเสมอ หากยังไม่เพียงพอ คุณสามารถลองใช้วิธีอื่นได้ ซ่อมเอกสาร เครื่องมือ

บทนำผู้เขียน:

Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ xlsx ซ่อม และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.