How to add two ranges using Macro in Excel 2007?

[toplisek]

I am giving you just an example what to achieve:

Sub Uppercase()
' Loop to cycle through each cell in the specified range.
For Each x In Range("K2:K1000")
For Each x In Range("M2:M1000")
' Change the text in the range to uppercase letters.
x.Value = UCase(x.Value)
Next
End Sub

It is working one range but how to add also another range Range("M2:M1000") like above example:

Sub Uppercase()
' Loop to cycle through each cell in the specified range.
For Each x In Range("A1:A5")
' Change the text in the range to uppercase letters.
x.Value = UCase(x.value)
Next
End Sub

Need help.

[windknife]

You can use Union funtion to merge multiple range.

Set r = Union(Range("K2:K10000"), Range("M2:M10000"))

[Croweater]

Or;

Please Login or Register  to view this content.

[MatrixMan]

Faster to read your ranges into an array, change there and bulk paste it back.

Please Login or Register  to view this content.

[toplisek]

Thank you. It is working.