Hur döljer jag kolumner på flera ark i en arbetsbok?

I Excel kan vi snabbt dölja kolumner i ett kalkylblad, men har du någonsin försökt att dölja kolumner över flera ark samtidigt? Normalt kan du försöka välja alla ark och använda Dölj-funktionen, men den fungerar inte framgångsrikt. Den här artikeln kommer jag att prata om hur man snabbt döljer kolumner över flera kalkylblad?

Dölj kolumner på flera kalkylblad i en arbetsbok med VBA-kod

Dölj kolumner på flera kalkylblad i en arbetsbok med VBA-kod

Följande kod kan hjälpa dig att dölja specifika kolumner i alla kalkylblad omedelbart, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Dölj kolumner på flera ark samtidigt:

 Sub Hide_Columns()
'Updateby Extendoffice
    Dim iWs As Integer
    Dim sCol As String
    On Error Resume Next
    sCol = Application.InputBox("Input entire column,Eg A:A OR A:B", _
                                "Kutools for Excel", , , , , , 2)
    If sCol = "" Then
        MsgBox "Empty columns", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    For iWs = 1 To ThisWorkbook.Worksheets.Count
        ThisWorkbook.Sheets(iWs).Columns(sCol).Hidden = True
    Next iWs
    On Error GoTo 0
End Sub

3. Tryck sedan på F5 nyckel för att köra den här koden, och en snabbruta dyker upp för att påminna dig om att skriva kolumnerna som du vill dölja över alla kalkylblad, se skärmdump:

4. Och klicka sedan på OK knappen har dina angivna kolumner döljts i alla kalkylblad samtidigt.

Lås upp Excel Magic med Kutools AI

• Smart utförande: Utför celloperationer, analysera data och skapa diagram – allt drivs av enkla kommandon.
• Anpassade formler: Skapa skräddarsydda formler för att effektivisera dina arbetsflöden.
• VBA-kodning: Skriv och implementera VBA-kod utan ansträngning.
• Formeltolkning: Förstå komplexa formler med lätthet.
• Textöversättning: Bryt språkbarriärerna i dina kalkylblad.

Förbättra dina Excel-funktioner med AI-drivna verktyg. Hämta hem nu och upplev effektivitet som aldrig förr!