Staal
02-04-2010, 12:09 AM
Hi,
I have been struggling finding an easier way to write the following code:
With xlBook.Worksheets("Sheet1")
Range("A1").Select
For i = 1 To 8
ActiveCell.Value = i
wdTable.Cell(i, 1).Range.Text = .Cells(1, i).Text
wdTable.Cell(i, 2).Range.Text = .Cells(2, i).Text
wdTable.Cell(i + 9, 1).Range.Text = .Cells(1, i).Text
wdTable.Cell(i + 9, 2).Range.Text = .Cells(2 + 1, i).Text
wdTable.Cell(i + (2 * 9), 1).Range.Text = .Cells(1, i).Text
wdTable.Cell(i + (2 * 9), 2).Range.Text = .Cells(2 + 2, i).Text
wdTable.Cell(i + (3 * 9), 1).Range.Text = .Cells(1, i).Text
wdTable.Cell(i + (3 * 9), 2).Range.Text = .Cells(2 + 3, i).Text
wdTable.Cell(i + (4 * 9), 1).Range.Text = .Cells(1, i).Text
wdTable.Cell(i + (4 * 9), 2).Range.Text = .Cells(2 + 4, i).Text
wdTable.Cell(i + (5 * 9), 1).Range.Text = .Cells(1, i).Text
wdTable.Cell(i + (5 * 9), 2).Range.Text = .Cells(2 + 5, i).Text
wdTable.Cell(i + (6 * 9), 1).Range.Text = .Cells(1, i).Text
wdTable.Cell(i + (6 * 9), 2).Range.Text = .Cells(2 + 6, i).Text
wdTable.Cell(i + (7 * 9), 1).Range.Text = .Cells(1, i).Text
wdTable.Cell(i + (7 * 9), 2).Range.Text = .Cells(2 + 7, i).Text
wdTable.Cell(i + (8 * 9), 1).Range.Text = .Cells(1, i).Text
wdTable.Cell(i + (8 * 9), 2).Range.Text = .Cells(2 + 8, i).Text
wdTable.Cell(i + (9 * 9), 1).Range.Text = .Cells(1, i).Text
wdTable.Cell(i + (9 * 9), 2).Range.Text = .Cells(2 + 9, i).Text
wdTable.Cell(i + (10 * 9), 1).Range.Text = .Cells(1, i).Text
wdTable.Cell(i + (10 * 9), 2).Range.Text = .Cells(2 + 10, i).Text
Any help will be highly appreciated,
Best regards,
Soren
I have been struggling finding an easier way to write the following code:
With xlBook.Worksheets("Sheet1")
Range("A1").Select
For i = 1 To 8
ActiveCell.Value = i
wdTable.Cell(i, 1).Range.Text = .Cells(1, i).Text
wdTable.Cell(i, 2).Range.Text = .Cells(2, i).Text
wdTable.Cell(i + 9, 1).Range.Text = .Cells(1, i).Text
wdTable.Cell(i + 9, 2).Range.Text = .Cells(2 + 1, i).Text
wdTable.Cell(i + (2 * 9), 1).Range.Text = .Cells(1, i).Text
wdTable.Cell(i + (2 * 9), 2).Range.Text = .Cells(2 + 2, i).Text
wdTable.Cell(i + (3 * 9), 1).Range.Text = .Cells(1, i).Text
wdTable.Cell(i + (3 * 9), 2).Range.Text = .Cells(2 + 3, i).Text
wdTable.Cell(i + (4 * 9), 1).Range.Text = .Cells(1, i).Text
wdTable.Cell(i + (4 * 9), 2).Range.Text = .Cells(2 + 4, i).Text
wdTable.Cell(i + (5 * 9), 1).Range.Text = .Cells(1, i).Text
wdTable.Cell(i + (5 * 9), 2).Range.Text = .Cells(2 + 5, i).Text
wdTable.Cell(i + (6 * 9), 1).Range.Text = .Cells(1, i).Text
wdTable.Cell(i + (6 * 9), 2).Range.Text = .Cells(2 + 6, i).Text
wdTable.Cell(i + (7 * 9), 1).Range.Text = .Cells(1, i).Text
wdTable.Cell(i + (7 * 9), 2).Range.Text = .Cells(2 + 7, i).Text
wdTable.Cell(i + (8 * 9), 1).Range.Text = .Cells(1, i).Text
wdTable.Cell(i + (8 * 9), 2).Range.Text = .Cells(2 + 8, i).Text
wdTable.Cell(i + (9 * 9), 1).Range.Text = .Cells(1, i).Text
wdTable.Cell(i + (9 * 9), 2).Range.Text = .Cells(2 + 9, i).Text
wdTable.Cell(i + (10 * 9), 1).Range.Text = .Cells(1, i).Text
wdTable.Cell(i + (10 * 9), 2).Range.Text = .Cells(2 + 10, i).Text
Any help will be highly appreciated,
Best regards,
Soren