วิธีป้องกันการกำหนดหมายเลขอัตโนมัติที่ส่วนหัวของคอลัมน์ที่ซ้ำกันในตาราง Excel

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

เพิ่มช่องว่างต่อท้ายส่วนหัวโดยอัตโนมัติ

หมายเหตุ: วิธีการที่ให้ไว้ในบทช่วยสอนนี้ได้รับการทดสอบใน Excel 2021 อาจมีบางวิธีที่แตกต่างกันใน Excel เวอร์ชันต่างๆ

1. พิมพ์ส่วนหัวที่คุณต้องการทำซ้ำในคอลัมน์ จากนั้นกด อื่น ๆ + F11 คีย์เพื่อเปิดใช้งาน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 คลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อสร้างโมดูลใหม่ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง จากนั้นคัดลอกและวางโค้ดด้านล่างลงไป

VBA: ทำซ้ำและเพิ่มช่องว่างต่อท้าย

Sub repeat()
'UpdatebyExtendoffice20220927
    Dim xRg As Range
    Dim saveRg As Range
    Dim xIndex As Integer
    Dim xCount As Integer
    Dim k As Integer
    Dim xStr As String
    Set xRg = Application.InputBox("Select the cells that you want to repeat", "kte", , , , , , 8)
    xIndex = Application.InputBox("Enter the repeat times", "kte")
    Set saveRg = Application.InputBox("Select a cell to output", "kte", , , , , , 8)
    xStr = ""
    xCount = xRg.Cells.Count * xIndex
    Set saveRg = saveRg.Range("a1").Resize(1, xCount)
    k = 0
    For i = 1 To xIndex
        For j = 1 To xRg.Cells.Count
            k = k + 1
            saveRg.Cells(k).Value = xRg.Cells(j).Value + xStr
        Next
        xStr = xStr + " "
    Next
End Sub

3 คลิก วิ่ง  ปุ่มในริบบิ้นหรือกด F5 คีย์เพื่อเปิดใช้งานโค้ด ในไดอะล็อก popping แรก ให้เลือกส่วนหัวที่คุณต้องการทำซ้ำ คลิก OK.

4. ในกล่องโต้ตอบ popping ที่สอง ให้พิมพ์เวลาทำซ้ำที่คุณต้องการ คลิก OK.

5. เลือกเซลล์ที่คุณต้องการส่งออกส่วนหัวซ้ำ คลิก OK.

ตอนนี้ส่วนหัวได้ถูกทำซ้ำและเพิ่มด้วยช่องว่างต่อท้าย

6. เลือกส่วนหัวและคัดลอกโดยกด Ctrl + Cแล้ววางกลับไปที่ตารางที่คุณต้องการโดยกด Ctrl + V.

ตอนนี้คุณสามารถเห็นตารางมีส่วนหัวของคอลัมน์ที่ซ้ำกันโดยไม่มีการกำหนดหมายเลข

---

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

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

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

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

---

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

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

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