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

0
rajesh negi 7 mar. 2017 a las 08:44

2 respuestas

La mejor respuesta

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
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