Logo 
Search:

MS Office Answers

Ask Question   UnAnswered
Home » Forum » MS Office       RSS Feeds
  Question Asked By: Seth Ford   on Nov 24 In MS Office Category.

  
Question Answered By: Vidhya Iyer   on Nov 24

Try something like:

Dim vData(1 To 100, 1 To 3)
iRow = 0
For x = 1 To 10: For y = 1 To 10
iRow = iRow + 1
vData(iRow, 1) = x
vData(iRow, 2) = y
vData(iRow, 3) = x + y
Next y: Next x
Range("A1:C100") = vData

Share: 

 
 


Tagged: