动态.Range（）函数Excel宏

Question

I was using the function .Range("some_cell") as follows:

For i = 1 to 100
   CurrentCell = 3 + i
   ThisWorkbook.Sheets("Sheet1").Rage("JCurrentCell")
Next i

However, Rage("JCurrentCell") is not allowed, what can I do to dynamically change this range from (ex: J1, J2, J3, J4, ... Jn)

Answer 1

Put your CurrentCell variable outside quotation marks:

For i = 1 to 100
   CurrentCell = 3 + i
   ThisWorkbook.Sheets("Sheet1").Range("J" & CurrentCell)
Next i

Pleas keep in mind, too:

1. use Range() object name, not Rage()
2. this line ThisWorkbook.Sheets("Sheet1").Range("J" & CurrentCell) is not complete at the moment, it doesn't do anything.

Answer 2

you can also use cells

For i = 1 to 100
   ThisWorkbook.Sheets("Sheet1").Cells(i + 3, "J")
Next i