Note: The other languages of the website are Google-translated. Back to English
ล็อกอิน  \/ 
x
or
x
สมัครสมาชิก  \/ 
x

or

วิธีเพิ่มตัวอักษรทีละตัวโดยอัตโนมัติเพื่อรับตัวอักษรถัดไปใน Excel

สมมติว่าคุณมีเซลล์ที่มีตัวอักษร AB คุณต้องเพิ่มตัวอักษรตัวสุดท้ายทีละตัวเพื่อให้ได้ตัวอักษร AC, AD ... และอื่น ๆ หรือคุณมีตัวอักษร A และต้องการเพิ่มตัวอักษรเป็น B, C ... เพื่อสร้างรายการจดหมาย จะบรรลุได้อย่างไร? บทความนี้สามารถช่วยคุณในรายละเอียด

เพิ่มตัวอักษร AB ทีละตัวเพื่อรับ AC, AD ... พร้อมสูตร
เพิ่มตัวอักษรทีละตัวเพื่อรับรายการตัวอักษรพร้อมสูตร
เพิ่มตัวอักษรทีละตัวเพื่อรับรายชื่อตัวอักษรด้วยฟังก์ชันที่ผู้ใช้กำหนด


เพิ่มตัวอักษร AB ทีละตัวเพื่อรับ AC, AD ... พร้อมสูตร

โปรดทำดังนี้เพื่อเพิ่มตัวอักษรทีละตัวใน Excel

1. เลือกเซลล์ว่างด้านล่างตัวอักษรที่กำหนดจากนั้นป้อนสูตรด้านล่างลงไปจากนั้นกดปุ่ม เข้าสู่ กุญแจ 

=IF(RIGHT($A2,1)="Z", CHAR(CODE(LEFT(A2,1))+1),LEFT(A2,1))&CHAR(65+MOD(CODE(RIGHT(A2,1))+1-65,26))

หมายเหตุ: ในสูตร A2 คือเซลล์ที่มีตัวอักษรที่กำหนด

2. เลือก A3 ต่อไปลาก Fill Handle ลงเพื่อรับรายการตัวอักษรที่คุณต้องการ


เพิ่มตัวอักษร A ทีละตัวเพื่อรับรายการตัวอักษรพร้อมสูตร

คุณสามารถใช้ = CHAR (รหัส (A1) +1) สูตรเพิ่มตัวอักษรทีละตัวใน Excel กรุณาดำเนินการดังนี้

1. เลือกเซลล์ว่างด้านล่างตัวอักษรที่กำหนดให้ป้อนสูตร = CHAR (รหัส (A2) +1) ลงในแถบสูตรแล้วกดปุ่ม เข้าสู่ สำคัญ. ดูภาพหน้าจอ:

2. เลือกเซลล์ผลลัพธ์ลาก Fill Handle ลงเพื่อรับตัวอักษรที่คุณต้องการ

หมายเหตุ: ด้วยสูตรนี้หลังจากได้ตัวอักษร Z แล้วหากคุณลาก Fill Handle ลงไปเรื่อย ๆ คุณจะได้รับอักขระพิเศษตามภาพด้านล่างที่แสดง หากคุณต้องการได้ตัวอักษร AA หลัง Z ฟังก์ชันที่ผู้ใช้กำหนดต่อไปนี้สามารถช่วยคุณได้


เพิ่มตัวอักษรทีละตัวเพื่อรับรายชื่อตัวอักษรด้วยฟังก์ชันที่ผู้ใช้กำหนด

ฟังก์ชั่นที่ผู้ใช้กำหนดต่อไปนี้ยังสามารถช่วยคุณเพิ่มตัวอักษรทีละตัวใน Excel

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

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในไฟล์ โมดูล หน้าต่าง

รหัส VBA: เพิ่มตัวอักษรทีละตัวเพื่อรับรายชื่อตัวอักษร

Function ColLtrs(i As Long) As String
    ColLtrs = Replace(Cells(1, i).Address(False, False), "1", "")
End Function

3 กด อื่น ๆ + Q ปุ่มเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

4. เลือกเซลล์ว่างด้านล่างตัวอักษรที่กำหนดให้ป้อนสูตร = ColLtrs (ROW ())แล้วกดปุ่ม เข้าสู่ กุญแจสำคัญในการรับตัวอักษรตัวที่สอง

2. เลือกเซลล์ผลลัพธ์ลาก Fill Handle ลงเพื่อรับตัวอักษรที่คุณต้องการ

หมายเหตุ: ด้วยวิธีนี้ตัวอักษรที่คุณเพิ่มขึ้นจะขึ้นอยู่กับหมายเลขแถว คุณต้องเริ่มตัวอักษร A ตัวแรกในแถวแรกของแผ่นงานมิฉะนั้นตัวอักษรจะไม่เป็นระเบียบ


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

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

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • Super Formula Bar (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); 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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    brickh7777@gmail.com · 1 years ago
    How do I get it to start over at A when Z is used?
  • To post as a guest, your comment is unpublished.
    Zac · 2 years ago
    This code will allow you to go from A to ZZ.

    =IF(B2="Z","AA",IF(LEN(B2)=1,CHAR(CODE(B2)+1),IF(RIGHT(B2,1)="Z",CHAR(CODE(LEFT(B2,1))+1),LEFT(B2,1))&CHAR(65+MOD(CODE(RIGHT(B2,1))+1-65,26))))
  • To post as a guest, your comment is unpublished.
    Dan · 2 years ago
    Is there a way to do this for entire words? Where every letter in the word moves up by X number of characters
  • To post as a guest, your comment is unpublished.
    Harold McBroom · 2 years ago
    Excel was the spreadsheet that superseded Lotus 1-2-3, and having been around that long, you would think that geniuses at Microsoft would have created a more simple means of retrieving a cells column number, without having to write your own function. Back in 2001, 2002 when I was programming in VBA there were only 65536 rows in an Excel spreadsheet, now the number has increased to a ridiculous 1.4 million rows. It's not how big the database is that counts, but how intelligent you manage the data on your hard drive, when accessing that data through Excel.

    If that doesn't make you upset, then the Bankers Rounding scheme used by Excel should finish the job! We were taught math in school, basic rounding, come to find out, the Bankers "guild" wants to determine how cash amounts are rounded to better cater to their advantages. For instance, 1.5 is either closer to 1 or 2, but is rounded up to 2, being the even number. 0.5 is either closer to 0 or 1, but being the odd number, they round it down to 0. The entire system is corrupt, and they create the business software used by American businesses.



    I read a comment below the one I'm addressing, and someone basically said, "I have a lot of banker friends, and they never heard of Bankers Rounding; They say they used a method called "5 Step Rounding" in the EU. So does that mean the Bankers Rounding is used only in the sabotage of the American Economy, but not good enough to ruin the European Economy that's trying to take over the world?! These money changers never cease to amaze me at how far they will go in their arrogance!
    • To post as a guest, your comment is unpublished.
      Me · 1 years ago
      Everything man does is corrupt. Everything.
  • To post as a guest, your comment is unpublished.
    afzalss · 3 years ago
    Dear Sir
    When I run the function =ColLtrs(ROW()) in an excel sheet, I get perfect results, but if I want to call this function or cell value in VBA, then is it possible. So my variable could be i with values 1,2,3,4,....27,28, etc and result should be A,B,C,D....,AA,AB and so on. Is it possible?
    Thanks
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi,
      Please select the number cells and run the below code to solve the problem.

      Sub NumTOAZ()
      Dim xRg As Range
      Dim xStr As String
      On Error Resume Next
      For Each xRg In Selection
      xStr = Replace(Cells(1, xRg.Value).Address(False, False), "1", "")
      xRg.Value = xStr
      Next
      End Sub
  • To post as a guest, your comment is unpublished.
    Afzal · 3 years ago
    the formula =ColLtrs(ROW()) works perfectly well in an excel cell, I need to use the same inside a VBA to give me result from A to Z then AA to AZ and so on. If I use CHAR in VBA it has limitation to go only till Z.
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi,
      Way not keep using the VBA code? The above VBA code can create letters from A to Z then AA to AZ and so on to meet your needs.
  • To post as a guest, your comment is unpublished.
    cdarzur · 3 years ago
    thank you for the above. But what if you want to increment from 400_A to 400_B? I tried a few things but I can only make it work with numbers.
    Thanks
    • To post as a guest, your comment is unpublished.
      cdarzur · 3 years ago
      Found the answer. Thank you.
      =LEFT(B1,4)&"_"&CHAR(CODE(RIGHT(B1,1))+1)