Code VBA การใช้ Unique นำค่าใน reference แล้วมาเทียบกับค่าinput และนำค่าที่ไม่ซ้ำกัน จาก referance มาเก็บไว้ครับ

[lotto009]

เรียนอาจาร์ยครับ
ขอความช่วยเหลือครับ เกี่ยวกับcode นำค่าใน reference แล้วมาเทียบกับค่าinput และนำค่าที่ไม่ซ้ำกัน referance มาเก็บไว้ครับ
ขันตอนครับ
1.ผมมีค่าinput ใน Worksheets("sheet2").Range.("J2:J300") ผมมี
2.นำค่าไปเทียบกับ reference-Worksheets("sheet1").Range ("R3:R500")
3.ค่าซ้ำกับใน reference-Worksheets("sheet1").Range ("R3:R500") ไม่เอามา ไม่สนใจค่าใน input
4.ค่าไม่ซ้ำกับใน reference-Worksheets("sheet1").Range ("R3:R500") เอามา สนใจค่าใน reference เท่านั้นครับ
5.นำค่าไปไว้ที่ Worksheets("sheet2").Range.("P2:P500")
ผมเขียนมาเบื้องต้นแล้วแต่ใช้ไม่ตรงตามต้องการครับ
คือมาทั้งหมดเลย ผมใช้ uniqueไม่เป็นครับ
ขอบพระคุณมากครับ
อาร์ต

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Dim Na As Range, Nc As Range, r As Range

With Worksheets("Sheet1")
    Set Na = .Range("r3:r" & .Cells(Rows.Count, "R").End(xlUp).Row)
End With
With Worksheets("Sheet2")
    Set Nc = .Range("j2:j" & .Cells(Rows.Count, "J").End(xlUp).Row)
End With
For Each r In Na
    If Application.CountIf(Nc, r.Value) = 0 Then
        With Sheets("Sheet2")
            .Range("p" & .Rows.Count).End(xlUp).Offset(1, 0).Value = r.Value
        End With
    End If
Next r

[lotto009]

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

[lotto009]

code vba อาจาร์ย เรียงสวยมาก ยอมรับเลยใช้ง่ายมาก แต่ล้ำลึก