Има няколко начина за изтриване на празни колони във файл на Microsoft Excel. Защо трябва да правите това? - Просто.
Вижте и нашата статия Как да замразите горния ред в Excel
От време на време данните, които импортирате от уеб страници, могат да доведат до появата на голям брой колони, дори ако те не се използват. Виждате това да се случва с CSV файлове и .txt файлове също толкова често.
Когато това се случи, изтриването на колони ръчно може да не е винаги лесно. Разбира се, ако имате само две или три празни колони, е напълно добре да ги изтриете ръчно. Но какво ще стане, ако импортираният ви проект създава 57 празни и непрекъснати колони? - За целта ще ви е необходим автоматизиран процес.
Използване на VBA Macro
бързи връзки
- Използване на VBA Macro
-
-
- Отидете до вашия Excel файл
- Дръжте Alt и F11 заедно
- Изчакайте да се появи прозорецът Microsoft Visual Basic for Applications
- Кликнете върху Вмъкване
- Изберете Модул
- Поставете следните редове код в прозореца
- Натиснете F5, за да компилирате и изпълните макроса
- Въведете подходящия диапазон на работа в диалоговия прозорец
- $ A $ 1 - Горният ъгъл
- $ J $ 12 - Долен ъгъл
- Натиснете OK
-
-
- Използване на Excel Tools
-
-
- Първо изберете диапазона от данни
- Натиснете F5
- Кликнете върху Специални
- Изберете опция Заготовки
- Щракнете върху OK (Този избор ще гарантира, че всички празни клетки са избрани в целевия диапазон)
- Отворете раздела Начало
- Изберете падащото меню Изтриване под групата инструменти „Клетки“
- Изберете Изтриване на клетките
- Изберете Shift Cells Left за премахване и пренареждане на колони
- Щракнете върху OK
- Изберете Shift клетки нагоре за премахване и пренареждане на редове
-
-
- Други лесни за изпълнение задачи за сортиране
- Крайна мисъл
Първият метод включва използване на макрос VBA.
-
Отидете до вашия Excel файл
-
Дръжте Alt и F11 заедно
-
Изчакайте да се появи прозорецът Microsoft Visual Basic for Applications
-
Кликнете върху Вмъкване
-
Изберете Модул
-
Поставете следните редове код в прозореца
Sub DeleteEmptyColumns()
'Updateby20140317
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Columns.Count To 1 Step -1
Set rng = InputRng.Cells(1, i).EntireColumn
If Application.WorksheetFunction.CountA(rng) = 0 Then
rng.Delete
End If
Next
Application.ScreenUpdating = True
End Sub
-
Натиснете F5, за да компилирате и изпълните макроса
-
Въведете подходящия диапазон на работа в диалоговия прозорец
Работният диапазон или диапазонът от данни е специфичният интервал между колоните, към който искате да се насочите. Форматът е $ A $ 1: $ J $ 12. Буквите съответстват на колоната, а числата съответстват на редовете.
Ако издърпате това с мишката или като задържите Shift и използвате клавишите със стрелки, ще забележите, че:
$ A $ 1 - Горният ъгъл
$ J $ 12 - Долен ъгъл
Не можете да изберете диапазона от данни, преди да започнете да качвате макроса, тъй като той няма да остане избран.
Натиснете OK
След това всички празни колони трябва да бъдат изтрити и всички запълнени колони трябва да са една до друга.
Използване на Excel Tools
Очевидно Excel не би бил такава мощна компания, ако не разполагаше с големи способности за сортиране. Можете да използвате падащото меню Изтриване, за да изтриете цели редове, колони или празни клетки.
-
Първо изберете диапазона от данни
-
Натиснете F5
-
Кликнете върху Специални
-
Изберете опция Заготовки
-
Щракнете върху OK (Този избор ще гарантира, че всички празни клетки са избрани в целевия диапазон)
-
Отворете раздела Начало
-
Изберете падащото меню Изтриване под групата инструменти „Клетки“
-
Изберете Изтриване на клетките
-
Изберете Shift Cells Left за премахване и пренареждане на колони
-
Щракнете върху OK
Сега празните клетки от празните колони трябваше да изчезнат и всички останали редове да бъдат преместени по-близо един до друг.
Можете да използвате същия подход за изтриване на цели редове. Въпреки това, вместо да преместите клетките вляво, изберете другата опция.
Изберете Shift клетки нагоре за премахване и пренареждане на редове
В зависимост от това коя версия на Excel използвате, може да получите различни формулировки. Но във всеки случай, най-добрите две опции в менюто Изтриване на клетките са винаги еднакви.
Този метод вече не премахва всички празни клетки в селекцията. Преди Excel 2013, това по невнимание ще премахне дори празни редове, които по принцип биха объркали сортирането.
Сега проблемът вече не възниква. Следователно, ако искате също да се отървете от редовете, можете да го направите, като изберете отново диапазона от данни и следвайки предишните стъпки. След това просто изберете, за да изместите или изтриете клетките нагоре, вместо наляво.
Други лесни за изпълнение задачи за сортиране
Въпреки че технически използването на лентата с инструменти на Excel за изтриване на празни колони и редове изглежда по-лесно, макро методът на VBA е безупречен, което означава, че можете да го използвате дори в по-стари версии на Microsoft Excel.
Използвайки същия VBA модул или функционално меню Go To, можете да направите много повече в Excel. Имате ли определени формули, които вече не са от значение? - Можете също да ги премахнете или да ги пренаредите съответно.
Можете също да премахнете ненужни коментари или всички коментари от вашия проект, ако не искате те да се показват по време на вашата презентация. Погледнете във VBA, ако искате да сте потребител на захранване в Excel.
Крайна мисъл
С течение на годините в интернет се появи широка гама от добавки. Някои от тях ви позволяват да правите още повече преки пътища, когато сортирате големи електронни таблици. Тези приложения обаче рядко са безплатни и не си заслужават труда за прости задачи като премахване на празни редове, клетки и колони.
Освен това, ако беше толкова трудно, Microsoft вече би опростила процеса до сега или създаде още по-обширни ръководства за сортирането на Excel.
