Snasui Excel Forum

1. เซลล์ G3 คีย์เพื่อแสดงรายการออกมาเป็นคอลัมน์เดียวจะได้สะดวกในการใช้สูตรในข้อ 2
   =IFERROR(INDEX($C$3:$E$10,INT((ROWS(G$3:G3)-1)/3)+1,MOD((ROWS(G$3:G3)-1),3)+1),"")
   Enter > Copy ลงด้านล่าง โดยเลข 3 ใน Int และ Mod ที่ไม่เกี่ยวกับช่วงเซลล์คือจำนวนคอลัมน์ของข้อมูล
2. ที่เซลล์ H3 คีย์สูตร เพื่อแสดงเฉพาะค่าที่ซ้ำเท่านั้น ค่าที่ไม่ซ้ำไม่นำมาแสดง
   =IFERROR(INDEX($G$3:$G$100,SMALL(IF(FREQUENCY(IF($G$3:$G$100<>0,IF($G$3:$G$100<>"",IF(COUNTIF($G$3:$G$100,$G$3:$G$100)>1,MATCH($G$3:$G$100,$G$3:$G$100,0)))),ROW($G$3:$G$100)-ROW(G$3)+1),ROW($G$3:$G$100)-ROW(G$3)+1),ROWS(G$3:G3))),"")
   Ctrl+Shift+Enter > Copy ลงด้านล่าง

chom_poona wrote:ขอบคุณมากค่ะ ยังมีบางตัวที่ซ้ำแต่ excel ไม่นับมาค่ะ

chom_poona wrote:ตัวอย่าง code ที่เขียน ด้วย VBA ค่ะ

แต่ยังไม่สามารถหาค่าได้

ในช่อง เช็คค่าซ้ำ เราควรใส่ array ไหมค่ะ

แล้วถ้าค่าใน array ไม่ซ้ำให้ลบออก ใช้สูตรอะไรค่ะ

Dim rAll As Range, r As Range
With ActiveSheet
    Set rAll = .Range("b19:e24")
    .Range("j6:j1000,o6:o1000").ClearContents
    For Each r In rAll
        If Application.CountIf(rAll, r.Value) > 1 Then
            If r.Value < .Range("j2").Value Then
                If Application.CountIf(.Range("j2", .Range("j" & .Rows.Count).End(xlUp)), r.Value) = 0 Then
                     .Range("j" & .Rows.Count).End(xlUp).Offset(1, 0).Value = r.Value
                End If
            Else
                If Application.CountIf(.Range("o2", .Range("o" & .Rows.Count).End(xlUp)), r.Value) = 0 Then
                    .Range("o" & .Rows.Count).End(xlUp).Offset(1, 0).Value = r.Value
                End If
            End If
        End If
    Next r
End With