Excel - แมโครสำหรับการลบแถวตามเงื่อนไข

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

ปัญหา

ฉันต้องการมาโครสำหรับการลบแถวเมื่อไม่มีเซลล์ใดในแถวที่มีหนึ่งในสองหมายเลข " 103526 " หรือ " 103527 "

จำนวนแถวคือตัวแปร (สูงสุด 150) และจำนวนคอลัมน์แปรผันเกินไป (สูงสุด 100)

ความช่วยเหลือใด ๆ ที่ชื่นชม

สารละลาย

สภาพของคุณทำให้ฉันสับสน ฉันกำลังใช้ถ้อยคำใหม่

หากแถวมีทั้ง 103526 หรือ 102527 หรือทั้งสองอย่างอย่าลบ

หากตัวเลขสองตัวนั้นไม่อยู่ในแถวให้ลบ

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

ข้อมูลอยู่ในแผ่นงาน 1 ลองใช้แมโครนี้:

 การทดสอบย่อย () Dim j As Integer, k As Integer Dim r As Range, cfind6 As Range, cfind7 As Range Worksheets ("sheet1") เปิดใช้งานเมื่อเกิดข้อผิดพลาดขึ้นต่อไป j = เซลล์ (Rows.Count, "A") End (xlUp) .Row สำหรับ k = j ถึง 1 ขั้นตอน -1 ตั้งค่า cfind6 = แถว (k) .Cells.Find (what: = 103526, lookat: = xlWhole) ตั้งค่า cfind7 = แถว (k) .Cells.Find (what: = 103527, lookat: = xlWhole) ถ้า cfind6 ไม่มีอะไรและ cfind7 ไม่มีอะไรแล้วก็แถว (k) ลบถัดไป