วิธีลบแถวเหนือเซลล์ที่ใช้งานหรือข้อความเฉพาะใน Excel
หากมีแผ่นงานขนาดใหญ่ที่มีหลายแถวและคุณเพียงแค่ต้องการลบแถวทั้งหมดเหนือเซลล์ที่ใช้งานอยู่หรือข้อความเฉพาะคุณจะจัดการได้อย่างไร? คุณสามารถลบแถวได้โดยเลือกจากนั้นคลิกขวาเพื่อเลือกลบจากเมนูบริบทด้วยตนเอง แต่ที่นี่ฉันมีรหัส VBA เพื่อลบแถวด้านบนอย่างรวดเร็วหากคุณสนใจโปรดอ่านรายละเอียดด้านล่าง
ลบแถวด้านบนด้วยรหัส VBA
ที่นี่ฉันแนะนำรหัส VBA สองรหัสสำหรับคุณหนึ่งคือลบแถวด้านบนที่ใช้งานอยู่ (เซลล์ที่เลือก) อีกอันจะลบแถวเหนือข้อความที่ระบุ
1. เลือกเซลล์ที่คุณต้องการลบแถวด้านบนแล้วกด Alt + F11 กุญแจเพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางโค้ดด้านล่างลงในไฟล์ โมดูล ต้นฉบับ
VBA: ลบแถวเหนือเซลล์ที่ใช้งานอยู่
Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub
3 กด F5 จากนั้นแถวด้านบนเซลล์ที่ใช้งานจะถูกลบออก ดูภาพหน้าจอ:
หากคุณต้องการลบแถวเหนือข้อความที่ระบุคุณสามารถใช้ VBA ด้านล่าง
VBA: ลบแถวเหนือข้อความที่ระบุ
Sub DeleteRowsABove()
'UpdatebyExtendoffice20161109
Dim fRg As Range
Set fRg = Cells.Find(What:="Total Group", LookAt:=xlWhole)
If Not fRg Is Nothing Then
If fRg.Row <> 1 Then
Range("A1", fRg.Offset(-1)).EntireRow.Delete
Else
MsgBox "Total Group is in the first row already", vbInformation, "Kutools for Excel"
End If
Else
MsgBox "Do not find Total Group", vbInformation, "Kutools for Excel"
End If
End Sub
หมายเหตุ
1. ในรหัส กลุ่มรวม คือข้อความที่คุณต้องการค้นหาคุณสามารถเปลี่ยนแปลงได้ตามต้องการ
2. หากข้อความที่คุณพบอยู่ในแถวแรกแล้วกล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนคุณ
3. หากข้อความที่คุณพบไม่มีอยู่ในแผ่นงานกล่องโต้ตอบด้านล่างภาพหน้าจอจะปรากฏขึ้นเพื่อเตือน
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!