Satura rādītājs
Šajā rakstā tiks parādīts, kā varat dzēst tukšos kolonnas programmā Excel trīs efektīvos un vienkāršos veidos.
Lejupielādēt darbgrāmatu
Prakses darba burtnīcu varat lejupielādēt no šejienes.
Delete-Blank-Columns-in-Excel.xlsm3 vienkārši veidi, kā dzēst tukšās kolonnas programmā Excel
Šeit uzzināsiet 3 veidus, kā dzēst tukšas kolonnas programmā Excel, izmantojot Excel rediģēšanas rīkus, izmantojot formulu un VBA kodu.
1. Izmantojot Excel rediģēšanas rīkus
1. solis: Izvēlieties datu kopu.
2. solis: Iet uz Sākums -> Atrast & amp; atlasīt -> Pārejiet uz īpašo .
3. solis: No Pārejiet uz īpašo uznirstošajā logā atlasiet Tukšas preces , pēc tam noklikšķiniet uz LABI .
4. solis: Tiks atlasītas tikai tukšās datu kopas šūnas. Noklikšķiniet ar peles labo peles pogu un uznirstošajā opciju sarakstā atlasiet Dzēst .
5: Tālāk no uznirstošā loga Dzēst lodziņš, izvēlieties Šūnu pārvietošana pa kreisi no iespējām. Noklikšķiniet uz LABI.
Tādējādi no datu kopas tiks dzēstas visas tukšās kolonnas.
Lasīt vairāk: Kā programmā Excel dzēst neizmantotās kolonnas
2. Izmantojot formulu
Varat izmantot COUNTA() formula, lai izdzēstu tukšās kolonnas programmā Excel. Kas COUNTA() formula vispirms identificēs tukšos un nepastarpinātos stabiņus jūsu datu kopā programmā Excel, un pēc tam jūs varēsiet viegli atlasīt un dzēst tukšos stabiņus.
Šis ir vēl viens efektīvs veids, kā dzēst tukšās kolonnas programmā Excel, īpaši tad, ja ir daudz tukšu kolonnu, ar kurām jāstrādā. Uzzināsim, kā to izdarīt.
1. solis: Ievietojiet tukšu rindu tieši virs datu kopas, noklikšķinot ar peles labo pogu uz pirmās rindas galvenes un izvēloties Ievietot no uznirstošo iespēju saraksta. Tādējādi virs visas datu kopas tiks ievietota jauna rinda.
2. solis: Darblapas kreisajā galējā šūnā ierakstiet šādu formulu,
=COUNTA(A2:A1048576)=0
Šeit,
A2 ir datu kopas pirmā šūna,
A1048576 ir rindas maksimums programmā Excel (2007-2019).
3. solis: Spiediet Ievadiet . Tas parādīs True ja sleja ir tukša, vai Viltus ja visā kolonnā ir vismaz viena šūna, kas nav tukša.
4. solis: Piemērojiet formulu pārējām kolonnām, velkot Uzpildes rokturis .
5: Tagad dodieties uz Sākums -> Atlasīt & amp; Filtrēt -> Pielāgota šķirošana .
6. solis: No uznirstošā loga Atlasīt logā noklikšķiniet uz Iespējas pogu. Pēc tam izvēlieties Kārtot no kreisās puses pa labi no Kārtot opcijas uznirstošo logu un noklikšķiniet uz LABI .
7. solis: Noklikšķiniet uz nolaižamajā lodziņā blakus Atlasīt pēc etiķeti un no tās izvēlieties opciju 1 rinda .
8. solis: Noklikšķiniet uz nolaižamajā lodziņā zem Kārtot pēc etiķeti un izvēlieties opciju Šūnu vērtības no turienes.
9. solis: Noklikšķiniet uz nolaižamajā lodziņā zem Pasūtījums etiķeti un izvēlieties opciju No lielākā līdz mazākajam . noklikšķiniet uz LABI .
Tas pārvietos visas tukšās kolonnas uz darblapas kreiso pusi.
10. solis: No turienes vienkārši atlasiet visu datu kopu ar tukšām tukšām kolonnām, noklikšķiniet ar peles labo pogu un pēc tam atlasiet Dzēst .
11. solis: No uznirstošā loga Dzēst lodziņā izvēlieties Visa sleja no iespējām. Noklikšķiniet uz LABI .
Tādējādi no datu kopas tiks dzēstas visas tukšās kolonnas.
Līdzīgi lasījumi:
- Kā programmā Excel dzēst vairākas kolonnas
- Dublētu kolonnu dzēšana programmā Excel (6 veidi)
- Kā dzēst papildu kolonnas programmā Excel (7 metodes)
- Excel kolonnu dzēšana, neietekmējot formulu (divi veidi)
3. Izmantojot VBA kodu
Ja esat pieredzējis Excel lietotājs, tad šī metode ir īpaši paredzēta tieši jums. VBA koda īstenošana ir visdrošākais veids, kā izdzēst tukšās kolonnas programmā Excel. Tā dzēš tikai pilnīgi tukšas kolonnas. Ja jebkurā kolonnā ir viena šūnas vērtība, pat ja jebkura šūna atgriež tukšu virkni, joprojām visa šī kolonna būs pilnīgi neskarta.
Tālāk ir sniegts automatizēts veids, kā Excel programmā dzēst tukšās kolonnas.
1. solis: Spiediet Alt + F11 uz tastatūras vai atveriet cilni Izstrādātājs -> Visual Basic lai atvērtu Visual Basic redaktoru.
2. solis: Izvēlnes joslā noklikšķiniet uz Ievietot -> Modulis .
3. solis: Nokopējiet un ielīmējiet kodu logā šādu kodu.
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. solis: Spiediet F5 uz tastatūras vai izvēlnes joslā izvēlieties Palaist -> Run Sub/UserForm Varat arī vienkārši noklikšķināt uz mazā Atskaņošanas ikona apakšizvēlnes joslā, lai palaistu makro.
5: Iznirstošajā dialoglodziņā pārslēdzieties uz interesējošo darblapu, atlasiet vēlamo diapazonu un noklikšķiniet uz LABI .
Tas dzēsīs visas tukšās kolonnas no datu bāzes.
Secinājums
Šajā rakstā tika aplūkoti trīs vienkārši veidi, kā izdzēst tukšos kolonnas programmā Excel. Mēs esam parādījuši, kā izmantot Excel rediģēšanas rīkus, lai izdzēstu tukšās kolonnas, mēs esam parādījuši, kā piemērot formulas, lai izdzēstu tukšās kolonnas, un mēs esam arī ieviesuši VBA kodu, lai izdzēstu tukšās kolonnas programmā Excel.
