ไปยังเนื้อหาหลัก

วิธีการเปลี่ยนหมายเลขอัตโนมัติหรือเปลี่ยนหมายเลขหลังจากกรองใน Excel

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

หมายเลขอัตโนมัติหรือเปลี่ยนหมายเลขหลังจากกรองด้วยรหัส VBA

หมายเลขอัตโนมัติหรือเปลี่ยนหมายเลขหลังจากกรองด้วย Kutools for Excel

doc-renum-filter-1 -2 doc-renum-filter-2

หมายเลขอัตโนมัติหรือเปลี่ยนหมายเลขหลังจากกรองด้วยรหัส VBA

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

1. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.

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

รหัส VBA: หมายเลขอัตโนมัติหรือเปลี่ยนหมายเลขหลังตัวกรอง

Sub Renumbering()
	'Updateby Extendoffice
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Columns(1).SpecialCells(xlCellTypeVisible)
	xIndex = 1
	For Each Rng In WorkRng
		Rng.Value = xIndex
		xIndex = xIndex + 1
	Next
End Sub

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

doc-renum-filter-3

4. จากนั้นคลิก OKและเซลล์ช่วงที่คุณเลือกได้รับการจัดลำดับใหม่ตามลำดับดังภาพด้านล่างที่แสดง:

doc-renum-filter-3

หมายเหตุ: รหัสนี้จะทำลายหมายเลขแถวชุดเดิมเมื่อคุณยกเลิกฟังก์ชันตัวกรอง ดังนั้นคุณต้องสำรองข้อมูลของคุณก่อน


หมายเลขอัตโนมัติหรือเปลี่ยนหมายเลขหลังจากกรองด้วย Kutools for Excel

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

Kutools สำหรับ Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน. 

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:

1. เลือกเซลล์ที่คุณต้องการกำหนดหมายเลขใหม่สำหรับข้อมูลที่กรอง

2. จากนั้นคลิก Kutools > สิ่งที่ใส่เข้าไป > แทรกหมายเลขลำดับดูภาพหน้าจอ:

3. จากนั้นในโผล่ออกมา แทรกหมายเลขลำดับ คลิกตกลง ใหม่ ปุ่มดูภาพหน้าจอ:

doc-renum-filter-3

4. จากนั้นสร้างหมายเลขรายการลำดับตามที่คุณต้องการในส่วนล่างซ้ายดูภาพหน้าจอ:

doc-renum-filter-3

5. หลังจากตั้งค่าลำดับแล้วให้คลิก เพิ่ม และเพิ่มรายการลำดับลงในกล่องโต้ตอบดูภาพหน้าจอ:

doc-renum-filter-3

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

doc-renum-filter-3

ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!


การสาธิต: หมายเลขอัตโนมัติหรือเปลี่ยนหมายเลขหลังจากกรองด้วย Kutools for Excel

Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!

บทความที่เกี่ยวข้อง:

วิธีการรวมเซลล์โดยอัตโนมัติใน Excel

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด


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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Deseo felicitarlo(s) por tan EXCELente trabajo. Enhorabuena!
This comment was minimized by the moderator on the site
Thank you, thanks alot
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations