Hola, refresco el tema de obtener la columna en letras con fórmulas:
Excel 2007 y anteriores
=EXTRAE(DIRECCION(FILA();COLUMNA();4);1;SI(COLUMNA()<27;1;SI(COLUMNA()<702;2;3)))
=SUSTITUIR(DIRECCION(FILA();COLUMNA();4);FILA();"")
Excel 2010
=MED(DIRECCION(FILA();COLUMNA();4);1;SI(COLUMNA()<27;1;SI(COLUMNA()<702;2;3)))
Otra Forma (Excel 2003-2007-2010):
=SUSTITUIR(DIRECCION(FILA();COLUMNA();4);FILA();"")
Pero si se lo necesita con macros:
Function COLUMNALETRA(Celda As Range) As String
COLUMNALETRA = Left(Mid(Celda.Address, 2), InStr(1, Mid(Celda.Address, 2), "$") - 1)
End Function




