Заполнение ряда клеток одним предложением

[j.O.]

Всем Привет.

Не подскажете как в данном коде (при заполнении WORD-таблици)...:


Call CompanyQueryWithPositions(intValue(), 290)
'Filling values for Earnings - Sales
With ActiveDocument.Tables(6)
.Cell(2, 2).Range.InsertAfter intValue(0)
.Cell(2, 3).Range.InsertAfter intValue(1)
.Cell(2, 4).Range.InsertAfter intValue(2)
.Cell(2, 5).Range.InsertAfter intValue(3)
.Cell(2, 6).Range.InsertAfter intValue(4)
.Cell(2, 7).Range.InsertAfter intValue(5)
End With


...эту часть кода превратить в один ряд? :


.Cell(2, 2).Range.InsertAfter intValue(0)
.Cell(2, 3).Range.InsertAfter intValue(1)
.Cell(2, 4).Range.InsertAfter intValue(2)
.Cell(2, 5).Range.InsertAfter intValue(3)
.Cell(2, 6).Range.InsertAfter intValue(4)
.Cell(2, 7).Range.InsertAfter intValue(5)


С Уважением

[alibek]

Код: Выделить всё

For I = 2 To 7
  .Cell(2, I).Range.InsertAfter intValue(I-2)
Next I

Код: Выделить всё

For I = 1 To 6
  .Cell(2, I+1).Range.InsertAfter intValue(Choose(I, 0,1,2,3,4,5))
Next I

[j.O.]

Спасибо alibek!

Ты мне очень сильно помог!