Sisukord
See artikkel näitab teile, kuidas saate Excelis tühje veerge kustutada kolmel tõhusal ja lihtsal viisil.
Lae alla töövihik
Praktilise töövihiku saate alla laadida siit.
Tühjade veergude kustutamine Excelis.xlsm3 lihtsat viisi tühjade veergude kustutamiseks Excelis
Siin saate teada 3 võimalust tühjade veergude kustutamiseks Excelis, kasutades Exceli redigeerimisvahendeid, kasutades valemit ja rakendades VBA-koodi.
1. Kasutades Exceli redigeerimisvahendeid
1. samm: Valige andmekogum.
2. samm: Mine edasi Kodu -> Leia & vali; vali -> Mine Speciali juurde .
3. samm: Alates Mine Speciali juurde hüpikaknas, valige Aherained , seejärel klõpsake OK .
4. samm: Valitakse ainult tühjad lahtrid teie andmestikust. Tehke hiirega paremklõps, valige avanevast valikute nimekirjast Kustuta .
5. samm: Edasi, hüpikaknas olevast hüpikaknast Kustuta kasti, vali Nihutage lahtrid vasakule valikutest. Klõpsake OKEI.
Sellega kustutatakse kõik tühjad veerud andmekogumist.
Loe edasi: Kuidas kustutada kasutamata veerge Excelis
2. Kasutades valemit
Võite kasutada COUNTA() valemiga tühjade veergude kustutamiseks Excelis. Mida COUNTA() valem teeb seda, et kõigepealt tuvastab see Excelis teie andmekogumis tühjad ja mitte-tühjad veerud ning seejärel saate sealt hõlpsasti valida ja kustutada tühjad veerud.
See on veel üks tõhus viis tühjade veergude kustutamiseks Excelis, eriti kui teil on palju tühje veerge, millega töötada. Õpime, kuidas seda teha.
1. samm: Sisestage tühi rida otse andmekogumi kohal, tehes paremklõpsu esimese rea päises ja valides Sisesta See lisab uue rea kogu andmekogumi kohale.
2. samm: Kirjutage oma töölehe kõige vasakpoolsemasse lahtrisse järgmine valem,
=COUNTA(A2:A1048576)=0
Siin,
A2 tähistab andmekogumi esimest lahtrit,
A1048576 kujutab endast Exceli (2007-2019) rea maksimumi.
3. samm: Press Sisesta See kuvab Tõsi kui veerg on tühi, või Vale kui kogu veerus on vähemalt üks mitte-tühi lahter.
4. samm: Rakendage valemit teistele veergudele, lohistades nuppu Täitmise käepide .
5. samm: Nüüd mine Kodu -> Sort & Filter -> Kohandatud sorteerimine .
6. samm: Alates pop-up Sorteeri aknas, klõpsake nuppu Valikud nuppu. Seejärel valige Sortida vasakult paremale alates Sorteerimisvalikud hüpikaknas ja klõpsake OK .
7. samm: Klõpsake rippkasti kõrval oleval Sorteerimine silt ja valige sealt valik Rida 1 .
8. samm: Klõpsake rippmenüü all olevasse lahtrisse Sorteeri edasi silt ja valige valik Raku väärtused sealt.
9. samm: Klõpsake rippmenüü all olevasse lahtrisse Tellige silt ja valige valik Suurimast väikseimani . OK .
See nihutab kõik tühjad veerud töölehe vasakule poole.
10. samm: Sealt valige lihtsalt kogu tühjade tühjade veergude andmekogum, tehke paremklõps ja seejärel valige Kustuta .
11. samm: Alates pop-up Kustuta kasti, valige Kogu veerg valikutest. Klõpsake OK .
Sellega kustutatakse kõik tühjad veerud andmekogumist.
Sarnased lugemised:
- Kuidas kustutada mitu veergu Excelis
- Kustutage dubleeritud veerud Excelis (6 võimalust)
- Kuidas kustutada Exceli täiendavaid veerge (7 meetodit)
- Exceli veergude kustutamine ilma valemit mõjutamata (kaks võimalust)
3. Kasutades VBA-koodi
Kui olete kogenud Exceli kasutaja, siis on see meetod just teie jaoks. VBA-koodi rakendamine on kõige turvalisem viis tühjade veergude kustutamiseks Excelis. See kustutab ainult täiesti tühjad veerud. Kui mõni veerg sisaldab ühe lahtri väärtust, isegi mõni lahter tagastab tühja stringi, jääb kogu see veerg siiski täiesti puutumata.
Allpool on toodud tühjade veergude automaatne kustutamine Excelis.
1. samm: Press Alt + F11 klaviatuuril või mine vahekaardile Arendaja -> Visual Basic et avada Visual Basic'i redaktor.
2. samm: Klõpsake menüüribal nuppu Sisesta -> Moodul .
3. samm: Kopeeri järgmine kood ja kleebi see koodiaknasse.
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 Sub 4. samm: Press F5 klaviatuuril või valige menüüribalt Käivita -> Run Sub/UserForm Võite ka lihtsalt klõpsata väikesel Mängi ikooni allmenüüribal makro käivitamiseks.
5. samm: Vahetage avanevas dialoogiaknas huvipakkuvale töölehele, valige soovitud vahemik ja klõpsake nuppu OK .
Sellega kustutatakse kõik tühjad veerud andmestikust.
Kokkuvõte
Selles artiklis käsitleti kolme lihtsat viisi, kuidas kustutada tühje veerge Excelis. Oleme näidanud, kuidas kasutada Exceli redigeerimisvahendeid tühjade veergude kustutamiseks, oleme näidanud, kuidas rakendada valemeid tühjade veergude kustutamiseks ja oleme rakendanud ka VBA-koodi tühjade veergude kustutamiseks Excelis.
