Home |
Search |
Today's Posts |
#2
![]() |
|||
|
|||
![]()
Hi People, Good Evening.
This question was solved by the gentle Isabelle. Thanks again. The answer: ------------------------------------------------------------- Sub test() Dim i As Integer, n1 As Integer, n2 As Integer n1 = 1 For i = 1 To 3000 Step 3 n2 = n2 + 1 With Sheets("Sheet2") Sheets("Sheet1").Range("A" & n1).Copy .Range(.Cells(i, 1), .Cells(i + 2, 1)) Sheets("Sheet1").Range("B" & n2).Copy .Range(.Cells(i, 2), .Cells(i + 2, 2)) Sheets("Sheet1").Range("C1:C3").Copy .Range(.Cells(i, 3), .Cells(i + 2, 3)) Application.CutCopyMode = False End With If n2 = 20 Then n1 = n1 + 1: n2 = 0 Next End Sub ------------------------------------------------------------- Topic can be CLOSED. Quote:
__________________
I hope it can help you. Best regards, Marcilio Lobão --------------------------- Belo Horizonte, Brazil |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Combining Columns | New Users to Excel | |||
Combining Text from 2 Columns into 1 then Deleting the 2 Columns | Excel Worksheet Functions | |||
Combining columns????? | Excel Worksheet Functions | |||
Combining columns | Excel Discussion (Misc queries) | |||
Combining columns? | Excel Worksheet Functions |