Note: The other languages of the website are Google-translated. Back to English

วิธีแปลงตัวอักษรคอลัมน์เป็นตัวเลขหรือในทางกลับกันใน Excel

บทความนี้ผมจะพูดถึงวิธีการแปลงตัวอักษรคอลัมน์เป็นหมายเลขคอลัมน์หรือแปลงหมายเลขคอลัมน์เป็นตัวอักษร เช่นแปลงตัวอักษรคอลัมน์ AA เป็นตัวเลข 27 หรือแปลงคอลัมน์หมายเลข 100 เป็นตัวอักษร CV เพื่อรับการแก้ไขด้วยวิธีการต่อไปนี้

แปลงตัวอักษรคอลัมน์เป็นตัวเลขหรือในทางกลับกันด้วยสูตร

แปลงตัวอักษรคอลัมน์เป็นตัวเลขหรือในทางกลับกันด้วย User Defined Function


ลูกศรสีฟ้าฟองขวา แปลงตัวอักษรคอลัมน์เป็นตัวเลขหรือในทางกลับกันด้วยสูตร

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

แปลงตัวอักษรคอลัมน์เป็นหมายเลขคอลัมน์:

โปรดป้อนสูตรนี้: = COLUMN (ทางอ้อม ("AB1")) ลงในเซลล์ว่างที่คุณต้องการค้นหาผลลัพธ์ที่แปลงแล้วจากนั้นกด เข้าสู่ คีย์เพื่อรับหมายเลขคอลัมน์:

doc แปลงป้ายชื่อคอลัมน์เป็นหมายเลข 1

หมายเหตุ ในสูตรข้างต้น AB คือตัวอักษรคอลัมน์ที่คุณต้องการรับหมายเลขคอลัมน์ตามคุณสามารถเปลี่ยนได้ตามต้องการ

แปลงหมายเลขคอลัมน์เป็นตัวอักษรคอลัมน์:

กรุณาพิมพ์สูตรนี้: = SUBSTITUTE (ที่อยู่ (1,200,4), 1, "") ลงในเซลล์ว่างเพื่อรับผลลัพธ์จากนั้นกด เข้าสู่ เพื่อรับตัวอักษรคอลัมน์ดังนี้:

doc แปลงป้ายชื่อคอลัมน์เป็นหมายเลข 2

หมายเหตุ ในสูตรข้างต้นตัวเลขสีแดง 200 คือหมายเลขคอลัมน์ที่คุณต้องการแปลงเป็นตัวอักษรคอลัมน์คุณสามารถเปลี่ยนได้ตามต้องการ


ลูกศรสีฟ้าฟองขวา แปลงตัวอักษรคอลัมน์เป็นตัวเลขหรือในทางกลับกันด้วย User Defined Function

ยกเว้นสูตรที่นี่ฉันยังสามารถแนะนำไฟล์ ฟังก์ชันที่ผู้ใช้กำหนด เพื่อจัดการกับงานนี้

แปลงตัวอักษรคอลัมน์เป็นหมายเลขคอลัมน์:

1. กด ALT + F11 จากนั้นจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: แปลงตัวอักษรคอลัมน์เป็นหมายเลขคอลัมน์:

Public Function ToColNum(ColN)
    ToColNum = Range(ColN & 1).Column
End Function

3. จากนั้นบันทึกและปิดรหัสนี้กลับไปที่แผ่นงานและป้อนสูตรนี้: = โทคอลนัม ("VV") (VV คือตัวอักษรคอลัมน์ที่คุณต้องการแปลงตัวเลข ) ลงในเซลล์ว่างแล้วกด เข้าสู่ คีย์เพื่อรับหมายเลขคอลัมน์ดูภาพหน้าจอ:

doc แปลงป้ายชื่อคอลัมน์เป็นหมายเลข 3

แปลงหมายเลขคอลัมน์เป็นตัวอักษรคอลัมน์:

1. กด ALT + F11 จากนั้นจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: แปลงหมายเลขคอลัมน์เป็นตัวอักษรคอลัมน์:

Public Function ToColletter(Collet)
    ToColletter = Split(Cells(1, Collet).Address, "$")(1)
End Function

3. จากนั้นบันทึกและปิดรหัสนี้กลับไปที่แผ่นงานและป้อนสูตรนี้: = ToColletter (50) (50 คือหมายเลขคอลัมน์ที่คุณต้องการแปลงเป็นตัวอักษร ) ลงในเซลล์ว่างแล้วกด เข้าสู่ คีย์เพื่อรับหมายเลขคอลัมน์ดูภาพหน้าจอ:

doc แปลงป้ายชื่อคอลัมน์เป็นหมายเลข 4


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณโดย
80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • กว่า
    300
    คุณสมบัติอันทรงพลัง
    . รองรับ Office/Excel
    2007-2019 และ 365
    . รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติครบถ้วน
    30
    วันทดลองใช้ฟรี รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณโดย
    50%
    และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (10)
ได้รับคะแนน 5 จาก 5 · การจัดอันดับ 1
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นเวลานานแล้วที่ฉันใช้การอ้างอิงเซลล์ R1C1 เพราะฉันไม่รู้เกี่ยวกับโซลูชัน =SUBSTITUTE(ADDRESS(1,number,4),1,"") ขอขอบคุณ!!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
=CHAR(คอลัมน์( )+64)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่ดีกว่าเพราะใช้งานได้กับ 26 คอลัมน์เท่านั้น
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
hola, cuando pego la สูตร = SUSTITUIR (DIRECCIÓN (1,200,4), 1, "") en una celda no hace nada, solo devuelve la formula, ya sea con 200 o cualquier otro numero
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฟังก์ชัน ToColletter(Collet) ทำงานเป็นฟังก์ชันผันผวน หากมีสิ่งใดเปลี่ยนแปลงไปในแผ่นงาน มันคำนวณใหม่ทุกที่ ในกรณีของฉันมันทำให้การคำนวณ 15 ล้านและทำให้การคำนวณช้าลง คุณรู้วิธีแก้ไขหรือไม่ ถ้าฉันไม่ต้องการตั้งค่า application.calculation เป็น manual และย้อนกลับ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมาก!!!...สูตรของคุณในการสร้างคอลัมน์ตัวอักษรเป็นตัวเลขช่วยฉันได้มากจริงๆ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
A ถึง ZZ
=if(row()>26,char(row()/26+64)&char(mod(row(),26)+64),char(row()+64))
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สูตรนี้ใช้ไม่ได้กับแถวที่ทวีคูณของ 26 โดยให้ B@ แทน AZ, C@ แทน BZ, D@ แทน CZ เป็นต้น
Correction:= IF(ROW()>26,(IF(MOD(ROW(),26)=0,CHAR((ROW()-1)/26+64)&CHAR(MOD(ROW()-1,26)+65), CHAR(ROW()/26+64)&CHAR(MOD(ROW(),26)+64))),CHAR(ROW()+64))
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ทางออกที่ดีที่สุด =SUBSTITUTE(ADDRESS(1;COLUMN();4);1;"")
ขอบคุณมาก
ได้รับคะแนน 5 จาก 5
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฟังก์ชันสาธารณะ AlphabetInteger (ตัวอักษร ByVal As String) As Integer
Dim N เป็นจำนวนเต็ม
ตัวอักษร = Strings.UCase(จดหมาย)
ถ้าตัวอักษร = "A" แล้ว
N = 1
ElseIf ตัวอักษร = "B" แล้ว
N = 2
ElseIf ตัวอักษร = "C" แล้ว
N = 3
ElseIf ตัวอักษร = "D" แล้ว
N = 4
ElseIf ตัวอักษร = "E" แล้ว
N = 5
ElseIf ตัวอักษร = "F" แล้ว
N = 6
ElseIf ตัวอักษร = "G" แล้ว
N = 7
ElseIf ตัวอักษร = "H" แล้ว
N = 8
ElseIf ตัวอักษร = "ฉัน" แล้ว
N = 9
ElseIf ตัวอักษร = "J" แล้ว
N = 10
ElseIf ตัวอักษร = "K" แล้ว
N = 11
ElseIf ตัวอักษร = "L" แล้ว
N = 12
ElseIf ตัวอักษร = "M" แล้ว
N = 13
ElseIf ตัวอักษร = "N" แล้ว
N = 14
ElseIf ตัวอักษร = "O" แล้ว
N = 15
ElseIf ตัวอักษร = "P" แล้ว
N = 16
ElseIf ตัวอักษร = "Q" แล้ว
N = 17
ElseIf ตัวอักษร = "R" แล้ว
N = 18
ElseIf ตัวอักษร = "S" แล้ว
N = 19
ElseIf ตัวอักษร = "T" แล้ว
N = 20
ElseIf ตัวอักษร = "U" แล้ว
N = 21
ElseIf ตัวอักษร = "V" แล้ว
N = 22
ElseIf ตัวอักษร = "W" แล้ว
N = 23
ElseIf ตัวอักษร = "X" แล้ว
N = 24
ElseIf ตัวอักษร = "Y" แล้ว
N = 25
ElseIf ตัวอักษร = "Z" แล้ว
N = 26
อื่น
N = 0
End If
AlphabetInteger = N
ฟังก์ชั่นเอนด์


ฟังก์ชันสาธารณะ ColumnNumber (คอลัมน์ ByVal Letter As String) As Integer
หรี่ฉันเป็นจำนวนเต็ม
Dim sLength เป็นจำนวนเต็ม
Dim N เป็นจำนวนเต็ม
Dim A เป็นจำนวนเต็ม
Dim P เป็นจำนวนเต็ม
Dim C เป็นสตริง

sLength = เลน (columnLetter)
N = 0
สำหรับฉัน = 1 ถึงความยาว
P = ความยาว - ฉัน
C = Strings.Mid(จดหมายคอลัมน์, ผม, 1)
A = ตัวอักษรจำนวนเต็ม (C)
N = N + A * 26 ^ พี
ถัดไปฉัน
หมายเลขคอลัมน์ = N
ฟังก์ชั่นเอนด์
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL