Cómo eliminar columnas en blanco VBA

Question

Estoy importando datos en Excel en mi tabla, se arregla con 95 columnas. Quiero crear una macro o código cada vez que pegue datos en Excel si toda la columna está completamente en blanco, entonces debería eliminarse.

enter image description here

vba excel-vba excel

0

rajesh negi 7 mar. 2017 a las 08:44

Answer 1

Podrías probar esto:

Sub Main
    Dim iCol As Long

    With Worksheets("mySheetName").UsedRange '<--| change "mySheetName" to your actual sheet name
        For iCol = .Columns.Count to 1 Step - 1
            If WorksheetFunction.CountA(.Columns(iCol)) = 1 Then .Columns(iCol).EntireColumn.Delete
        Next
    End With
End Sub

2

user3598756 7 mar. 2017 a las 06:53

Answer 2

Dim r As Range, rows As Long, i As Long
Set r = ActiveSheet.Range(Cells(1, 1), Cells(lastrow, lastcolumn))
rows = r.rows.Count
For i = rows To 1 Step (-1)
If WorksheetFunction.CountA(r.rows(i)) = 0 Then r.rows(i).Delete
Next

0

Vinoth Narayan 7 mar. 2017 a las 06:02

Cómo eliminar columnas en blanco VBA

2 respuestas

Nuevas preguntas

vba