Excel - แมโครเพื่อลบค่าเซลล์เฉพาะ

ปัญหา

ฉันต้องการลบค่าในชุดของเซลล์ใน excel โดยใช้สคริปต์ VBA

เช่นฉันต้องการลบ d3: d4, e3: e4, g3: g4, h3: h4

และอีกชุดหนึ่ง d9: d11, e9: e11, g9: g11, h9: h11

 sub delete ฉันกำลังใช้วิธีนี้ชีต ("sheet1"). range ("d3: e4) .select selection.clearcontents sheets (" sheet1 "). range (" g3: h4) .select selection.clearcontents . . . ส่วนท้าย 

แต่วิธีนี้จะเห็นความซ้ำซ้อน บางคนได้โปรดช่วยฉันในการเขียนรหัสที่ดีขึ้น

สารละลาย

สร้างรูทีนทั่วไปและเรียกรูทีนนั้น

 'rowToClearStarting: แถวแรกในช่วงที่ต้องล้างข้อมูล' rowToClearEnding: แถวสุดท้ายในช่วงที่ต้องล้างค่า 'ตัวอย่างการโทร: clearContents (4, 6) สาธารณะย่อย clearContents (rowToClearStarting As Long, แถวToToClearEnding) "sheet1"). ช่วง ("d" & rowToClearStarting & ": d" & rowToClearEnding) .CararContents ชีต ("sheet1") ช่วง ("e" & rowToClearStarting "(e" & rowToClearStarting ชีต ") ") .Range (" g "& rowToClearStarting &": g "& rowToClearEnding) .CararContents ชีต (" sheet1 ") ช่วง (" h "& rowToClearStarting สิ้นสุด") " 

ขอบคุณ Rrizvisa1 สำหรับเคล็ดลับนี้