VBA: Увеличение числа строк для моего кода

Question

Ниже мой код VBA,

For x = 0 To EleXML.ChildNodes.Length - 1  
     Range("A10" & x) = EleXML.ChildNodes.Item(x).getAttribute("aa") 
     Range("A10" & x) = EleXML.ChildNodes.Item(x).getAttribute("bb") 
     Range("A10" & x) = EleXML.ChildNodes.Item(x).getAttribute("cc") 
    Next x 

Моя ячейка начинается с «А10», как я могу автоматически увеличивать его с помощью «х» в моем коде? Таким образом, в следующем цикле он должен быть «A11».

Заранее спасибо.

Answer 1

For x = 0 To EleXML.ChildNodes.Length - 1  
     Range("A10").offset(x,0) = EleXML.ChildNodes.Item(x).getAttribute("aa") 
     Range("A10").offset(x,0) = EleXML.ChildNodes.Item(x).getAttribute("bb") 
     Range("A10").offset(x,0) = EleXML.ChildNodes.Item(x).getAttribute("cc") 
Next x 

я почти всегда использую Offset в этих ситуациях (documentation), потому что это много, много, гораздо более ясно, чем пытаться создать вручную диапазон строк.

Это делает вещи гораздо более ясно, когда вы переборе и есть что-то вроде

myRange.offset(rowOffset, colOffset) 

, чем почти во всех альтернатив (например, другой ответ, или тех, кто писал в комментариях).

Вы также можете изучить синтаксис Cells(row, col).

Answer 2

Очень просто:

For x = 0 To EleXML.ChildNodes.Length - 1  
    Range("A" & (10 + x)) = EleXML.ChildNodes.Item(x).getAttribute("aa") 
    Range("B" & (10 + x)) = EleXML.ChildNodes.Item(x).getAttribute("bb") 
    Range("C" & (10 + x)) = EleXML.ChildNodes.Item(x).getAttribute("cc") 
Next x