สอบถามเกี่ยวกับเรื่องการลบหัวข้อที่ซ้ำกัน

[niwat2811]

รบกวนท่านผู้รู้ ขอสอบถามเกี่ยวกับเรื่องการลบหัวข้อที่ซ้ำกันออกให้เหลือเพียงหัวข้อเดียว
จากตัวอย่างนี้ จะมีหัวข้อใหญ่ทั้งหมด 7 หัวข้อ คือ 1-7 แต่ว่าต้องการลบให้เหลือแค่เพียงหัวข้อเดียว โดยลบจากล่างขึ้นบน
ได้ทดลอง Run Macro ดูแล้ว แต่ไม่ได้ผลตามต้องการ ไม่ทราบว่าควรปรับอย่างไรดีครับ
Code อยู่ใน Module1 ชื่อ DeleteDups
ขอบคุณทุกท่านล่วงหน้าครับ

[snasui]

จากตัวอย่างที่แนบมา ยกตัวอย่างข้อ 6 ซึ่งซ้ำกัน มีข้อย่อยไม่เท่ากัน จะทราบได้อย่างไรว่าต้องการลบชุดใด เก็บชุดใดไว้ครับ

[niwat2811]

จากตัวอย่างจะเห็นว่ามีข้อ 6. ซึ่งซ้ำกันอยู่ 3 หัวข้อ และเลขที่บัญชีภายใต้ข้อ 6. มีอยู่ทั้งรวมทั้งสิ้น 21 เลขที่บัญชี
ต้องการที่จะลบ ข้อ 6. จากด้านล่างขึ้นไป 2 หัวข้อ ให้เหลือเพียงหัวข้อเดียว ส่วนเลขที่บัญชีให้คงเหลือไว้ 21 บัญชีเหมือนเดิมครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Sub DeleteDups()
    Dim x As Long
    Dim LastRow As Long
    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    For x = LastRow To 6 Step -1
        If IsNumeric(Left(Range("A" & x), 1)) Then
            If Application.WorksheetFunction.CountIf(Range("A1:A" & x), _
                Range("A" & x)) > 1 Then
                Range("A" & x).EntireRow.Delete
            End If
        End If
    Next x
End Sub

[niwat2811]

แจ้งผลครับ Code ที่ท่านอาจารย์ให้มาใช้ได้ตรงตามความต้องการครับ
อยากเรียนถามต่อว่า
If IsNumeric(Left(Range("A" & x), 1))
หมายความว่าอย่างไรครับ

[nattasiray]

ขอให้สร้างตัวอย่างใหม่ ใส่เลขที่บัญชีสมมุติ พร้อม ผลลัพธ์ที่ต้องการครับ เพราะตารางที่คุณให้มายากแก่การทำความเข้าใจ

ตารางบันทึกข้อมูลของคุณควรเป็นตารางฐานข้อมูลครับ แต่ที่คุณส่งมาเป็น Report ควรกลับไปแก้ไขการตารางฐานข้อมูลก่อน

แฟ้มของคุณยังไม่ใช้แบบอักษร TH SarbanPSK ขนาด 16 พอยน์เริ่มต้น ตามประกาศสำนักนายกรัฐมนตรี เพราะทันทีที่คุณแทรกเวิร์คชีตใหม่ ยังเป็น Tahoma ขนาด 11 พอยน์ อยู่

การกำหนดแบบอักษรเริ่มต้นให้กับแฟ้ม
แท็บ Home (หน้าหลัก)
คลิกปุ่ม สไตล์เซลล์ (Cells Styles)
คลิกขวาที่ปกติ (Normal) เลือกปรับเปลี่ยน (Modify...)
คลิกปุ่มรูปแบบ (format...) เพื่อเรียกกรอบโต้ตอบรูปแบบ (Format)
คลิกแท็บแบบอักษร (Font)
กำหนดที่ช่องแบบอักษร Th SarabunPSK (แต่ให้ใช้ Ths Sarabun New -จะดีกว่า)
กำหนดขนาด 16
คลิกปุ่มตกลง (OK) ตามกรอบโต้ตอบต่าง ๆ

ส่วนการกำหนดแบบอักษรเริ่มต้นให้กับโปรแกรม ศึกษาที่

http://www.youtube.com/watch?v=uPHiIaYVWRA

[niwat2811]

ขอบคุณ คุณ nattasiray ที่ช่วยชี้แนะครับ ตัวอย่างที่ได้แนบมานั้นเป็นตัวอย่างที่ได้สรุปมาในรูปแบบของรายงานซึ่งเป็นอย่างนั้นจริง ๆ ครับ
ซึ่งจริง ๆ แล้วข้อมูลจะมีมากกว่านี้มากครับ เวลามาตรวจสอบรายงานแต่ละสาขาทำให้ใช้เวลาค่อนข้างมาก
ผมเลยต้องการที่จะนำมาทำเป็น Database ซึ่งจะได้ช่วยประหยัดเวลาในการตรวจสอบ จะได้ง่ายต่อการสรุปข้อมูลครับ

[snasui]

แจ้งผลครับ Code ที่ท่านอาจารย์ให้มาใช้ได้ตรงตามความต้องการครับ
อยากเรียนถามต่อว่า
If IsNumeric(Left(Range("A" & x), 1)) Then
หมายความว่าอย่างไรครับ

หมายความว่า ถ้าอักขระด้านซ้ายสุด 1 อักขระของเซลล์ Ax เป็นตัวเลขแล้ว

[nattasiray]

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

ลองหาหนังสือ จัดการฐานข้อมูลด้วยไมโครซอฟต์เอ็กเซล 2010 มาอ่านด้วยครับ ในเล่มดังกล่าวจะมีหลักการออกแบบฐานข้อมูล บันทึกข้อมูล

[niwat2811]

ขอบคุณท่านอาจารย์และคุณ nattasiray ที่ช่วยชี้แนะครับ