Snasui Excel Forum

ทำได้แล้วค่ะ
ขอโทษด้วยนะคะที่เขียนอธิบายไม่ละเอียด

ขอบคุณค่ะ

:D ปกติก็ควรแนบไฟล์มาครับจะได้ทราบว่าช่วงเซลล์ต้นทาง ปลายทาง ปัญหา และคำตอบที่ต้องการคืออะไร จากที่ถามมาและที่ผมตอบไปดูเหมือนจะเป็นคนละเรื่อง

เพราะอธิบายมาแล้วผมเข้าใจว่าต้องกานนำบรรทัดที่พบข้อมูลมาแสดงผล แต่ที่จริงเป็นการ Match ข้อมูลเพื่อหาว่าค่าที่เกี่ยวข้องกันนั้นเป็นค่าใด

ไม่ว่าจะเป็น Sheet1 ...

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

Sheet 1 เป็น ค่าเริ่มต้นค่ะ
Sheet 2 เป็น ผลลัพธ์ที่ต้องการค่ะ
ขอบค ...

ถ้าต้องการรู้ว่า row และ column ที่ต้องการ อยู่ ใน row และ column ที่เท่าไหร่ เพื่อเอามาใช้ในสูตร MATCH ต้องใช้สูตรอะไรคะ
เช่น
มีค่าอยู่ใน excel ดังนี้
=IF(ISERROR(OFFSET(const!$E$1,MATCH(E2,const!E:E,0)-1,1,1,1)),"",OFFSET(const!$E$1,MATCH(E2,const!E:E,0)-1,1,1,1))

แต่ต้องการเปลี่ยน E2 เป็นค่า row ...

ขอบคุณนะคะ ทำได้เรียบร้อยแล้วค่ะ

ลองเขียนแบบนี้ ได้ผลออกมาแล้วค่ะ
run แล้วรู้สึกว่าช้าๆ ไม่แน่ใจว่าจะมีวิธีที่ทำให้การ run เร็วกว่านี้หรือเปล่าคะ

Sub PasteData()
Dim r As Range, ra As Range

Set ra = ActiveSheet.Range("E20", _
ActiveSheet.Range("E20").End(xlDown))

For Each r In ra

If r = "Manager" Or r = "Asst. Manager" Then ...

และถ้าต้องการเปลี่ยนผลลัพธ์ที่ได้เป็นดังตาราง ต้องแก้ไข code ส่วนไหนคะ
ลองทำดูแล้วแต่ไม่สำเร็จ รบกวนด้วยนะคะ

ID Name Position
1111 AAAA Manager
2222 BBBB Manager
3333 CCCC Admin
4444 DDDD Admin
5555 EEEE Admin
6666 FFFF Asst. Manager
7777 GGGG Asst. Manager
8888 HHHH Admin
9999 IIII Admin
A111 AAAA ...

รบกวนสอบถามเพิ่มเติมค่ะ
Range("A2").End(xlDown).Offset(1, 0).Resize(1, 3) _
= r.Offset(0, -2).Resize(1, 3).Value
หมายความว่าอะไรเหรอคะ รบกวนอธิบายค่ะ อยากเข้าใจ code มากขึ้นค่ะ

รบกวนสอบถามค่ะ
หากต้องการเขียน code ที่ copy & Paste เฉพาะบรรทัดที่มีค่าที่ต้องการต้องเขียน code อย่างไรคะ
เช่น มีค่าตามตารางที่ 1.

ตารางที่ 1.
ID Name Position
1111 AAAA Manager
2222 BBBB Manager
3333 CCCC Admin
4444 DDDD Admin
5555 EEEE Admin
6666 FFFF Asst. Manager
7777 GGGG Asst. Manager
8888 ...