Direkt zum Inhalt

Wie konvertiere ich Spaltenbuchstaben in Zahlen oder umgekehrt in Excel?

In diesem Artikel werde ich darüber sprechen, wie Spaltenbuchstaben in Spaltennummern oder Spaltennummern in Buchstaben konvertiert werden. Konvertieren Sie beispielsweise den Spaltenbuchstaben AA in die Nummer 27 oder die Spaltennummer 100 in den Buchstaben CV. So erhalten Sie die Lösung mit den folgenden Methoden.

Konvertieren Sie Spaltenbuchstaben in Zahlen oder umgekehrt mit Formeln

Konvertieren Sie den Spaltenbuchstaben mit der benutzerdefinierten Funktion in eine Zahl oder umgekehrt


Pfeil blau rechte Blase Konvertieren Sie Spaltenbuchstaben in Zahlen oder umgekehrt mit Formeln

Um den Spaltenbuchstaben oder das Etikett in eine Zahl umzuwandeln oder umgekehrt, können die folgenden Formeln hilfreich sein. Gehen Sie dazu folgendermaßen vor:

Spaltenbuchstaben in Spaltennummer konvertieren:

Bitte geben Sie diese Formel ein: = SPALTE (INDIREKT ("AB1")) in eine leere Zelle, in der Sie das konvertierte Ergebnis suchen möchten, und drücken Sie dann Enter Schlüssel, um die Spaltennummer zu erhalten:

doc konvertiert die Spaltenbezeichnung in Nummer 1

Hinweis: In der obigen Formel AB Ist der Spaltenbuchstabe, auf dessen Grundlage Sie die Spaltennummer erhalten möchten, können Sie ihn nach Bedarf ändern.

Spaltennummer in Spaltenbuchstaben umwandeln:

Bitte geben Sie diese Formel ein: = SUBSTITUT (ADRESSE (1,200,4), 1, "") in eine leere Zelle, um das Ergebnis zu erhalten, und drücken Sie dann Enter um den Spaltenbuchstaben wie folgt zu erhalten:

doc konvertiert die Spaltenbezeichnung in Nummer 2

Hinweis: In der obigen Formel die rote Zahl 200 Ist die Spaltennummer, die Sie in einen Spaltenbuchstaben konvertieren möchten, können Sie sie nach Bedarf ändern.


Pfeil blau rechte Blase Konvertieren Sie den Spaltenbuchstaben mit der benutzerdefinierten Funktion in eine Zahl oder umgekehrt

Mit Ausnahme der Formeln kann ich hier auch die vorstellen Benutzerdefinierte Funktion mit dieser Aufgabe umgehen.

Spaltenbuchstaben in Spaltennummer konvertieren:

1. Halten Sie die Taste gedrückt ALT + F11 Tasten, dann öffnet es die Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Spaltenbuchstaben in Spaltennummer konvertieren:

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

3. Speichern und schließen Sie diesen Code, kehren Sie zum Arbeitsblatt zurück und geben Sie die folgende Formel ein: = Tocolnum ("VV") (VV ist der Spaltenbuchstabe, den Sie konvertieren möchten. ) in eine leere Zelle und drücken Sie Enter Taste zum Abrufen der Spaltennummer, siehe Screenshot:

doc konvertiert die Spaltenbezeichnung in Nummer 3

Spaltennummer in Spaltenbuchstaben umwandeln:

1. Halten Sie die Taste gedrückt ALT + F11 Tasten, dann öffnet es die Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Spaltennummer in Spaltenbuchstaben konvertieren:

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

3. Speichern und schließen Sie diesen Code, kehren Sie zum Arbeitsblatt zurück und geben Sie die folgende Formel ein: = ToColletter (50) (50 ist die Spaltennummer, die Sie in Buchstaben konvertieren möchten. ) in eine leere Zelle und drücken Sie Enter Taste zum Abrufen der Spaltennummer, siehe Screenshot:

doc konvertiert die Spaltenbezeichnung in Nummer 4

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
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