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

วิธีลบแถวเหนือเซลล์ที่ใช้งานหรือข้อความเฉพาะใน 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

 

doc ลบแถวด้านบน 1

3 กด F5 จากนั้นแถวด้านบนเซลล์ที่ใช้งานจะถูกลบออก ดูภาพหน้าจอ:
doc ลบแถวด้านบน 2

หากคุณต้องการลบแถวเหนือข้อความที่ระบุคุณสามารถใช้ 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

doc ลบแถวด้านบน 3

หมายเหตุ

1. ในรหัส กลุ่มรวม คือข้อความที่คุณต้องการค้นหาคุณสามารถเปลี่ยนแปลงได้ตามต้องการ

2. หากข้อความที่คุณพบอยู่ในแถวแรกแล้วกล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนคุณ
doc ลบแถวด้านบน 4

3. หากข้อความที่คุณพบไม่มีอยู่ในแผ่นงานกล่องโต้ตอบด้านล่างภาพหน้าจอจะปรากฏขึ้นเพื่อเตือน
doc ลบแถวด้านบน 5

 

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

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

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

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

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

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

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