วิธีการแทรกจำนวนคอลัมน์เฉพาะในช่วงเวลาคงที่ใน Excel?

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

แทรกจำนวนคอลัมน์ว่างลงในช่วงข้อมูลในช่วงเวลาที่กำหนดด้วยโค้ด VBA

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

เราสามารถใช้ด้านล่าง รหัส VBA เพื่อแทรกจำนวนคอลัมน์ว่างหลังทุกคอลัมน์ที่ n กรุณาทำดังนี้

1 กด Alt + F11 ใน Excel และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 คลิก สิ่งที่ใส่เข้าไป > โมดูล และวางมาโครต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: แทรกจำนวนคอลัมน์ที่ระบุลงในข้อมูลในช่วงเวลาที่กำหนด

Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
   Application.Selection.EntireColumn.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3 กด F5 คีย์เพื่อเรียกใช้รหัสนี้ กล่องข้อความจะปรากฏขึ้นเพื่อเตือนให้คุณเลือก ช่วงข้อมูล ที่คุณต้องการแทรกคอลัมน์เปล่า

4 คลิกที่ OK ปุ่ม. กล่องข้อความอื่นปรากฏขึ้น โปรดป้อน จำนวนช่วงคอลัมน์ ใน ป้อนช่วงคอลัมน์ กล่อง.

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

6 คลิกที่ OK ปุ่มเพื่อรับผลลัพธ์

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

ก่อนที่จะใช้ Kutools สำหรับ Excelโปรดดาวน์โหลดและติดตั้งก่อน

1. เลือกช่วงข้อมูลที่มีอยู่ก่อน จากนั้นคลิก Kutools > สิ่งที่ใส่เข้าไป > แทรกแถวและคอลัมน์ว่าง.

ในปี 2 แทรกแถวและคอลัมน์ว่าง กล่องโต้ตอบปรากฏขึ้น คุณสามารถดูช่วงข้อมูลที่คุณเลือกในขั้นตอนที่ 1 ที่แสดงในกล่องช่วง เลือก คอลัมน์ว่าง ตัวเลือกใน ประเภทการแทรก ส่วน. และระบุ จำนวนช่วงคอลัมน์ และ คอลัมน์ที่คุณต้องการแทรกในแต่ละช่วงเวลา. ที่นี่ฉันป้อน 1 และ 3 แยกกัน

3 คลิกที่ OK ปุ่มเพื่อสิ้นสุดการตั้งค่าและรับผลลัพธ์

หมายเหตุ: หากคุณต้องการทดลองใช้ยูทิลิตี้นี้ฟรี ( 30 วัน) โปรดคลิกเพื่อดาวน์โหลด จากนั้นไปที่การใช้งานตามขั้นตอนข้างต้น

---

เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

• ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
• ผสานเซลล์ / แถว / คอลัมน์ และการเก็บรักษาข้อมูล แยกเนื้อหาของเซลล์ รวมแถวที่ซ้ำกันและผลรวม / ค่าเฉลี่ย... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
• เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
• สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
• แทรกสูตรที่ชื่นชอบและรวดเร็ว, ช่วงแผนภูมิและรูปภาพ; เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
• แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
• ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
• รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
• การจัดกลุ่มตาราง Pivot ตาม จำนวนสัปดาห์วันในสัปดาห์และอื่น ๆ ... แสดงปลดล็อกเซลล์ที่ถูกล็อก ด้วยสีที่ต่างกัน เน้นเซลล์ที่มีสูตร / ชื่อ...

อ่านเพิ่มเติม ... คุณสมบัติเต็มรูปแบบ ทดลองใช้งานฟรี 30 วัน... ซื้อ... 

---

แท็บ Office - นำอินเทอร์เฟซแบบแท็บมาสู่ Office และทำให้งานของคุณง่ายขึ้นมาก

• เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
• เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
• เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!

อ่านเพิ่มเติม ... คุณสมบัติเต็มรูปแบบ ทดลองใช้งานฟรี 30 วัน... ซื้อ...