Saltar al contenido principal

¿Cómo convertir la letra de la columna a un número o viceversa en Excel?

En este artículo, hablaré sobre cómo convertir la letra de una columna en un número de columna o convertir un número de columna en una letra. Por ejemplo, convierta la letra de la columna AA al número 27, o convierta la columna número 100 a la letra CV. Para obtener la solución con los siguientes métodos.

Convierta la letra de la columna en un número o viceversa con fórmulas

Convierta la letra de la columna en un número o viceversa con la función definida por el usuario


flecha azul burbuja derecha Convierta la letra de la columna en un número o viceversa con fórmulas

Para convertir la letra de la columna o la etiqueta en un número o viceversa, las fórmulas a continuación pueden ayudarlo, haga lo siguiente:

Convertir letra de columna en número de columna:

Introduzca esta fórmula: = COLUMNA (INDIRECTO ("AB1")) en una celda en blanco donde desea ubicar el resultado convertido, y luego presione Participar clave para obtener el número de columna:

doc convertir la etiqueta de la columna al número 1

Nota: En la fórmula anterior, AB es la letra de la columna en la que desea obtener el número de columna, puede cambiarla según sus necesidades.

Convertir el número de columna en letra de columna:

Escriba esta fórmula: = SUSTITUIR (DIRECCIÓN (1,200,4), 1, "") en una celda en blanco para obtener el resultado, y luego presione Participar para obtener la letra de la columna de la siguiente manera:

doc convertir la etiqueta de la columna al número 2

Nota: En la fórmula anterior, el número rojo 200 es el número de columna que desea convertir en letra de columna, puede cambiarlo según sus necesidades.


flecha azul burbuja derecha Convierta la letra de la columna en un número o viceversa con la función definida por el usuario

Excepto las fórmulas, aquí también puedo introducir las Función definida por el usuario para hacer frente a esta tarea.

Convertir letra de columna en número de columna:

1. Mantenga pulsado el ALT + F11 llaves, luego abre el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.

Código de VBA: convierte la letra de la columna en el número de columna:

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

3. Luego guarde y cierre este código, regrese a la hoja de trabajo e ingrese esta fórmula: = Tocolnum ("VV") (VV es la letra de la columna que desea convertir en número. ) en una celda en blanco y presione Participar clave para obtener el número de columna, vea la captura de pantalla:

doc convertir la etiqueta de la columna al número 3

Convertir el número de columna en letra de columna:

1. Mantenga pulsado el ALT + F11 llaves, luego abre el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.

Código de VBA: convierta el número de columna en letra de columna:

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

3. Luego guarde y cierre este código, regrese a la hoja de trabajo e ingrese esta fórmula: = ToColletter (50) (50 es el número de columna que desea convertir en letra. ) en una celda en blanco y presione Participar clave para obtener el número de columna, vea la captura de pantalla:

doc convertir la etiqueta de la columna al número 4

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción


Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
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