5 วิธีด่วนในการแบทช์ลบหลายแถวหรือคอลัมน์ในตาราง Word ของคุณ

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

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

ก่อนอื่นมาดูวิธีลบแถวหรือคอลัมน์ที่ติดต่อกันหลาย ๆ

วิธีที่ 1: ลบแถวหรือคอลัมน์ผ่านเมนูตามบริบท

1. อันดับแรกเลือกชุดของแถวหรือคอลัมน์แล้วคลิกขวา
2. จากนั้นเลือก "ลบแถว" หรือ "ลบคอลัมน์" ตามนั้น    
3. หรือคุณสามารถเลือกแถวหรือคอลัมน์แล้วคลิก "เค้าโครง"
4. จากนั้นเลือก "ลบ" และเลือก "ลบคอลัมน์" หรือ "ลบแถว"

วิธีที่ 2: ใช้ทางลัด

1. ประการแรกเลือกแถวหรือคอลัมน์
2. ประการที่สองกด“ Backspace”

ตอนนี้ถ้าคอลัมน์หรือแถวไม่ติดต่อกันเราจะไม่สามารถลบได้โดยใช้วิธีการด้านบน คุณสามารถปรับใช้วิธีการต่อไปนี้แทนได้

วิธีที่ 3: ใส่แถวหรือคอลัมน์ที่ไม่จำเป็นเข้าด้วยกัน

1. เลือกแถวหรือคอลัมน์ก่อน
2. จากนั้นคลิกเมาส์ค้างไว้
3. ลากเมาส์ไปยังตำแหน่งที่เหมาะสมแล้วปล่อย
4. จากนั้นเลือกแถวหรือคอลัมน์เป้าหมายทั้งหมด แล้วใช้วิธีการข้างต้นเพื่อลบออก

วิธีที่ 4: เรียกใช้แมโครเพื่อลบหลายแถวที่ไม่ต่อเนื่องกัน

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

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. สุดท้าย แต่ไม่ท้ายสุดให้คลิก“ วิ่ง” หรือกด“ F5”

วิธีที่ 5: เรียกใช้มาโครเพื่อลบคอลัมน์ที่ไม่ต่อเนื่องกันหลายคอลัมน์

1. ขั้นแรก ให้เลือกคอลัมน์เป้าหมายโดยกดปุ่ม “Ctrl”
2. ถัดไปติดตั้งและเรียกใช้แมโครตามขั้นตอนเดียวกันข้างต้น
3. แต่แทนที่มาโครด้วยอันนี้:

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

ระวังการทุจริตของเอกสาร

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

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

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