Обикновено в работния лист на Excel има два различни метода за изтриване на колони, като единият е клавишната комбинация, а другият с помощта на метода за щракване с десния бутон на мишката и вмъкването, но във VBA трябва да използваме команда за изтриване и цялата инструкция за колона, за да изтрием всяка колона заедно, трикът да това е, че ако трябва да изтрием една колона, ние даваме препратка към една колона, но за многото колони даваме няколко препратки към колона.
Excel VBA Изтриване на колона
Извършваме много действия в Excel като изрязване, копиране, поставяне, добавяне, изтриване, вмъкване и много такива неща, които правим редовно. Можем да използваме всички тези действия, използвайки VBA кодиране. Една от важните концепции, които трябва да научим, е в VBA е „изтриване на колона“. В тази статия ще ви покажем как да използвате тази опция за изтриване на колона във VBA.
Какво прави изтриването на колона в Excel VBA?
Както се казва в името, тя ще изтрие посочената колона. За да изпълним тази задача, първо трябва да определим коя колона трябва да изтрием. Изборът на колони за изтриване е различен при отделните сценарии, така че ще разгледаме някои от важните и често срещани сценарии в тази статия.
Изтриването на колоните е лесно. Първо, трябва да използваме свойството COLUMNS, за да изберем колоната, така че по-долу е синтаксисът на метода Column Delete в VBA.
Колони (Справка за колони). Изтриване
Така че можем да изградим кода по следния начин:
Колони (2). Изтриване или Колони („B“). Изтриване
Това ще изтрие колона номер 2, т.е. колона Б.
Ако искаме да изтрием няколко колони, не можем да въведем колони. Трябва да препращаме към колоните по заглавки на колони, т.е. азбуки.
Колони („A: D“). Изтриване
Това ще изтрие колоната от A до D, т.е. първите 4 колони.
По този начин можем да използваме метода „Изтриване на колона“ във VBA, за да изтрием конкретните колони. В раздела по-долу ще видим още примери, за да го разберем по-добре. Прочетете.
Примери за Excel VBA Метод за изтриване на колона
По-долу са примерите за изтриване на колони с помощта на VBA.
Пример # 1 - Използване на метод за изтриване
Да приемем, че имате таблицата с данни, нещо като по-долу.
Ако искаме да изтрием месеца на колоната „март“, първо изберете свойството колони.
Код:
Sub Delete_Example1 () Колони (End Sub
Споменете номера на колоната или азбуката. В този случай е или 3, или C.
Код:
Под изтриване_Пример1 () Колони (3). Крайна под
Използвайте метода Delete.
Забележка: няма да получите списъка IntelliSense, за да изберете метода за изтриване. Просто напишете „Изтриване“Код:
Sub Delete_Example1 () Колони (3). Изтриване на край Sub
Или можете да въведете адреса на колоната по този начин.
Код:
Sub Delete_Example1 () Колони ("C"). Изтриване на крайния Sub
Изпълнете този код, като използвате клавиша F5, или можете да стартирате ръчно и да видите резултата.
И двата кода ще свършат една и съща работа за изтриване на споменатата колона.
Ако искаме да изтрием множество колони, трябва да ги споменем в азбуката. Тук не можем да използваме номера на колони.
Ако искаме да изтрием колоните от 2 до 4, можем да предадем кода като по-долу.
Код:
Sub Delete_Example1 () Колони ("C: D"). Изтриване на крайния Sub
Run this code manually through the run option or press the F5 key. This will delete the columns “Feb,” “Mar,” and “Apr.”
Example #2 - Delete Columns with Worksheet Name
The above is an overview of how to delete columns using VBA code. However, that is not the good practice of deleting columns. Without referring the worksheet name, it is dangerous to blindly delete the column.
If you have not mentioned the worksheet name, then whichever sheet is active, it will delete columns of that sheet.
First, we need to select the worksheet by its name.
Code:
Sub Delete_Example2() Worksheets("Sales Sheet").Select End Sub
After selecting the sheet, we need to select the columns. We can also select the columns by using the VBA RANGE object as well.
Code:
Sub Delete_Example2() Worksheets("Sales Sheet").Select Range("B:D").Delete End Sub
This will delete the columns B to D of the worksheet “Sales Sheet.” For this code, it doesn’t matter which is active. Still, it will delete the mentioned columns of that sheet only.
We can also construct the VBA code in the single line itself.
Code:
Sub Delete_Example2() Worksheets("Sales Sheet").Range("B:D").Delete End Sub
This also deletes the columns “B to D” without selecting the worksheet “Sales Sheet.”
Example #3 - Delete Blank Columns
Assume you have data that has alternative blank columns like the below.
So, delete every alternative column we can use the below code.
Code:
Sub Delete_Example3() Dim k As Integer For k = 1 To 4 Columns(k + 1).Delete Next k End Sub
Run this code using the F5 key or manually. Then, it will delete all the alternative blank columns, and our data will look like this.
Пример # 4 - Изтриване на колони с празни клетки
Сега вижте този пример. Има определени ситуации, при които трябва да изтрием цялата колона, ако някоя от празните клетки се намери в диапазона от данни. За пример разгледайте данните по-долу.
Всички жълто оцветени клетки са празни. И така, тук моето изискване е да изтрия всички колони с празни клетки. Кодът по-долу ще направи това.
Код:
Sub Delete_Example4 () Обхват ("A1: F9"). Изберете Selection.SpecialCells (xlCellTypeBlanks). Изберете Selection.EntireColumn.Delete End Sub
Нека ви обясня този код ред по ред.
Нашите данни са от A1 до F9, така че първо трябва да избера този диапазон и кодът по-долу ще го направи.
Обхват ("A1: F9"). Изберете
В този избран диапазон от клетки трябва да избера клетките, които са празни. Така че, за да изберете празна клетка, ние трябва да специални свойства на клетки, и в това свойство, ние сме използвали тип клетка като празен.
Selection.SpecialCells (xlCellTypeBlanks). Изберете
След това ще избере всички празни клетки и в селекцията изтриваме цялата колона на селекцията.
Selection.EntireColumn.Delete
Така нашият краен резултат ще изглежда така.
Където и да е намерил празната клетка, той е изтрил цялата празна клетка в цялата колона.
Можете да изтеглите тази Excel VBA колона за изтриване тук - VBA шаблон за изтриване на колона
