मुख्य सामग्री पर जाएं

एक्सेल में कॉलम अक्षर को संख्या में या इसके विपरीत कैसे बदलें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2020-11-05

इस लेख में, मैं कॉलम अक्षर को कॉलम नंबर में बदलने या कॉलम नंबर को अक्षर में बदलने के बारे में बात करूंगा। जैसे, कॉलम अक्षर AA को संख्या 27 में बदलें, या कॉलम संख्या 100 को अक्षर CV में परिवर्तित करें। निम्नलिखित विधियों से समाधान प्राप्त करें।

सूत्रों के साथ स्तंभ अक्षर को संख्या में बदलें या इसके विपरीत

उपयोगकर्ता परिभाषित फ़ंक्शन के साथ कॉलम अक्षर को संख्या में बदलें या इसके विपरीत


तीर नीला दायां बुलबुला सूत्रों के साथ स्तंभ अक्षर को संख्या में बदलें या इसके विपरीत

कॉलम अक्षर या लेबल को संख्या में बदलने या इसके विपरीत करने के लिए, नीचे दिए गए सूत्र आपकी मदद कर सकते हैं, कृपया ऐसा करें:

स्तंभ अक्षर को स्तंभ संख्या में बदलें:

कृपया यह सूत्र दर्ज करें: =स्तंभ(अप्रत्यक्ष("AB1")) एक रिक्त कक्ष में जहाँ आप परिवर्तित परिणाम का पता लगाना चाहते हैं, और फिर दबाएँ दर्ज कॉलम नंबर प्राप्त करने की कुंजी:

दस्तावेज़ कॉलम लेबल को नंबर 1 में बदलें

नोट: उपरोक्त सूत्र में, AB वह कॉलम अक्षर है जिसके आधार पर आप कॉलम नंबर प्राप्त करना चाहते हैं, आप इसे अपनी आवश्यकता के अनुसार बदल सकते हैं।

कॉलम संख्या को कॉलम अक्षर में बदलें:

कृपया यह सूत्र टाइप करें: =स्थानापन्न(पता(1,200,4),1,"") परिणाम प्राप्त करने के लिए एक रिक्त कक्ष में, और फिर दबाएँ दर्ज कॉलम पत्र इस प्रकार प्राप्त करने के लिए:

दस्तावेज़ कॉलम लेबल को नंबर 2 में बदलें

नोट: उपरोक्त सूत्र में, लाल संख्या 200 यह वह कॉलम नंबर है जिसे आप कॉलम लेटर में बदलना चाहते हैं, आप इसे अपनी आवश्यकता के अनुसार बदल सकते हैं।


तीर नीला दायां बुलबुला उपयोगकर्ता परिभाषित फ़ंक्शन के साथ कॉलम अक्षर को संख्या में बदलें या इसके विपरीत

सूत्रों को छोड़कर, मैं यहां इनका भी परिचय दे सकता हूं उपयोगकर्ता परिभाषित फ़ंक्शन इस कार्य से निपटने के लिए.

स्तंभ अक्षर को स्तंभ संख्या में बदलें:

1. दबाए रखें ALT + F11 चाबियाँ, फिर यह खुलता है अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।

वीबीए कोड: कॉलम अक्षर को कॉलम नंबर में बदलें:

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

3. फिर इस कोड को सहेजें और बंद करें, वर्कशीट पर वापस जाएं और यह सूत्र दर्ज करें: =टोकोलनम('वीवी') (VV वह स्तंभ अक्षर है जिसे आप संख्या में परिवर्तित करना चाहते हैं। ) एक रिक्त सेल में, और दबाएँ दर्ज कॉलम नंबर प्राप्त करने के लिए कुंजी, स्क्रीनशॉट देखें:

दस्तावेज़ कॉलम लेबल को नंबर 3 में बदलें

कॉलम संख्या को कॉलम अक्षर में बदलें:

1. दबाए रखें ALT + F11 चाबियाँ, फिर यह खुलता है अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।

वीबीए कोड: कॉलम संख्या को कॉलम अक्षर में बदलें:

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

3. फिर इस कोड को सहेजें और बंद करें, वर्कशीट पर वापस जाएं और यह सूत्र दर्ज करें: =टूकोलेटर(50) (50 वह कॉलम नंबर है जिसे आप अक्षर में बदलना चाहते हैं। ) एक रिक्त सेल में, और दबाएँ दर्ज कॉलम नंबर प्राप्त करने के लिए कुंजी, स्क्रीनशॉट देखें:

दस्तावेज़ कॉलम लेबल को नंबर 4 में बदलें

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (10)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Public Function AlphabetInteger(ByVal letter As String) As Integer
Dim N As Integer
letter = Strings.UCase(letter)
If letter = "A" Then
N = 1
ElseIf letter = "B" Then
N = 2
ElseIf letter = "C" Then
N = 3
ElseIf letter = "D" Then
N = 4
ElseIf letter = "E" Then
N = 5
ElseIf letter = "F" Then
N = 6
ElseIf letter = "G" Then
N = 7
ElseIf letter = "H" Then
N = 8
ElseIf letter = "I" Then
N = 9
ElseIf letter = "J" Then
N = 10
ElseIf letter = "K" Then
N = 11
ElseIf letter = "L" Then
N = 12
ElseIf letter = "M" Then
N = 13
ElseIf letter = "N" Then
N = 14
ElseIf letter = "O" Then
N = 15
ElseIf letter = "P" Then
N = 16
ElseIf letter = "Q" Then
N = 17
ElseIf letter = "R" Then
N = 18
ElseIf letter = "S" Then
N = 19
ElseIf letter = "T" Then
N = 20
ElseIf letter = "U" Then
N = 21
ElseIf letter = "V" Then
N = 22
ElseIf letter = "W" Then
N = 23
ElseIf letter = "X" Then
N = 24
ElseIf letter = "Y" Then
N = 25
ElseIf letter = "Z" Then
N = 26
Else
N = 0
End If
AlphabetInteger = N
End Function


Public Function ColumnNumber(ByVal columnLetter As String) As Integer
Dim I As Integer
Dim sLength As Integer
Dim N As Integer
Dim A As Integer
Dim P As Integer
Dim C As String

sLength = Len(columnLetter)
N = 0
For I = 1 To sLength
P = sLength - I
C = Strings.Mid(columnLetter, I, 1)
A = AlphabetInteger(C)
N = N + A * 26 ^ P
Next I
ColumnNumber = N
End Function
This comment was minimized by the moderator on the site
Best solution =SUBSTITUTE(ADDRESS(1;COLUMN();4);1;"")
Thanks a lot.
Rated 5 out of 5
This comment was minimized by the moderator on the site
A to ZZ
=if(row()>26,char(row()/26+64)&char(mod(row(),26)+64),char(row()+64))
This comment was minimized by the moderator on the site
This formula does not work at rows that are multiples of 26. It gives B@ instead of AZ, C@ instead of BZ, D@ instead of CZ, etc.
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))
This comment was minimized by the moderator on the site
thank you so much!!!...your formula to create the column letter to number really helps me a lot.
This comment was minimized by the moderator on the site
Function ToColletter(Collet) works as volatile function. If something changes anywhere in the sheet. It recalculate everywhere. In my case it makes 15 mil calculations and slowdown the calculation. Do you know how to fix it, if I dont want set application.calculation to manual and than back?
This comment was minimized by the moderator on the site
hola, cuando pego la formula = 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
This comment was minimized by the moderator on the site
=CHAR(COLUMN( )+64)
This comment was minimized by the moderator on the site
Not better as it only works with 26 columns.
This comment was minimized by the moderator on the site
For so long I've used R1C1 cell referencing because I didn't know about the =SUBSTITUTE(ADDRESS(1,number,4),1,"") solution. Thank you!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations