Note: The other languages of the website are Google-translated. Back to English

วิธีลบแถวและคอลัมน์ที่ว่างเปล่าออกจากตารางใน Word

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

ลบแถวและคอลัมน์ว่างทั้งหมดออกจากตารางด้วยตนเอง

ลบแถวและคอลัมน์ว่างทั้งหมดออกจากตารางโดยใช้รหัส VBA

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


ลบแถวและคอลัมน์ว่างทั้งหมดออกจากตารางด้วยตนเอง

Microsoft Office Word ไม่มีวิธีที่สะดวกในการลบแถวและคอลัมน์ที่ว่างเปล่าและคุณจำเป็นต้องลบออกโดยเลือกแถวและคอลัมน์ที่ว่างด้วยตนเองจากนั้นจึงลบทีละแถว

ขั้นตอนที่ 1: เลือกแถวว่างหรือคอลัมน์ว่างที่คุณต้องการลบ ดูภาพหน้าจอ:

doc-removowsandcols-1

ขั้นตอนที่ 3: ภายใต้ ตาราง เครื่องมือคลิกไฟล์ แบบ แท็บ;

doc-removowsandcols-2

ขั้นตอนที่ 4: ในไฟล์ แถวและคอลัมน์ กลุ่มคลิก ลบแถว หรือลบคอลัมน์.

doc-removowsandcols-3


ลบแถวและคอลัมน์ว่างทั้งหมดออกจากตารางโดยใช้รหัส VBA

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

ขั้นตอนที่ 1: กด “ Alt-F11” เพื่อเปิดหน้าต่าง Microsoft Visual Basic for Application

ขั้นตอนที่ 2: คลิก โมดูล บน สิ่งที่ใส่เข้าไป คัดลอกและวางรหัส VBA ต่อไปนี้ลงในหน้าต่างโมดูล

ขั้นตอนที่ 3: จากนั้นคลิก วิ่งdoc-reverse-sign-6 เพื่อใช้ VBA

รหัส VBA เพื่อลบแถวและคอลัมน์ว่างทั้งหมดออกจากตาราง:

ย่อย DeleteEmptyTablerowsandcolumns ()
Application.ScreenUpdating = เท็จ
Dim Tbl เป็นตาราง, cel As Cell, i As Long, n As Long, fEmpty As Boolean
ด้วย ActiveDocument
สำหรับแต่ละ Tbl ในตาราง
n = Tbl.Columns.Count
สำหรับ i = n ถึง 1 ขั้นตอน -1
fEmpty = จริง
สำหรับแต่ละ cel ใน Tbl. คอลัมน์ (i) .Cells
ถ้า Len (cel.Range.Text)> 2 แล้ว
fEmpty = เท็จ
ออกสำหรับ
End If
cel ถัดไป
ถ้า fEmpty = True แล้ว Tbl.Columns (i) .Delete
ต่อไปฉัน
Tbl ถัดไป
จบด้วย
ด้วย ActiveDocument
สำหรับแต่ละ Tbl ในตาราง
n = Tbl แถวนับ
สำหรับ i = n ถึง 1 ขั้นตอน -1
fEmpty = จริง
สำหรับแต่ละ cel ใน Tbl แถว (i) .Cells
ถ้า Len (cel.Range.Text)> 2 แล้ว
fEmpty = เท็จ
ออกสำหรับ
End If
cel ถัดไป
ถ้า fEmpty = True แล้ว Tbl.Rows (i) .Delete
ต่อไปฉัน
Tbl ถัดไป
จบด้วย
ตั้งค่า cel = Nothing: ตั้งค่า Tbl = Nothing
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด


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

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

Kutools สำหรับ Word, ที่มีมากกว่า 100 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น 

หลังจากการติดตั้ง Kutools for Word โปรดทำดังนี้:(ดาวน์โหลด Kutools for Word ฟรีทันที!)

1 คลิก Kutools พลัส > Delete Rows/Columns บน Table บานหน้าต่าง

doc ลบคอลัมน์แถวว่างออกจากตาราง 1

2. จากนั้นกล่องโต้ตอบจะปรากฏขึ้นให้เลือกขอบเขตที่คุณต้องการลบตารางออกจากส่วน Look in จากนั้นเลือก แถว ตัวเลือกและ แถวว่าง ตัวเลือกหรือตรวจสอบ คอลัมน์ ตัวเลือกและ แถวว่าง ตัวเลือกตามที่คุณต้องการ หากคุณต้องการลบแถวและคอลัมน์ว่างทั้งหมดคุณต้องใช้การดำเนินการนี้สองครั้ง

doc kutools ลบแถวว่าง 2  doc kutools ลบแถวว่าง 3 

ตอนนี้กล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนให้คุณทราบว่ามีการจัดการตารางจำนวนเท่าใดให้คลิก OK เพื่อปิดและนำแถวและคอลัมน์ว่างออกจากตาราง
doc kutools ลบแถวว่าง 4

เคล็ดลับหากคุณต้องการลบแถวว่างออกจากแผ่นงาน Excel ไฟล์ ลบแถวว่าง ยูทิลิตี้ของ Kutools for Excel สามารถช่วยคุณได้


เครื่องมือเพิ่มประสิทธิภาพคำแนะนำ

 

Kutools For Word - คุณสมบัติขั้นสูงมากกว่า 100 รายการสำหรับ Word ประหยัดเวลา 50%

  • การดำเนินการที่ซับซ้อนและซ้ำ ๆ สามารถดำเนินการครั้งเดียวในไม่กี่วินาที
  • แทรกภาพหลาย ๆ โฟลเดอร์ลงในเอกสาร Word พร้อมกัน
  • ผสานและรวมไฟล์ Word หลาย ๆ ไฟล์ในโฟลเดอร์เข้าด้วยกันตามลำดับที่คุณต้องการ
  • แยกเอกสารปัจจุบันออกเป็นเอกสารแยกตามหัวข้อตัวแบ่งส่วนหรือเกณฑ์อื่น ๆ
  • แปลงไฟล์ระหว่าง Doc และ Docx, Docx และ PDF ชุดเครื่องมือสำหรับการแปลงและการเลือกทั่วไปและอื่น ๆ ...
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (15)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีนักพัฒนา - ฉันมีมาโครนี้ซึ่งอยู่ในปุ่มและเมื่อคลิก (มาโคร) จะลบตารางที่อยู่เหนือปุ่มโดยตรง สามารถแก้ไขได้เพื่อให้มาโครใช้งานได้เพียงครั้งเดียวหรือไม่ เช่น. หากมี 2 ตารางในเอกสารมีเพียง 1 ตารางเท่านั้นที่ถูกลบ - มาโครจะหยุดทำงาน ... คุณแนะนำได้ไหม ย่อย tableDelete() ' ' tableDelete Macro ' Dim nTables As Integer nTables = ActiveDocument.Tables.Count ActiveDocument.Tables(nTables).Delete ' End Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
[quote]สวัสดีนักพัฒนา - ฉันมีมาโครนี้ซึ่งอยู่ในปุ่มและเมื่อคลิก (มาโคร) จะลบตารางที่อยู่เหนือปุ่มโดยตรง สามารถแก้ไขได้เพื่อให้มาโครใช้งานได้เพียงครั้งเดียวหรือไม่ เช่น. หากมี 2 ตารางในเอกสารมีเพียง 1 ตารางเท่านั้นที่ถูกลบ - มาโครจะหยุดทำงาน ... คุณแนะนำได้ไหม Sub tableDelete () Dim nTables เป็นจำนวนเต็ม nTables = ActiveDocument.Tables.Count ActiveDocument.Tables (nTables) ลบ End Subโดย Andy Harris[/quote] โปรดลองใช้ VBA นี้เพื่อลบตารางทั้งหมดออกจากเอกสารปัจจุบันใน Word Sub tableDelete() หรี่ aTable เป็นตารางสำหรับแต่ละ aTable ใน ActiveDocument.Tables aTable.Delete Next End Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับมาโคร มันทำงานเหมือนมีเสน่ห์!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับมาโคร มันมีประโยชน์มาก..
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีมาโครที่จะลบแถวหรือไม่ถ้ามีเพียงเซลล์เดียวในแถวนั้นว่างเปล่าหรือมีศูนย์?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับรหัส มีประโยชน์จริงๆ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีทุกคน ฉันกำลังมองหาฟังก์ชันในคำนั้น หากฉันลบคำเฉพาะออกไป ก็ควรลบแถวนั้นด้วย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีมาโครใช้งานได้ แต่:

หลังจากลบแถวทั้งหมดแล้ว คอลัมน์ทั้งหมดของตารางที่มีแถวว่างจะเปิดกว้างมาก

ฉันจะแก้ไขรหัสเพื่อไม่ให้เกิดเหตุการณ์นี้ได้อย่างไร


ฉันใช้ Office 2016


ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณรู้ว่าคุณปรับขนาดตารางได้ใช่ไหม เพียงแค่กรองและจัดเรียงข้อมูลของคุณเพื่อตรวจสอบจำนวนแถวที่มีข้อมูล คลิกเครื่องมือตารางแล้วคลิกปรับขนาดและปรับตัวเลขสุดท้ายตามที่คุณต้องการ หรือไปที่เซลล์สุดท้ายสุดของตารางแล้วใช้สามเหลี่ยมไทน์สีน้ำเงินเพื่อ ลากและปรับขนาด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ยกเว้นว่าฉันมีเอกสารหลายหน้าพร้อมตารางที่มีข้อมูลแตกต่างกันในแต่ละหน้า นอกจากนี้ยังเป็นเอกสารผสานที่แตกต่างกันในแต่ละสัปดาห์ ฉันต้องการวิธีการอัตโนมัติ :)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณช่วยให้ฉันหงุดหงิดได้เป็นล้านชั่วโมง ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันพบมาโครนี้และใช้งานได้ดีกับตารางที่มีแถวว่างเพียงแถวเดียว
เป็นไปได้ไหมที่จะเปลี่ยนเป็นทำงานบนโต๊ะที่มีแถวแยกด้วย?
ฉันจะขอบคุณมากถ้าคุณมีวิธีแก้ปัญหาสำหรับฉัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี shimon ฉันไม่เข้าใจคำถามของคุณ โปรดยกตัวอย่างหรืออธิบายคำถามพร้อมรายละเอียดเพิ่มเติม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี,

Quand j'exécute le programme, l'erreur suvante s'affiche " Erreur de compilation : Instruction dissolvee à l'extérieur d'une procédure"

Quelqu'un a une solution s'il vous plait ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ขอบคุณสำหรับ CODE ที่ทำงานบนเอกสารที่มีตารางเพียงตารางเดียว

แต่เมื่อเปิดใช้งานในเอกสารคำที่มีตารางต่างกันจากขนาดต่างๆ ฉันได้รับข้อผิดพลาดนี้: "ข้อผิดพลาดรันไทม์ '5992' ไม่สามารถเข้าถึงแต่ละคอลัมน์ในคอลเล็กชันนี้เนื่องจากตารางมีความกว้างของเซลล์แบบผสม"

ใครก็ได้ช่วยที
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ