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 ، واسحب مقبض التعبئة لأسفل للحصول على قائمة الأحرف التي تريدها.


قم بزيادة الحرف A بمقدار واحد للحصول على قائمة الحروف بالصيغة

يمكنك استخدام = CHAR (الرمز (A1) +1) صيغة لزيادة الحرف بواحد في Excel. الرجاء القيام بما يلي.

1. حدد خلية فارغة أسفل الحرف المحدد ، أدخل الصيغة = CHAR (الرمز (A2) +1) في شريط الصيغة ثم اضغط على أدخل مفتاح. انظر لقطة الشاشة:

2. حدد خلية النتيجة ، واسحب مقبض التعبئة لأسفل للحصول على الحرف الذي تريده.

ملاحظة: باستخدام هذه الصيغة ، بعد الحصول على الحرف Z ، إذا واصلت سحب مقبض التعبئة لأسفل ، فستحصل على بعض الأحرف الخاصة كما هو موضح أدناه. إذا كنت ترغب في الحصول على الحرف AA بعد Z ، يمكن أن تساعدك الوظيفة التالية المعرفة من قبل المستخدم.


قم بزيادة الحرف بواحد للحصول على قائمة الحروف بوظيفة محددة من قبل المستخدم

يمكن أن تساعدك الوظيفة التالية المعرفة من قبل المستخدم أيضًا على زيادة الحرف تلو الآخر في Excel.

1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ والصق رمز VBA أدناه في ملف وحدة نافذة.

كود فبا: قم بزيادة الحرف بمقدار واحد للحصول على قائمة الحروف

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

3. صحافة قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

4. حدد خلية فارغة أسفل الحرف المحدد ، أدخل الصيغة = ColLtrs (ROW ())، ثم اضغط على أدخل مفتاح للحصول على الحرف الثاني.

2. حدد خلية النتيجة ، واسحب مقبض التعبئة لأسفل للحصول على الحرف الذي تريده.

ملاحظة: باستخدام هذه الطريقة ، تستند الأحرف التي زودتها إلى رقم الصف. يجب أن تبدأ الحرف الأول A في الصف الأول من ورقة العمل ، وإلا فإن الحرف سوف يضطرب.


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات...
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF...
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
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
    Screenshot?
    I think he explained it succinctly.
  • 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.
    Me · 1 years ago
    @Harold McBroom Everything man does is corrupt. Everything.
  • To post as a guest, your comment is unpublished.
    Me · 1 years ago
    Yeah Dan! DAH!
    You seem to assume we're all brainiacs like you Dan.
    You can't possibly expect us to wrap our heads around what you mean without screenshots! Wow!
  • 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.
    crystal · 2 years ago
    @afzalss 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.
    crystal · 2 years ago
    @Afzal 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.
    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.
    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.
    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.
    cdarzur · 3 years ago
    @cdarzur Found the answer. Thank you.
    =LEFT(B1,4)&"_"&CHAR(CODE(RIGHT(B1,1))+1)
  • 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