แทรกคอลัมน์ว่างทุกๆ คอลัมน์ใน Excel – 4 วิธีง่ายๆ

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

แทรกคอลัมน์ว่างทุกๆ คอลัมน์หรือคอลัมน์ที่ n ใน Excel

• ด้วยปุ่มลัด
• ด้วยคอลัมน์ตัวช่วยและคุณลักษณะการเรียงลำดับ
• ด้วยการคลิกเพียงไม่กี่ครั้งโดย Kutools for Excel
• ด้วยรหัส VBA

แทรกคอลัมน์ว่างทุกๆ คอลัมน์หรือคอลัมน์ที่ n โดยใช้ปุ่มลัด

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

1. เลือกคอลัมน์โดยการคลิกหมายเลขคอลัมน์ที่คุณต้องการแทรกคอลัมน์ว่าง
2. ต่อไป ให้กด . ค้างไว้ Ctrl กดแป้นบนแป้นพิมพ์ของคุณ จากนั้นคลิกหมายเลขคอลัมน์ทีละคอลัมน์ที่คุณต้องการเลือก ดูภาพหน้าจอ:
   
3. แล้วกด Ctrl + Shift + บวก คีย์ คอลัมน์ว่างจะถูกแทรกระหว่างคอลัมน์อื่น ดูภาพหน้าจอ:
   

แทรกคอลัมน์ว่างทุกๆ คอลัมน์หรือคอลัมน์ที่ n โดยใช้คอลัมน์ตัวช่วยและฟีเจอร์การเรียงลำดับ

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

1. แทรกแถวว่างใหม่เหนือชุดข้อมูล
2. ใส่ตัวเลข 1 และ 2 ในสองเซลล์แรกของแถว จากนั้นเลือกเซลล์ A1 และ B1 แล้วลากจุดจับเติมไปทางขวาจนถึงเซลล์ข้อมูลสุดท้าย รายการตัวเลขที่เพิ่มขึ้นจะถูกเติมตามภาพหน้าจอด้านล่าง:
   
3. คัดลอกหมายเลขลำดับและวางไว้หลังหมายเลขสุดท้ายในแถวเดียวกัน
   
4. เลือกช่วงข้อมูลทั้งหมด จากนั้นคลิก ข้อมูล > ประเภทดูภาพหน้าจอ:
   
5. ในเรื่องดังต่อไปนี้ ประเภท คลิกตกลง Options ปุ่ม
   
6. จากนั้นเลือก เรียงจากซ้ายไปขวา และคลิก OK กลับไปที่ไฟล์ ประเภท กล่องโต้ตอบ
   
7. เลือกเพิ่มแถวใหม่จาก เรียงลำดับตาม รายการแบบดรอปดาวน์ และปล่อยตัวเลือกอื่น ๆ ไว้โดยไม่เปลี่ยนแปลง จากนั้นคลิก OK เพื่อปิดกล่องโต้ตอบ
   
8. ขณะนี้ข้อมูลจะถูกเรียงลำดับตามค่าในแถวตัวช่วย และจะแทรกคอลัมน์ว่างหลังจากคอลัมน์อื่นทุกๆ คอลัมน์
   
9. สุดท้ายคุณสามารถลบแถวตัวช่วยได้หากจำเป็น

แทรกคอลัมน์ว่างทุกๆ คอลัมน์หรือคอลัมน์ที่ n ด้วยการคลิกเพียงไม่กี่ครั้ง

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

หลังจากดาวน์โหลดและติดตั้ง Kutools สำหรับ Excelคลิก Kutools > สิ่งที่ใส่เข้าไป > แทรกแถวและคอลัมน์ว่าง เพื่อเปิด แทรกแถวและคอลัมน์ว่าง กล่องโต้ตอบ

1. เลือกช่วงข้อมูลที่คุณต้องการแทรกคอลัมน์ว่าง
2. Choose คอลัมน์ว่าง จาก ประเภทการแทรก มาตรา.
3. จากนั้นระบุตัวเลขลงใน ช่วงเวลาของ และ คอลัมน์ กล่องข้อความตามที่คุณต้องการ (ที่นี่ ฉันจะแทรกคอลัมน์ว่างสองคอลัมน์หลังหนึ่งคอลัมน์ ดังนั้น ฉันจึงป้อน 1 และ 2 ลงในกล่อง ช่วงของ และ คอลัมน์ แยกกัน)
4. ในที่สุดคลิก OK เพื่อปิดกล่องโต้ตอบ
   

Kutools จะแทรกคอลัมน์ว่างตามช่วงที่คุณระบุทันที ดูภาพหน้าจอ:

แทรกคอลัมน์ว่างทุกๆ คอลัมน์หรือคอลัมน์ที่ n ด้วยโค้ด VBA

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

1. ค้างไว้ ALT + F11 ใน Excel และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในหน้าต่างโมดูล
   รหัส VBA: แทรกจำนวนคอลัมน์ว่างที่เจาะจงลงในข้อมูลในช่วงเวลาที่กำหนด

   Sub InsertColumnsAtIntervals()
       'Updatedby Extendoffice
       Dim WorkRng As Range
       Dim xInterval As Integer
       Dim xCols As Integer
       Dim xColsCount As Integer
       Dim xNum1 As Integer
       Dim xNum2 As Integer
       Dim xWs As Worksheet
       Dim xTitleId As String
       Dim i As Integer
       xTitleId = "Kutools for Excel"
       Set WorkRng = Application.Selection
       Set WorkRng = Application.InputBox("Select column range:", xTitleId, WorkRng.Address, Type:=8)
       xColsCount = WorkRng.Columns.Count
       xInterval = Application.InputBox("Enter column interval:", xTitleId, 1, Type:=1)
       xCols = Application.InputBox("How many blank columns to insert at each interval?", xTitleId, 1, Type:=1)
       xNum1 = WorkRng.Column + xInterval
       xNum2 = xCols + xInterval
       Set xWs = WorkRng.Parent
       For i = 1 To Int(xColsCount / xInterval)
           xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xCols - 1)).EntireColumn.Insert
           xNum1 = xNum1 + xNum2
       Next
       MsgBox "Columns inserted successfully!", vbInformation
   End Sub
   

3. หลังจากวางโค้ดนี้แล้วให้กด F5 คีย์เพื่อเรียกใช้โค้ดนี้ ในกล่องพร้อมท์ ให้เลือกช่วงข้อมูลที่คุณต้องการแทรกคอลัมน์ว่าง จากนั้นคลิก OKดูภาพหน้าจอ:
   
4. จะมีกล่องข้อความปรากฏขึ้นมา ให้พิมพ์จำนวนช่วงของคอลัมน์ จากนั้นคลิก OKดูภาพหน้าจอ:
   
5. ในกล่องข้อความต่อไปนี้ ให้พิมพ์จำนวนคอลัมน์ว่างที่คุณต้องการแทรก จากนั้นคลิก OKดูภาพหน้าจอ:
   

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

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