บทความนี้示範วิธีแปลงหมายเลขคอลัมน์เป็นตัวอักษร ใน Excel 3 วิธีที่ง่ายและมีประสิทธิภาพ
3 วิธี แปลงหมายเลขคอลัมน์เป็นตัวอักษร
1. ใช้สูตร (Formula)
สูตรทั่วไป: =SUBSTITUTE(ADDRESS(1,col_number,4),"1","")
ตัวอย่าง: =SUBSTITUTE(ADDRESS(1,B5,4),"1","")
อธิบาย:
ADDRESS(1,B5,4)สร้างที่อยู่เซลล์ (เช่น A1) โดย row=1, col=ค่าใน B5, abs_num=4 (อ้างอิงสัมพัทธ์)SUBSTITUTE(...,"1","")ตัดตัวเลข 1 ออก เหลือตัวอักษรคอลัมน์
2. ใช้ VBA สร้าง User Defined Function (UDF)
- กด Alt+F11 เปิด VBA Editor
- Insert → Module
- วางโค้ด:
Public Function NumToLetter(ColNum)
NumToLetter = Split(Cells(1, ColNum).Address, "$")(1)
End Function
- กด Save (ไม่กด Run)
- กลับชีท ใช้สูตร:
=NumToLetter(B5)
3. ใช้ตัวเลือกในตัวของ Excel (Built-in Option)
- File → Options
- Formulas → ยกเลิกถูก R1C1 reference style → OK
- คอลัมน์จะกลายเป็นตัวอักษร (A, B, C...) ทันที
สรุป
3 วิธีแปลงหมายเลขคอลัมน์เป็นตัวอักษร: สูตร ADDRESS+SUBSTITUTE, VBA UDF, และตั้งค่า R1C1 reference style เลือกใช้ตามความเหมาะสม
อ่านเพิ่มเติม
- VLOOKUP ด้วย Column Index จากแผ่นอื่น
- หา Column Index Number (2 วิธี)
- นับคอลัมน์ถ้าคอลัมน์อื่นตรงเงื่อนไข (4 วิธี)
- VBA ดึง Row/Column จากที่อยู่เซลล์ (4 วิธี)
- เปลี่ยนชื่อคอลัมน์จาก ABC เป็น 123