Delete empty columms

[Senso]

Ik heb Google contacten geïmporteerd in Excel 2021 gegevens ophalen tekst uit csv dan maakt die er een tabel van wat ik liever niet wil. Nu wil ik lege kolommen deleten, dat lukt niet. Hoe moet dit wel?

Sub DeleteEmptyColumns()
    Dim ws As Worksheet
    Dim lastCol As Long
    Dim i As Long
   
    ' Optimize performance
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
   
    Set ws = ActiveSheet
   
    ' Find the last column that contains data or formatting
    lastCol = ws.UsedRange.Columns.Count + ws.UsedRange.Column - 1
   
    ' Loop backwards from the last column to the first column
    For i = lastCol To 1 Step -1
        ' Check if the column is completely empty using COUNTA
        If Application.WorksheetFunction.CountA(ws.Columns(i)) = 0 Then
            ws.Columns(i).Delete
        End If
    Next i
   
    ' Restore settings
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
   
    MsgBox "All empty columns have been successfully deleted!", vbInformation
End Sub

 

[emields]

Als je excel normaal gebruikt heb je altijd kolomkoppen dus is uw CountA altijd minstens 1.

 

[xps351]

Hoe moet dit wel?

Met het handje was je al lang klaar geweest.

dan maakt die er een tabel van wat ik liever niet wil

Zoek eens op "excel tabel omzetten naar normaal bereik"

 

[snb]

Met de import-wizard kun je aangeven welke kolommen niet geïmporteerd moeten worden.

 

[Enigmasmurf]

Bovendien, lijkt deze vraag niet verdacht veel (akkoord, niet verbergen maar verwijderen) op deze:
https://www.helpmij.nl/forum/threads/vba-werkt-niet-goed.977621/
Daar was het antwoord ook al gegeven, en weer zonder inhoudelijke reactie van TS

 

[Warme bakkertje]

Om de laatste kolom met data te vinden zou ik onderstaande gebruiken aangezien UsedRange onbetrouwbare resultaten kan geven.

    ' Find the last column that contains data or formatting
    If Application.CountA(ws.Cells) = 0 Then
        lastCol = 1
    Else
        lastCol = ws.Cells.Find("*", ws.Range("A1"), xlFormulas, xlPart, xlByColumns, xlPrevious, False).Column
    End If