Gå til hovedindhold

Hvordan konverteres kolonnebrev til nummer eller omvendt i Excel?

Denne artikel vil jeg tale om, hvordan man konverterer kolonnebogstav til kolonnenummer eller konverterer kolonnenummer til bogstav. Såsom konverter kolonnebogstavet AA til tallet 27, eller konverter kolonnenummer 100 til bogstavet CV. For at få løsningen med følgende metoder.

Konverter kolonnebogstav til tal eller omvendt med formler

Konverter kolonnebogstav til tal eller omvendt med brugerdefineret funktion


pil blå højre boble Konverter kolonnebogstav til tal eller omvendt med formler

For at konvertere kolonnebogstavet eller etiketten til tal eller omvendt, kan nedenstående formler hjælpe dig, gør venligst som dette:

Konverter kolonnebogstav til kolonnenummer:

Indtast venligst denne formel: =KOLONNE(INDIREKTE("AB1")) ind i en tom celle, hvor du vil finde det konverterede resultat, og tryk derefter på Indtast tast for at få kolonnenummeret:

doc konverter kolonnelabel til nummer 1

Bemærk: I ovenstående formel AB er det kolonnebogstav, du ønsker at få kolonnenummeret baseret på, kan du ændre det til dit behov.

Konverter kolonnenummer til kolonnebogstav:

Skriv denne formel: =ERSTAT(ADRESSE(1,200,4;1;XNUMX);XNUMX,"") ind i en tom celle for at få resultatet, og tryk derefter på Indtast for at få kolonnebogstavet som følger:

doc konverter kolonnelabel til nummer 2

Bemærk: I ovenstående formel, det røde tal 200 er det kolonnenummer, du vil konvertere til kolonnebogstav, kan du ændre det til dit behov.


pil blå højre boble Konverter kolonnebogstav til tal eller omvendt med brugerdefineret funktion

Bortset fra formlerne, her, kan jeg også introducere Brugerdefineret funktion at håndtere denne opgave.

Konverter kolonnebogstav til kolonnenummer:

1. Hold nede ALT + F11 tasterne, så åbner den Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.

VBA-kode: konverter kolonnebogstav til kolonnenummer:

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

3. Gem derefter og luk denne kode, gå tilbage til regnearket, og indtast denne formel: =Tocolnum("VV") (VV er det kolonnebogstav, som du vil konvertere nummer. ) ind i en tom celle, og tryk på Indtast tast for at få kolonnenummeret, se skærmbillede:

doc konverter kolonnelabel til nummer 3

Konverter kolonnenummer til kolonnebogstav:

1. Hold nede ALT + F11 tasterne, så åbner den Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.

VBA-kode: konverter kolonnenummer til kolonnebogstav:

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

3. Gem derefter og luk denne kode, gå tilbage til regnearket, og indtast denne formel: =ToColletter(50) (50 er det kolonnenummer, du vil konvertere til bogstav. ) ind i en tom celle, og tryk på Indtast tast for at få kolonnenummeret, se skærmbillede:

doc konverter kolonnelabel til nummer 4

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
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