VBA/Macro Deleting multiple columns on Multiple Sheets

[sprook]

I have a report I run that is poorly formatted and I have to reformat. Essentially I need to delete 14 columns on a given sheet, autofit the remaining columns, and then repeat the same process for the remaining sheets in the workbook. Any assistance would be greatly appreciated. Thank you.

 

[Jimmypop]

Hi There and welcome to the forum

If you are familiar with VBA you can past the code below to a module and then just run the macro from either Alt+F8 or assign it to a button... Please test on sample piece before trying it out on your original data.

Sub redoit()
    Application.ScreenUpdating = FALSE
    Dim WS          As Worksheet
    Dim i           As Long
    For i = 1 To Sheets.Count
        Sheets(i).Range("B:B,D:D,F:F,G:G").Delete        'Here you specify which columns to delete
        For Each WS In ActiveWorkbook.Worksheets
            WS.Columns.AutoFit
        Next WS
    Next i
    Application.ScreenUpdating = TRUE
End Sub

 

[sprook]

Hi There and welcome to the forum

If you are familiar with VBA you can past the code below to a module and then just run the macro from either Alt+F8 or assign it to a button... Please test on sample piece before trying it out on your original data.

Sub redoit()
    Application.ScreenUpdating = FALSE
    Dim WS          As Worksheet
    Dim i           As Long
    For i = 1 To Sheets.Count
        Sheets(i).Range("B:B,D:D,F:F,G:G").Delete        'Here you specify which columns to delete
        For Each WS In ActiveWorkbook.Worksheets
            WS.Columns.AutoFit
        Next WS
    Next i
    Application.ScreenUpdating = TRUE
End Sub

Thank you for the welcome and thank you for the code. This was very helpful and exactly what I needed!

 

[Jimmypop]

Thank you for the welcome and thank you for the code. This was very helpful and exactly what I needed!

Pleasure and thanks for the feedback

 

[mumps]

Not really necessary to loop through all the sheets twice:

Sub redoit()
    Application.ScreenUpdating = False
    Dim WS As Worksheet, i As Long
    For i = 1 To Sheets.Count
        With Sheets(i)
            .Range("B:B,D:D,F:F,G:G").Delete        'Here you specify which columns to delete
            .Columns.AutoFit
        End With
    Next i
    Application.ScreenUpdating = True
End Sub

 

[Himeshwari]

how to excel multiple coloums and multiple sheets delete vba code

 

[mumps]

@Himeshwari
Please start your own new thread and explain in detail what you want to do. Use the XL2BB add-in (icon in the menu) to attach a screenshot of your data.