Pinterest Pixel

How to Insert Numbers Using Macros in Excel

I wanted to insert consecutive numbers in a cool way. And the way I found was to... read more

Download Excel Workbook
Bryan
Posted on

Overview

I wanted to insert consecutive numbers in a cool way. And the way I found was to insert numbers using Macros in Excel!

We get to learn to use a loop as well to do this!

Make sure your Excel has the Developer Tab enabled following this tutorial.

I explain how you can do this below step by step!

What does it do?

Asks for a max number, then generates numbers from 1 to the max number

Copy Source Code:


Sub InsertNumbers()

Dim maxNumber As Integer
Dim counter As Integer

On Error GoTo Last
maxNumber = InputBox("Enter the Max Value", "Generate 1 to n")
'Generate all the numbers
For counter = 1 To maxNumber
ActiveCell.Value = counter
'Move one cell below
ActiveCell.Offset(1, 0).Activate
Next counter
Last: Exit Sub
End Sub

Final Result: 

How to Insert Numbers Using Macros in Excel

Exercise Workbook:

How to Insert Numbers Using Macros in Excel | MyExcelOnline

DOWNLOAD EXCEL WORKBOOK


STEP 1: Go to Developer > Code > Visual Basic

How to Insert Multiple Columns Using Macros in Excel

 

STEP 2: Make sure Sheet1 is selected, paste in your code and Select Save. Close the window afterwards.

How to Insert Numbers Using Macros in Excel

 

STEP 3: Let us test it out!

See also  How to Insert Multiple Columns Using Macros in Excel

Select any cell that you want to insert numbers on. Go to Developer > Code > Macros

How to Insert Numbers Using Macros in Excel

Make sure your macro is selected. Click Run.

How to Insert Numbers Using Macros in Excel

We want to insert 10 numbers. Type in 10.

How to Insert Numbers Using Macros in Excel

With that, you are now able to insert consecutive numbers using macros!

How to Insert Numbers Using Macros in Excel

 

How to Insert Numbers Using Macros in Excel

 

 

101 Macros Book

If you like this Excel tip, please share itEmail this to someone

email

Pin on Pinterest

Pinterest

Share on Facebook

Facebook

Tweet about this on Twitter

Twitter

Share on LinkedIn

Linkedin

Get Video Training

Advance your Microsoft Excel & Office Skills with the MyExcelOnline Academy!

Dramatically Reduce Repetition, Stress, and Overtime!
Exponentially Increase Your Chances of a Promotion, Pay Raise or New Job!

Learn in as little as 5 minutes a day or on your schedule.

Learn More!