EXCEL TOOLS
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
Excel Add-ins ที่พัฒนาโดยคุณสันติพงศ์ ณสุย (MVP Excel 2010-2020) ด้วยภาษา C# เพื่อแก้ไขปัญหาไฟล์ใหญ่ คำนวณนาน ทำงานช้า จัดการข้อมูลต่าง ๆ ที่ทำงานประจำวันได้อย่างสะดวกรวดเร็ว สนใจคลิกไปดูได้ที่นี่ครับ => Excel Tools
[code]
และปิดด้วย [/code]
ตัวอย่างเช่น [code]dim r as range[/code]
เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)ขอบคุณครับแต่ในไฟล์จริง คอลัมน์เหล่านี้จะมีข้อมูลอยู่นะสิครับpuriwutpokin wrote:คงต้องใช้คอลัมน์ช่วยนะครับ ที่ Q5=IFERROR(INDEX($B$1:$N$1,SMALL(IF($B5:$N5>0,COLUMN($B$1:$N$1)-COLUMN($B$1)+1),COLUMNS($Q5:Q5))),"") กด Ctrl+Shift+Enter คัดลอกไปถึง AC5 แล้วคัดลอกลง
ที่ P5=LEFT(CONCATENATE(Q5,",",R5,",",S5,",",T5,",",U5,",",V5,",",W5,",",X5,",",Y5,",",Z5,",",AA5,",",AB5,",",AC5),LEN(CONCATENATE(Q5,",",R5,",",S5,",",T5,",",U5,",",V5,",",W5,",",X5,",",Y5,",",Z5,",",AA5,",",AB5,",",AC5))-COUNTBLANK(B5:N5)) คัดลอกลงล่างครับ
เสร็จแล้วซ่อนคอลัมน์ ที่ไม่ใช้ครับ คือ Q:AC
ให้เลื่อนไปหาคอลัมน์ว่างแล้วค่อยเขียนสูตร ไม่เช่นนั้นต้องพึ่ง VBA จำเป็นต้องเขียนมาเองก่อน ติดแล้วค่อยถามกันครับaone111 wrote:ขอบคุณครับแต่ในไฟล์จริง คอลัมน์เหล่านี้จะมีข้อมูลอยู่นะสิครับ