ขอรบกวนเรื่องการเขียนสูตรวนloopครับ

[cmos]

ขอรบกวนผู้รู้ทุกท่านครับผมมือใหม่หัดเขียนครับ
ผมอยากเขียนให้ตรวจสอบรหัสที่ซ้ำกันเมื่อพบให้เขียนเวลาที่ประทับไว้ลงในแถวเดียวกันต่อไปเรื่อยๆจนหมดแล้วตรวจสอบรหัสต่อไปเรื่อยๆจนหมดครับ แต่สูตรที่ผมเขียนมันไปการเขียนแบบไม่มีรูปแบบครับอย่าได้คำแนะนำจากบรรดาผู้รู้ทุกท่านครับ
ตัวอย่างที่เขียนครับ

Code: Select all

Private Sub CommandButton1_Click()
Dim erow As Long
Dim ws As Worksheet
Dim lastrow As Long
Dim count As Integer

lastrow = Sheets("data").Cells(Rows.count, 1).End(xlUp).Row  
c = 3

count = 0
Sheets("show").Range("d2:IV65530").ClearContents 
'1++----------------------------------------------------------
For x = 2 To lastrow  
If Sheets("data").Cells(x, 4) = Sheets("data").Range("j1") Then
   c = c + 1
Sheets("show").Cells(2, c) = Sheets("data").Cells(x, 1)
count = count + 1
End If
Next x

Sheets("show").Select
End Sub

สิ่งที่รบกวนครับ
1.อยากให้ Range ที่เปรียบเทียบเพิ่มขึ้นด้วย loop เช่น j1 ,j2,j3 ในตัวอย่าวผมระบุไว้ครับ
2.ให้column เพื่อขึ้นด้วย loop คือค่า c ในตัวอย่างให้ columnที่จะวางต่อกันไปจนหมดครับ
3.ให้เพิ่มแถวลงมาเรื่อยๆ เช่น แถวที่ 2 เพิ่มเป็น 3,4,5 จนหมดครับ
ขอบพระคุณท่านผู้รู้ที่จะให้ความกระจ่างครับ

TEST_STUDENT CHECK _ GUITAR-T FERN0001online.xlsm

[DhitiBank]

เกือบเข้าใจแล้วครับ แต่ติดตรงข้อมูลในชีท data คอลัมน์ J เลยขอถามเพิ่ม 2 ข้อครับ
1. สิ่งที่แสดงในชีท show คือคำตอบที่ต้องการใช่หรือไม่ครับ
2. คอลัมน์ J ในชีท data มีไว้ทำไมครับ ต้องเอามาตรวจสอบยังไง เห็นในโค้ดก็มีเขียนเอาไว้ด้วย

[cmos]

ครับผมให้แสดงใน sheet show ครับ และคอลัมน์ j ผมใช้เป็นตัวเปรียบเทียบรหัสหลักครับโดย คอลัมน์ j คือรหัสผู้ใช้ทั้งหมดที่ไม่ซ้ำกันครับ ขอบคุณครับที่ความอนุเคราะห์ครับ

[cmos]

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