Ir para o conteúdo principal

Como converter a letra da coluna em número ou vice-versa no Excel?

Neste artigo, falarei sobre como converter a letra da coluna em número da coluna ou converter o número da coluna em letra. Por exemplo, converta a letra AA da coluna para o número 27 ou converta o número da coluna 100 para a letra CV. Para obter a solução com os seguintes métodos.

Converta a letra da coluna em número ou vice-versa com fórmulas

Converta a letra da coluna em número ou vice-versa com a função definida pelo usuário

seta azul bolha direita Converta a letra da coluna em número ou vice-versa com fórmulas

Para converter a letra ou rótulo da coluna em número ou vice-versa, as fórmulas abaixo podem ajudá-lo, faça o seguinte:

Converter a letra da coluna em número da coluna:

Insira esta fórmula: = COLUNA (INDIRETO ("AB1")) em uma célula em branco onde você deseja localizar o resultado convertido e pressione Entrar chave para obter o número da coluna:

doc converter rótulo de coluna para número 1

Observação: Na fórmula acima, AB é a letra da coluna na qual você deseja obter o número da coluna, você pode alterá-la conforme sua necessidade.

Converta o número da coluna em letra da coluna:

Por favor, digite esta fórmula: = SUBSTITUIR (ENDEREÇO ​​(1,200,4), 1, "") em uma célula em branco para obter o resultado e, em seguida, pressione Entrar para obter a letra da coluna da seguinte forma:

doc converter rótulo de coluna para número 2

Observação: Na fórmula acima, o número vermelho 200 é o número da coluna que você deseja converter em letra de coluna, você pode alterá-lo conforme sua necessidade.

seta azul bolha direita Converta a letra da coluna em número ou vice-versa com a função definida pelo usuário

Exceto as fórmulas, aqui também posso apresentar o Função definida pelo usuário para lidar com esta tarefa.

Converter a letra da coluna em número da coluna:

1. Segure o ALT + F11 chaves, então ele abre o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: converta a letra da coluna em número da coluna:

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

3. Em seguida, salve e feche este código, volte para a planilha e insira esta fórmula: = Tocolnum ("VV") (VV é a letra da coluna que você deseja converter em número. ) em uma célula em branco e pressione Entrar chave para obter o número da coluna, consulte a captura de tela:

doc converter rótulo de coluna para número 3

Converta o número da coluna em letra da coluna:

1. Segure o ALT + F11 chaves, então ele abre o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: converta o número da coluna em letra da coluna:

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

3. Em seguida, salve e feche este código, volte para a planilha e insira esta fórmula: = ToColletter (50) (50 é o número da coluna que você deseja converter em letra. ) em uma célula em branco e pressione Entrar chave para obter o número da coluna, consulte a captura de tela:

doc converter rótulo de coluna para número 4

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios  |   VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula   |  Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células   |  Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas:  12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...

Descrição

Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
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