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

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

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

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

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


แทรกจำนวนคอลัมน์ว่างลงในช่วงข้อมูลในช่วงเวลาที่กำหนดด้วยโค้ด 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 คีย์เพื่อเรียกใช้รหัสนี้ กล่องข้อความจะปรากฏขึ้นเพื่อเตือนให้คุณเลือก ช่วงข้อมูล ที่คุณต้องการแทรกคอลัมน์เปล่า
doc แทรกคอลัมน์ในช่วงเวลา 1

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

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

6 คลิกที่ OK ปุ่มเพื่อรับผลลัพธ์
doc แทรกคอลัมน์ในช่วงเวลา 4


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

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

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

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

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

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

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


การดำเนินงานอื่น ๆ (บทความ)

วิธีการแทรกบรรทัดอย่างรวดเร็วตามวันที่ปัจจุบันใน Excel?
สมมติว่ามีแผ่นงานที่มีแถวที่มีวันที่และตอนนี้ฉันต้องการแทรกบรรทัดตรงกับวันที่ปัจจุบันซึ่งจะเปลี่ยนอัตโนมัติในขณะที่เปิดสมุดงานทุกวัน มีเคล็ดลับที่สามารถแก้ปัญหาได้ใน Excel หรือไม่?

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

วิธีการแทรกแถวใหม่ที่ว่างเปล่าโดยอัตโนมัติด้วยปุ่มคำสั่งใน Excel?
ในหลาย ๆ กรณีคุณอาจต้องแทรกแถวใหม่ว่างลงในตำแหน่งที่ระบุของแผ่นงานของคุณ ในบทความนี้เราจะแสดงวิธีแทรกแถวใหม่ที่ว่างโดยอัตโนมัติโดยคลิกที่ปุ่มคำสั่งใน Excel

วิธีการแทรกแถวว่างหลังจากข้อความที่ระบุใน Excel?
หากคุณต้องการแทรกแถวว่างหลังข้อความเฉพาะดังภาพหน้าจอต่อไปนี้จะจัดการกับมันอย่างไรอย่างรวดเร็วและง่ายดายโดยไม่ต้องแทรกทีละรายการด้วยตนเอง?


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

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

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

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL