1
ตัวกรองข้อมูลคอลัมน์
ฉันมีคอลัมน์ข้อมูลที่ฉันต้องการ 'กรอง' ตัวกรองนี้มีองค์ประกอบที่แตกต่างกันสองส่วน ขั้นตอนที่ 1: เลื่อนลงไปตามคอลัมน์ข้อมูล ระบุช่องว่างในบล็อกของข้อมูล ช่องว่างน้อยกว่าค่าเซลล์ที่เสนอชื่อจะถูกเติมด้วยค่า 1 ขั้นตอนที่ 2: เลื่อนลงมาตามคอลัมน์ข้อมูลเดียวกันกับขั้นตอนที่ 1 ระบุกลุ่มข้อมูลที่ประกอบด้วยจำนวนแถวที่ต่ำกว่าค่าเซลล์ที่เสนอ บล็อกของข้อมูลที่มีขนาดเล็กกว่าค่าเซลล์ที่ระบุจะถูกลบ ฉันได้สร้างมาโครที่เติมช่องว่างในกลุ่มข้อมูลน้อยกว่าค่าเซลล์ที่แน่นอน (เซลล์ (1, 15) .Value) ตามที่แสดงด้านล่าง นี่คือสิ่งที่ฉันมีจนถึงตอนนี้ฉันเริ่มเขียนแมโครสำหรับขั้นตอนที่สอง แต่ไม่สามารถผ่านข้อผิดพลาดทางไวยากรณ์ได้ ที่แสดงด้านล่างนี้เป็นตัวอย่างของข้อมูลดิบและข้อมูลที่ถูกกรอง ข้อผิดพลาดทางไวยากรณ์คือสิ่งหนึ่งฉันกำลังดิ้นรนกับวิธีการดำเนินขั้นตอนที่สองดังนั้นความช่วยเหลือจะได้รับการชื่นชม ไชโย Option Explicit Sub FillInTheBlanks() ' ' FillInTheBlanks Macro ' 'Declare integers and decimal characters Dim iCol As Long, Last As Long, i As Long …