Limpiar y formatear tablas desordenadas

0

 

Código:


Sub LimpiezaDatosEsencial()

    Dim RangoSeleccionado As Range

    

    If Selection.Cells.Count = 1 And IsEmpty(Selection.Cells(1)) Then

        MsgBox "Por favor, selecciona el rango de datos que deseas limpiar.", vbCritical

        Exit Sub

    End If

    

    Set RangoSeleccionado = Selection

    

    With RangoSeleccionado

        .Value = Evaluate("INDEX(TRIM(" & .Address & "),,)")

    End With

    

    On Error Resume Next

    RangoSeleccionado.Select

    Application.CutCopyMode = False

    Selection.NumberFormat = "General"

    Selection.Value = Selection.Value

    On Error GoTo 0

    

    RangoSeleccionado.Columns.AutoFit

    

    MsgBox "¡Limpieza y formato rápido completado!", vbInformation

End Sub


⭐ Si te gustó, por favor regístrate en nuestra Lista de correo y Suscríbete a mi canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.

Entradas que pueden interesarte

Entradas más recientes Entradas antiguas

Sin comentarios

Etiquetas:
#aprendiendoexcel365, #josealcaldealias, #Excel, #funciones, #UDF, #Visual Basic, #VBA, #DAX, #Tips, #Basico, #Microsoft Excel, #Cursos Excel OnLine, #Aprende Excel, #Aprende Excel OnLine, #Excel 365, #Power Pivot, #Power BI, #Power Query, #Google Sheets, #Macros, #Código VBA, #Tutoriales Excel, #MTV, #Vbscript, #TypeScript, #Lenguaje M, #fórmulas, #funciones, #paso a paso, #funciones Excel, #libros, #tablas, #formatos, #hojas, #datos, #gráfico, #análisis de datos, #base de datos, #dashboards, #tablas dinámicas, #excel desde cero, #hoja de cálculo, #plantillas de Excel