วิธีลบแถวเหนือเซลล์ที่ใช้งานหรือข้อความเฉพาะใน Excel

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

ลบแถวด้านบนด้วยรหัส 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. หากข้อความที่คุณพบไม่มีอยู่ในแผ่นงานกล่องโต้ตอบด้านล่างภาพหน้าจอจะปรากฏขึ้นเพื่อเตือน