Ana içeriğe atla

Excel'de sütun harfini sayıya veya tam tersi nasıl dönüştürebilirim?

Bu yazımda, sütun harfini sütun numarasına çevirme veya sütun numarasını harfe dönüştürme hakkında konuşacağım. AA sütun harfini 27 sayısına veya 100 sütun numarasını CV harfine dönüştürmek gibi. Çözümü aşağıdaki yöntemlerle elde etmek.

Sütun harfini sayıya veya tam tersini formüllerle dönüştürme

Kullanıcı Tanımlı İşlev ile sütun harfini sayıya veya tam tersini dönüştürün

ok mavi sağ balon Sütun harfini sayıya veya tam tersini formüllerle dönüştürme

Sütun harfini veya etiketi sayıya veya tam tersine dönüştürmek için aşağıdaki formüller size yardımcı olabilir, lütfen şunu yapın:

Sütun harfini sütun numarasına dönüştürün:

Lütfen şu formülü girin: = SÜTUN (DOLAYLI ("AB1")) dönüştürülen sonucu bulmak istediğiniz boş bir hücreye yerleştirin ve ardından Keşfet sütun numarasını almak için anahtar:

doc sütun etiketini 1 numaraya dönüştür

Not: Yukarıdaki formülde, AB sütun numarasını temel alarak almak istediğiniz sütun harfidir, ihtiyacınıza göre değiştirebilirsiniz.

Sütun numarasını sütun harfine dönüştürün:

Lütfen bu formülü yazın: = SUBSTITUTE (ADRES (1,200,4); 1; "") sonucu almak için boş bir hücreye koyun ve ardından Keşfet sütun harfini aşağıdaki gibi almak için:

doc sütun etiketini 2 numaraya dönüştür

Not: Yukarıdaki formülde kırmızı sayı 200 Sütun harfine dönüştürmek istediğiniz sütun numarasıdır, ihtiyacınıza göre değiştirebilirsiniz.

ok mavi sağ balon Kullanıcı Tanımlı İşlev ile sütun harfini sayıya veya tam tersini dönüştürün

Formüller dışında, burada ayrıca Kullanıcı Tanımlı İşlev bu görevle başa çıkmak için.

Sütun harfini sütun numarasına dönüştürün:

1. Basılı tutun ALT + F11 anahtarlar, ardından açılır Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.

VBA kodu: sütun harfini sütun numarasına dönüştürün:

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

3. Ardından bu kodu kaydedip kapatın, çalışma sayfasına geri dönün ve şu formülü girin: = Tocolnum ("VV") (VV sayıyı dönüştürmek istediğiniz sütun harfidir. ) boş bir hücreye girin ve Keşfet sütun numarasını almak için anahtar, ekran görüntüsüne bakın:

doc sütun etiketini 3 numaraya dönüştür

Sütun numarasını sütun harfine dönüştürün:

1. Basılı tutun ALT + F11 anahtarlar, ardından açılır Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.

VBA kodu: sütun numarasını sütun harfine dönüştürün:

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

3. Ardından bu kodu kaydedip kapatın, çalışma sayfasına geri dönün ve şu formülü girin: = ToColletter (50) (50 harfe dönüştürmek istediğiniz sütun numarasıdır. ) boş bir hücreye girin ve Keşfet sütun numarasını almak için anahtar, ekran görüntüsüne bakın:

doc sütun etiketini 4 numaraya dönüştür

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup  |   Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu   |  Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz   |  E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti:  12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
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