What does it do?
Asks for a number of columns, then inserts it to the right of your selected cell
Copy Source Code:
Sub InsertMultipleColumns() Dim numColumns As Integer Dim counter As Integer 'Select the current column ActiveCell.EntireColumn.Select On Error GoTo Last numColumns = InputBox("Enter number of columns to insert", "Insert Columns") 'Keep on insert columns until we reach the desired number For counter = 1 To numColumns Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromRightorAbove Next counter Last: Exit Sub End Sub
Ever wanted to try to insert multiple columns just by typing in a number? It is possible using Macros in Excel!
Plus you also get to learn some programming tricks along the way, how cool is that?
Make sure your Excel has the Developer Tab enabled following this tutorial.
I explain how you can do this below step by step!
STEP 1: Go to Developer > Code > Visual Basic
STEP 2: Paste in your code and Select Save. Close the window afterwards.
STEP 3: Let us test it out!
Select any cell that you want to insert columns on. Go to Developer > Code > Macros
Make sure your macro is selected. Click Run.
We want to insert 3 columns. Type in 3.
With that, you are now able to insert multiple columns using macros!
How to Insert Multiple Columns Using Macros in Excel