Snasui Excel Forum

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

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

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

[code]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[/code]

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

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

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

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

ผมรบกวนด้วยครับ หามาหลายวิธีแล้วแต่ Code ทำงานแค่ Col แรก ไม่ทำงานCol ถัดๆไป
[attachment=0]Test.JPG[/attachment]
[attachment=1]Test.xlsm[/attachment]