Añadir símbolo de grado a un rango en Excel (macro)

02 Oct Añadir símbolo de grado a un rango en Excel (macro)

Añadir símbolo de grado a un rango en Excel (macro)

¿Cómo podemos añadir el símbolo de grado a un rango mediante el uso de macros en Excel?

Las siguientes macros nos permiten aplicar el carácter de símbolo de grado «°» a una celda o rango de celdas numéricas. Es importante seleccionar las celdas afectadas previo a la ejecución de cada macro.

Planteamos dos métodos para obtener el resultado en función de si queremos que la celda resultado se conserve como numérica o se convierta a celda de texto.

Las instrucciones a copiar para cada una dentro de un nuevo módulo en la ventana de Visual Basic es la siguiente:

AÑADIR SÍMBOLO DE GRADO A UN RANGO EN EXCEL (CELDAS NUMÉRICAS)

Sub SimboloGradoNumero()
    Dim rng As Range
    
    For Each rng In Selection
        If IsNumeric(rng.Value) And rng.Value <> "" Then
            rng.NumberFormat = "0°"
        End If
    Next rng
End Sub

AÑADIR SÍMBOLO DE GRADO A UN RANGO EN EXCEL (CELDAS DE TEXTO)

Sub SimboloGradoTexto()
    Dim rng As Range
    
    For Each rng In Selection
        If rng.Value <> "" Then
            If IsNumeric(rng.Value) Then
                rng.Value = rng.Value & "°"
            End If
        End If
    Next rng
End Sub

Notar que nombramos a las macros «SimboloGradoNumero» para conservar la celda como valor numérico y «SimboloGradoTexto» para convertir las celdas a texto.

De esta forma logramos añaidr un símbolo de grado a un rango de forma rápida y fácil mediante macros en Excel.

Te recomiendo ver el siguiente link con más videos de Macros útiles de Excel AQUÍ.

¿No sabés como instalar esta macro? ¡No te preocupes!  Aquí está la solución:

Salvo aclaración, todas las fórmulas y macros de este sitio están configuradas para aplicarse sobre la celda A1. Algunas fórmulas se encuentran encerradas entre llaves {} debido a que son fórmulas matriciales. Estas llaves no deben introducirse tecleándolas, sino que se generan automáticamente al aceptar la fórmula pulsando Control+Shift+Enter al mismo tiempo. Las fórmulas de este sitio son compatibles con versiones de Microsoft Excel® 2010 o superiores.