Przejdź do głównej zawartości

Jak przekonwertować literę kolumny na liczbę lub odwrotnie w programie Excel?

W tym artykule omówię, jak przekonwertować literę kolumny na numer kolumny lub przekonwertować numer kolumny na literę. Na przykład zamień literę kolumny AA na liczbę 27 lub zamień numer kolumny 100 na literę CV. Aby uzyskać rozwiązanie za pomocą następujących metod.

Konwertuj literę kolumny na liczbę lub odwrotnie za pomocą formuł

Konwertuj literę kolumny na liczbę lub odwrotnie za pomocą funkcji zdefiniowanej przez użytkownika

strzałka niebieski prawy bąbelek Konwertuj literę kolumny na liczbę lub odwrotnie za pomocą formuł

Aby przekonwertować literę kolumny lub etykietę na liczbę lub odwrotnie, poniższe formuły mogą Ci pomóc, wykonaj następujące czynności:

Konwertuj literę kolumny na numer kolumny:

Wprowadź tę formułę: = KOLUMNA (POŚREDNIA („AB1”)) do pustej komórki, w której chcesz zlokalizować przekonwertowany wynik, a następnie naciśnij Wchodzę klucz, aby uzyskać numer kolumny:

doc konwertuj etykietę kolumny na numer 1

Uwaga: W powyższym wzorze AB to litera kolumny, na podstawie której chcesz uzyskać numer kolumny, możesz ją zmienić według potrzeb.

Konwertuj numer kolumny na literę kolumny:

Wpisz tę formułę: = PODSTAW (ADRES (1,200,4 1; XNUMX); XNUMX; „”) do pustej komórki, aby uzyskać wynik, a następnie naciśnij Wchodzę aby otrzymać literę kolumny w następujący sposób:

doc konwertuj etykietę kolumny na numer 2

Uwaga: W powyższym wzorze liczba czerwona 200 to numer kolumny, który chcesz przekonwertować na literę kolumny, możesz go zmienić według potrzeb.

strzałka niebieski prawy bąbelek Konwertuj literę kolumny na liczbę lub odwrotnie za pomocą funkcji zdefiniowanej przez użytkownika

Oprócz formuł mogę tutaj również wprowadzić Funkcja zdefiniowana przez użytkownika poradzić sobie z tym zadaniem.

Konwertuj literę kolumny na numer kolumny:

1. Przytrzymaj ALT + F11 klucze, a następnie otwiera Microsoft Visual Basic for Applications okno.

2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.

Kod VBA: przekonwertuj literę kolumny na numer kolumny:

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

3. Następnie zapisz i zamknij ten kod, wróć do arkusza i wprowadź następującą formułę: = Tocolnum („VV”) (VV to litera kolumny, którą chcesz przekonwertować. ) do pustej komórki i naciśnij Wchodzę klucz, aby uzyskać numer kolumny, zobacz zrzut ekranu:

doc konwertuj etykietę kolumny na numer 3

Konwertuj numer kolumny na literę kolumny:

1. Przytrzymaj ALT + F11 klucze, a następnie otwiera Microsoft Visual Basic for Applications okno.

2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.

Kod VBA: przekonwertuj numer kolumny na literę kolumny:

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

3. Następnie zapisz i zamknij ten kod, wróć do arkusza i wprowadź następującą formułę: = ToColletter (50) (50 to numer kolumny, którą chcesz przekonwertować na literę. ) do pustej komórki i naciśnij Wchodzę klucz, aby uzyskać numer kolumny, zobacz zrzut ekranu:

doc konwertuj etykietę kolumny na numer 4

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup  |   Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły   |  Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki   |  Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi:  12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
Comments (10)
Rated 5 out of 5 · 1 ratings
J
J
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
Reply
0
0
Donatas
Donatas
This comment was minimized by the moderator on the site
Best solution =SUBSTITUTE(ADDRESS(1;COLUMN();4);1;"")
Thanks a lot.
Reply
0
0
Rated 5 out of 5
aa
aa
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))
Reply
0
0
lxs602
lxs602     aa
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))
Reply
0
0
Albert
Albert
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.
Reply
0
0
petr
petr
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?
Reply
0
0
diego
diego
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
Reply
0
0
Better
Better
This comment was minimized by the moderator on the site
=CHAR(COLUMN( )+64)
Reply
0
0
Not better
Not better     Better
This comment was minimized by the moderator on the site
Not better as it only works with 26 columns.
Reply
0
0
J
J
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!!
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations