EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
สูตรไม่ใช่ที่แจ้งไปนะครับ ดูที่ไฟล์แนบครับajsudkedt wrote: ↑Wed Dec 27, 2023 1:11 pmใส่สูตรแล้ว มี error ตามไฟล์ ask2 ที่แนบ ครับpuriwutpokin wrote: ↑Wed Dec 27, 2023 9:59 am ลองดูครับที่
B2=UNIQUE(answer_key!A2:A999&"")
C2=INDEX(answer_key!$B$2:$B$999,MATCH($B2,answer_key!$A$2:$A$999,0)+COLUMNS($C$2:C2)-1) copy right and down
Code: Select all
ActiveCell.Offset(f2, 3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Code: Select all
Cells(i + 6, 9).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False