รบกวนสอบถาม code VBA ครับ

[wirachat]

1.ผมต้องการให้ในแต่ละคอลัม หาค่าซ้ำกันแล้วแสดงเป็น"X"(หาค่าซ้ำในCol คงค่าที่ซ้ำไว้1ตัวที่เหลือเปลี่ยนเป็น "X")
2.ให้สูตรทำงานครั้งละคอลัมตั้งแต่ col A to ...

ผมรบกวนด้วยครับ หามาหลายวิธีแล้วแต่ Code ทำงานแค่ Col แรก ไม่ทำงานCol ถัดๆไป

Test.JPG (62.87 KiB) Viewed 32 times

Test.xlsm

(21.59 KiB) Downloaded 1 time

[snasui]

กรุณาเเขียนมาเองก่อนตามกฎการใช้บอร์ดข้อ 4 และ 5 ด้านบนครับ

ต้องขออภัยที่แจ้งให้ทราบว่า การใข้ VBA ควรมีความรู้มาเป็นเบื้องต้น เขียนเองได้บ้าง แก้ไขเองได้บ้าง เพราะผมจะเน้นให้สมาชิกตอบในส่วนที่เป็นปัญหาเท่านั้นครับ

[wirachat]

ผมแก้ไขโพสแล้วครับ ต้องขออภัยด้วยครับ

[snasui]

ตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Public Sub Dup()
    Dim c As Range, rall As Range
    Dim N As Long
    For Each c In Range("A1", Range("A1").End(xlToRight))
        Set rall = Range(c, c.End(xlDown))
        For N = rall.Count To 1 Step -1
            If Application.CountIf(rall, rall(N).Value) > 1 Then
                rall(N).Value = "X"
            End If
        Next N
    Next c
End Sub

[wirachat]

ขอบคุณมากครับผม