Excel VBA Loops

For … Next Loop | Do … Loop | While … Wend loop

This post will guide you how to use loops statements in MS excel VBA. There are three most useful Loops statements as bellows: For …Next loop, Do … Loop and While …Wend loop.

You can use Loop statement to perform the same statement multiple times in MS VBA program.

If we want to add up the numbers 1 to 10, we can easily to get the results. But if we need to add up the numbers 1 to a 100. You wouldn’t have to type them all out to do addition operation, now we can use the loop.

For … Next Loop example

Sample1: add up the numbers 1 to 100

1# open visual Basic Editor, then insert a module and name as: myForNextLoopDemo1

2# enter into the below VBA codes in code window.

Sub myForNextLoopDemo1()
Dim i As Integer, iSum As Integer
iSum = 0
For i = 1 To 100
    iSum = iSum + i
Next
MsgBox iSum, , "For ...Next Loop"
End Sub

vba For Next Loop example1

3# back to workbook and run the above macro.

vba For Next Loop example1

vba For Next Loop example1

Do … Loop example

Sample2: add up the numbers 1 to 100 using Do Loop

1# open visual Basic Editor, then insert a module and name as: myDoLoopDemo1

x
How to Replace # Errors with Zero or Any Specific Value in Excel

2# enter into the below VBA codes in code window.

Sub myDoLoopDemo1()

Dim i As Integer, iSum As Integer

iSum = 0

i = 1

Do Until i > 100

iSum = iSum + i

i = i + 1

Loop

MsgBox iSum, , "Do ...Loop"

End Sub

 

vba Do Loop example1

3# back to workbook and run the above macro.

vba Do Loop example1

vba Do Loop example1

While …Wend loop Example

Sample3: add up the numbers 1 to 100 using While … Wend Loop

1# open visual Basic Editor, then insert a module and name as: myWhileWendLoopDemo1

2# enter into the below VBA codes in code window.

Sub myWhileWendLoopDemo1()

Dim i As Integer, iSum As Integer
iSum = 0
i = 1
While i < 101
    iSum = iSum + i
    i = i + 1
Wend
MsgBox iSum, , "While ...Wend Loop"
End Sub

 

While Wend loop Example1

3# back to workbook and run the above macro.

While Wend loop Example1

While Wend loop Example1

Related Posts

How To Remove Special Characters in Excel
remove special character2

This post will show you how to remove special characters from text strings in Excel. And I am going to introduce two ways to remove special characters (@&)#%$) from a string in Excel. Removing Special Characters using Power Query If ...

How To Insert Comments in Protected Worksheet in Excel
insert commetns in protected workshee3

This post will show you how to allow comments in a protected worksheet in Excel. You can easily to insert comments into cells in a normal worksheet in Excel, but if want to insert a comment in a worksheet that ...

How To Convert Text to Upper Cases(Using VBA) in Excel
convert text to upper cases1

This post will show you how to switch from lower case to upper case in Excel. and I am going to show you two different ways of converting text to upper cases using formula or VBA macro in Excel 2013,Excel ...

How To Hide Every Other Row in Excel (Using VBA)
hide every other row1

This post will show you how to hide alternate rows or columns in Excel or how to hide every third, fourth, fifth row or column in Excel. If you want to hide every other row in your current worksheet, how ...

How to Disable the Save As Prompt in Excel
disable save as prompt1

This post will show you how to use a VBA Macro to save an Excel file and overwrite any existing file without a prompt so that you are going to get the little window that says file already exists do ...

How to Count Cells that Contain even or odd numbers in Excel
count cells that contain even numbers5

This post will guide you how to count the number of cells that contain odd or even numbers within a range of cells using a formula in Excel 2013/2016.How do I count cells that contain odd numbers through the use ...

How to Count Cells Are Not Blank or Empty in Excel
count non blank nonempty cells5

This post will guide you how to count cells that are not blank or empty in a given range cells using a formula in Excel 2013/2016.How do I count the number of cells that are not blank in a particular ...

How to Count Cells Less Than a Specific Value in Excel
count cells lessr than5

This post will guide you how to count the number of cells less than a particular numeric value in a given range cells using a formula in Excel 2013/2016. How do I count cells that are less than a specific ...

How to Count Cells Greater Than a Specific Value in Excel
count cells greater than 5

This post will guide you how to count the number of cells greater than a particular numeric value in a given range cells using a formula in Excel 2013/2016. How do I count cells that are greater than a specific ...

How to Remove All Extra Spaces and Keep Only One Between Words in Excel
How to Remove All Extra Spaces and Keep Only One Between Words 7

Sometimes when copying something from other type files to excel, there might be two or more spaces display between words. Extra spaces between words are frequently to be seen in excel, and this behavior is very annoying. If we want ...

Sidebar