Need help for reducing the code in a loop

[ThrottleWorks]

Need help for reducing the code in a loop


I have following two lines in the loop.


I want to know is it possible to reduce these two lines in the one.


cells(j,21) = cells(j,23)

cells(j,22) = cells(j,23)


There is 1 more set of similar lines (with different reference) in the loop.


Can anyone help me in this please.

 

[shrivallabha]

You can try like this:

Cells(j, 21).Resize(1, 2).Value = Cells(j, 23).Value

 

[ThrottleWorks]

Yes, thanks a lot, I think this will reduce the running time.


I am trying this, have a nice day.