VBA Delete Columns in range Excel Macro Example Code

Home/VBA/VBA Delete Columns in range Excel Macro Example Code

VBA code to delete Columns in range example will helps to delete empty Columns in specific range from excel worksheet. We can use Delete method of Columns to delete the Columns in a range. In this example we will see how to delete the Columns from a range in excel worksheet using VB. Excel VBA Macro code for deleting Columns in a range should work for all the version of Microsoft Excel 2003, Excel 2007, Excel 2010, and Excel 2013.

PREMIUM TEMPLATES LIMITED TIME OFFER

ON SALE80% OFF

50+ Project Management Templates Pack
Excel PowerPoint Word

Advanced Project Plan & Portfolio Template
Excel Template

Business Presentations Templates Pack
PowerPoint Slides

20+ Excel Project Management Pack
Excel Templates

20+ PowerPoint Project Management Pack
PowerPoint Templates

10+ MS Word Project Management Pack
Word Templates


VBA code to delete Columns in a range


Here is the Example VBA syntax and Example VBA Macro to delete Columns in range from excel worksheets. This will help you to know how to delete specific Columns in a range from Excel workbook using VBA.

VBA delete Columns in range: Syntax


Following is the VBA syntax and sample VBA code to delete Columns in a range from worksheet using VBA. We are using the Delete method of the Columns object of worksheet.


Columns(ColumnNumber).EntireColumn.Delete

Here Columns.delete method will delete the Column in the worksheet..

Delete Columns in Range: Examples


The following VBA code is to delete Columns in range A10 to D20 .

Sub sbVBS_To_Delete_Columns_In_Range()
Dim iCntr
Dim rng As Range
Set rng = Range("A10:D20")

 For iCntr = rng.Column + rng.Columns.Count - 1 To rng.Column Step -1
 Columns(iCntr).EntireColumn.Delete
 Next

End Sub 

Instructions to run the VBA code to delete Columns in range


Please follow the below steps to execute the VBA code to delete Columns in range from Excel worksheets.
Step 1: Open any Excel workbook
Step 2: Press Alt+F11 – This will open the VBA Editor
Step 3: Insert a code module from then insert menu
Step 4: Copy the above code and paste in the code module which have inserted in the above step
Step 5: Enter some sample data in range A1 to D20 in any column.
Step 6: Now press F5 to execute the code

Now you can observe that the all Columns are deleted from worksheet in in Range A10 to D20.

Explained VBA Code to Delete Columns in a range


Start writing the Excel VBA Macro to delete Columns in a particular range.
Sub sbVBS_To_Delete_Columns_In_Range()

‘Declaring a variable iCntr as Long to store the Column number iteration to use in for loop.
Dim iCntr As Long
‘Declaring range variable rng to set the range
Dim rng As Range

‘Assigning the range A10 to D20 to rng range object
Set rng = Range(“A10:D20”)

‘Looping through the Columns in the range from last to first. Here step statement will helps.
For iCntr = rng.Column + rng.Columns.Count – 1 To rng.Column Step -1
‘And deleting the Columns
Columns(iCntr).EntireColumn.Delete
Next

End Sub
Ending the sub procedure to delete Columns in a range.

 
 
Related Resource External VBA Reference
Excel VBA Reference Project Management Reference
VBA Reference:
Excel Reference:
By |April 22nd, 2014|VBA|0 Comments

About the Author:

PNRao is a passionate business analyst and having close to 10 years of experience in Data Mining, Data Analysis and Application Development. This blog is his passion to learn new skills and share his knowledge to make you expertise in Data Analysis (Excel, VBA, SQL, SAS, Statistical Methods, Market Research Methodologies and Data Analysis Techniques).

Leave A Comment


Related pages


sample vb codesvba sql recordsethow can i find duplicates in excelsample of gantt chart in excel 2007excel master sheetexcel delete rowhow to merge and center cells in excelexcel costing templatevba xlupdefine excel macrocreating if statements in excelexcel vba protect sheetddl and dml statementshow to unlock the excel filevisual basic gotolearn to code vbaif statements excel 2010remove unique values in excelhow to unlock excel workbookms excel password protecthow to unhide columns in excel 2007message box vbaexcel macro unhide all sheetsdata mining add insrun macro when excel opensexcel dynamic dashboardlistbox columnsmsgbox iconword 2013 developer tabunlock cells in excelsql excel querydelete blanks excelms excel vba tutorialvba break statementcreating check boxes in excelvba cells functionusedrange excelinstr function in vbacombine tabs in excelfind duplicate rows excelexcel vba chartobjectsexcel sum vlookupdata validation in excel 2010 tutorialgraph creation in excelvba sumifs exampleprotect structure and windows excelascending & descending order worksheetsexcel multiple if conditionsoutlook vba referenceshortcut keys to excelvba isnumbervba macro programmingcheckbox color changeexcel vba save as xlsxvba open documentexcel vba file pathunmerge cells in excelunprotect sheet forgot passwordhow to expand row height in excelwhat is row height in excelvba application.getsaveasfilenamehow to make pivot table in excel 2007merge multiple worksheets into onesql frequently asked interview questions and answersexcel macro format cellpivot table excel vbawriting macros in excelvba to open excel file from foldervba excel close filehow to merge cell data in excelvbscript sql server connection stringpowerpoint macro tutorial