Šiame straipsnyje parodysime, kaip galite ištrinti tuščius "Excel" stulpelius trimis veiksmingais ir paprastais būdais.

Atsisiųsti darbo knygą

Praktikos sąsiuvinį galite atsisiųsti iš čia.

3 paprasti būdai ištrinti tuščius "Excel" stulpelius

Čia sužinosite 3 būdus, kaip ištrinti tuščius "Excel" stulpelius naudojant "Excel" redagavimo įrankius, formulę ir VBA kodą.

1. Naudodamiesi "Excel" redagavimo įrankiais

1 žingsnis: Pasirinkite duomenų rinkinį.

2 žingsnis: Eikite į Pagrindinis -> Rasti ir pasirinkti -> Pereiti į specialią .

3 veiksmas: Iš Pereiti į specialią iššokantį langą, pasirinkite Ruošiniai , tada spustelėkite GERAI .

4 veiksmas: Bus atrinkti tik tušti jūsų duomenų rinkinio langeliai. Spustelėkite dešiniuoju pelės klavišu, iššokančiame parinkčių sąraše pasirinkite Ištrinti .

5 veiksmas: Toliau iš iššokančio lango Ištrinti dėžutė, pasirinkite Ląstelių perkėlimas į kairę iš parinkčių. Spustelėkite GERAI.

Taip iš duomenų rinkinio ištrinsite visus tuščius stulpelius.

Skaityti daugiau: Kaip ištrinti nenaudojamus "Excel" stulpelius

2. Naudojant formulę

Galite naudoti COUNTA() formulė tuštiems "Excel" stulpeliams ištrinti. COUNTA() formulė pirmiausia nustatys tuščius ir ne tuščius stulpelius jūsų "Excel" duomenų rinkinyje, tada galėsite lengvai pasirinkti ir ištrinti tuščius stulpelius.

Tai dar vienas veiksmingas būdas ištrinti tuščius stulpelius "Excel" programoje, ypač kai turite daug tuščių stulpelių. Sužinokime, kaip tai padaryti.

1 žingsnis: Įterpkite tuščią eilutę tiesiai virš duomenų rinkinio, dešiniuoju pelės klavišu spustelėdami pirmosios eilutės antraštę ir pasirinkdami Įdėkite iš iššokančio parinkčių sąrašo. Taip virš viso duomenų rinkinio bus įterpta nauja eilutė.

2 žingsnis: Darbalapio kairiajame langelyje įrašykite šią formulę,

=COUNTA(A2:A1048576)=0

Čia,

A2 yra pirmasis duomenų rinkinio langelis,

A1048576 yra didžiausia eilutė "Excel" programoje (2007-2019 m.).

3 veiksmas: Paspauskite Įveskite . Bus rodoma Tiesa jei stulpelis tuščias, arba Klaidingas jei visame stulpelyje yra bent vienas ne tuščias langelis.

4 veiksmas: Pritaikykite formulę kitiems stulpeliams vilkdami Užpildymo rankena .

5 veiksmas: Dabar eikite į Pagrindinis -> Rūšiuoti ir filtruoti -> Pasirinktinis rūšiavimas .

6 veiksmas: Iš iššokančio lango Rūšiuoti langą, spustelėkite Parinktys Tada pasirinkite Rūšiuoti iš kairės į dešinę iš Rūšiavimo parinktys iššokantį langą ir spustelėkite GERAI .

7 veiksmas: Spustelėkite išskleidžiamąjį langelį šalia Rūšiuoti pagal etiketę ir pasirinkite parinktį 1 eilutė .

8 veiksmas: Spustelėkite išskleidžiamąjį langelį po Rūšiuoti pagal etiketę ir pasirinkite parinktį Ląstelių vertės iš ten.

9 veiksmas: Spustelėkite išskleidžiamąjį langelį po Užsisakykite etiketę ir pasirinkite parinktį Nuo didžiausio iki mažiausio . GERAI .

Visi tušti stulpeliai bus perkelti į kairę darbalapio pusę.

10 veiksmas: Iš ten tiesiog pasirinkite visą duomenų rinkinį su tuščiais tuščiais stulpeliais, spustelėkite dešiniuoju pelės klavišu ir pasirinkite Ištrinti .

11 veiksmas: Iš iššokančio lango Ištrinti langelį, pasirinkite Visa skiltis iš parinkčių. Spustelėkite GERAI .

Taip iš duomenų rinkinio ištrinsite visus tuščius stulpelius.

Panašūs skaitiniai:

• Kaip ištrinti kelis "Excel" stulpelius
• Dubliuojančių stulpelių pašalinimas "Excel" programoje (6 būdai)
• Kaip ištrinti papildomus "Excel" stulpelius (7 metodai)
• Ištrinkite "Excel" stulpelius nedarydami įtakos formulei (du būdai)

3. Naudojant VBA kodą

Jei esate patyręs "Excel" naudotojas, šis metodas skirtas būtent jums. VBA kodo įgyvendinimas yra saugiausias būdas ištrinti tuščius "Excel" stulpelius. Jis ištrina tik visiškai tuščius stulpelius. Jei bet kuriame stulpelyje yra vienintelė langelio reikšmė, net jei bet kuris langelis grąžina tuščią eilutę, vis tiek visas stulpelis bus visiškai nepažeistas.

Toliau pateikiamas automatinis "Excel" tuščių stulpelių ištrynimo būdas.

1 žingsnis: Paspauskite Alt + F11 klaviatūroje arba eikite į skirtuką Kūrėjas -> "Visual Basic kad atidarytumėte Visual Basic redaktorių.

2 žingsnis: Meniu juostoje spustelėkite Įdėkite -> Modulis .

3 veiksmas: Nukopijuokite šį kodą ir įklijuokite jį į kodo langą.

 Public Sub DeleteBlankColumns() Dim SrcRange As Range Dim EntrColumn As Range On Error Resume Next Set SrcRange = Application.InputBox( _ "Select a range:", "Delete Blank Columns", _ Application.Selection.Address, Type:=8) If Not (SrcRange Is Nothing) Then Application.ScreenUpdating = False For i = SrcRange.Columns.Count To 1 Step -1 Set EntrColumn = SrcRange.Cells(1, i).EntrColumn IfApplication.WorksheetFunction.CountA(EntrColumn) = 0 Then EntrColumn.Delete End If Next Application.ScreenUpdating = True End If End If End Sub 

4 veiksmas: Paspauskite F5 klaviatūroje arba meniu juostoje pasirinkite Paleisti -> Paleisti Sub/UserForm Taip pat galite tiesiog spustelėti mažą Žaisti piktogramą submeniu juostoje, kad paleistumėte makrokomandą.

5 veiksmas: Iššokančiame dialogo lange pereikite prie dominančio darbalapio, pasirinkite norimą intervalą ir spustelėkite GERAI .

Taip iš duomenų bazės ištrinsite visus tuščius stulpelius.

Išvada

Šiame straipsnyje aptarti trys paprasti būdai, kaip ištrinti tuščius stulpelius "Excel" programoje. Parodėme, kaip naudoti "Excel" redagavimo įrankius tuštiems stulpeliams ištrinti, parodėme, kaip taikyti formules tuštiems stulpeliams ištrinti, taip pat įgyvendinome VBA kodą tuštiems stulpeliams "Excel" programoje ištrinti.