Inserting Columns in Excel Worksheet using VBA

Home/Excel VBA/Inserting Columns in Excel Worksheet using VBA

Description:

When we are automating any task we may required inserting columns between other columns or left/right side of a column using Excel VBA.

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


For example, we may generate employee performance report based on their tenure in an organization. The first column would be ‘Employee ID’ and the last column would be ‘Tenure (in months)’. Between these two columns I want Employee performance for each month. We can automate this and we need to add the number of column between these existing tow columns based on the tenure of the particular employee. Since one employee may working from last 2 years, some one lease may be joined 2 months back.

So, while generating the reports for each employee, we need to add the number of columns as per their tenure. We will see this practically in the below example.

Inserting Columns in Excel – Solution(s):

We can use EntireColumn.Insert method to insert a column in worksheet using Excel VBA.

Inserting Columns in Worksheet using Excel VBA – An Example

The following example will show how to insert columns in excel worksheets. In this example I am inserting a column at B and inserting multiple columns at C and D.

Code:
Sub sbInsertingColumns()
'Inserting a Column at Column B
Range("B1").EntireColumn.Insert
'Inserting 2 Columns from C
Range("C:D").EntireColumn.Insert
End Sub
Instructions:
  1. Open an excel workbook
  2. Press Alt+F11 to open VBA Editor
  3. Insert a Module for Insert Menu
  4. Copy the above code and Paste in the code window
  5. Save the file as macro enabled workbook
  6. Press F5 to run it
Input:

Below is the screen shot of the worksheet before running this code.
inserting columns in excel VBA Examples1

Output:

Below is the screen shot of the worksheet after running this code.

inserting columns in excel VBA Example 2

Inserting Columns in Worksheet using Excel VBA – Case study

As discussed above here is the simple example to generate the employee performance report using Excel VBA based on their tenure. This example will insert the number of columns based on the tenure in months.

Code:
Sub sbInsertingColumnsCaseStudy()
'Declaration
Dim iCntr, jCntr
'Setting the active sheet to an obect for future reference
Set shtSource = ThisWorkbook.ActiveSheet
'Adding a workbook
Set wb = Workbooks.Add
For iCntr = 2 To 10 ' for each employee
'Adding worksheet for each employee
Set sht = wb.Worksheets.Add
sht.Name = shtSource.Cells(iCntr, 1)
'Printing labels and employee ID and tenure
sht.Cells(1, 1) = "Employee ID"
sht.Cells(1, 2) = "Tenure"
sht.Cells(2, 1) = shtSource.Cells(iCntr, 1)
sht.Cells(2, 2) = shtSource.Cells(iCntr, 2)
'Pinting monts as per employee tenure.
For jCntr = 1 To shtSource.Cells(iCntr, 2)
sht.Range("B1").EntireColumn.Insert
sht.Range("B1") = Format((Now() - jCntr * 30), "mm-yyyy")
Next
Next
End Sub
Istructions:

Download the example workbook and click on the ‘Generate Employee Performance Report’ button. It will create new workbook and worksheets as report for each employee.

Inserting Columns using Excel VBA

Download – Example File

You can download and explore the use of inserting columns using excel vba.
mongopono.ru – Inserting Columns

LIMITED TIME OFFER
By |March 31st, 2013|Excel VBA|3 Comments

About the Author:

Excel VBA Developer having around 8 years of experience in using Excel and VBA for automating the daily tasks, reports generation and dashboards preparation. Valli is sharing to helps us automating daily tasks.

3 Comments

  1. Aravind September 2, 2015 at 2:12 PM - Reply

    Hi guys,

    I wanted to move and reorganize my data in my excel example: I have 5 columns(A-E) and 100 rows(1-100) in each column in my sheet I want to move the entire column D to the position of the column B and Column B should not be overwritten the entire column B should be moved to the right.
    can anyone teach me how to do it using macro or something else.

    • Abrar May 18, 2017 at 11:32 AM - Reply

      U can just insert a new column beside column B and cut column D and paste it into newly inserted column, that’s it !!

  2. t.maharani January 11, 2016 at 11:56 AM - Reply

    how to create the columns in excel through vb6?
    could to send the coding?

Leave A Comment


Related pages


add the developer tab to the ribbon wordvba check boxhow to capture data from userform into excel worksheethow to create a sales dashboard in excelvba excel range selectsample meeting minutes template wordexcel match formularows select vbavbscript carriage returndelete blanks in excelexcel macro codesinsert a new worksheet in excelhow to protect worksheet in excel 2007trim vba excelcheckbox excel 2007vba fillbeginner excel tutorialvba set workbook nameview developer tab in excelobjfso.deletefilevbscript file handlingexcel vba password recovery codems excel hlookup examplewhat is workbook and worksheethow to unprotect workbook in excel 2010 without passwordrun macro from vba2007 excel templatesautofit in excel 2010duplicate check excelfunction excel vbavba class methodsplot chart in excelprotect unprotect sheet vbaunprotect excel sheet 2010100 most frequently asked interview questionsexcel most useful formulasformula sumif excelremove duplicates excel 2010vba paste specialcopy excel cell to another sheetdelete duplicates in column excelvba create graphcreate vba macrovba copy to clipboardhow to find duplicates in excel 2003what is hlookup in excel used forvba promptadd developer tab to ribbon in word 2007unhide a row in excel 2010how to delete numbers in excelcreating dashboards in excelexcel macro to print to pdfdelete macro excelvba syntaxvisual basic excel tutorial pdfcreate a pie chart in excel 2013excel estimating templatevba securityexcel cell background colorread text file vbaprotect sheet in excelestimate template word freeoffset example excelbuilding macros in excel 2010refresh pivot table vbahow to lock worksheet in excel 2007sas programming for beginnersexcel import data from another workbookddl commands in sql servervba application function