如何使用VBA将范围内的值从一张纸复制到另一张纸上的预定义订单？

Question

I am trying to copy the values in a specific range from one sheet to another. While pasting the values to the new sheet, there should be a predefined order in which the values are pasted.

---

I have created the program, but there comes an error in definition of For loop. Please note that in this example Num_Tacksta = 2, m = 9 (These two are variables).

Sub New_Try(m)

Dim n, i, j, x, k, a, rowinres, Num_Tacksta, Num_TackMul As Variant
Num_Tacksta = Sheets("ALLO").Range("E4").Value
Num_TackMul = (Sheets("ALLO").Range("E4").Value) * 2
x = Sheets("ALLO").Range("E4").Value


For rowinres = 2 To Num_Tacksta Step 1
    For i = 2 To Num_TackMul Step 2
        Sheets("Final").Range("A" & rowinres &, ",M" & rowinres).Copy Destination:=Sheets("Results").Range("A" & i)
        rowinres = rowinres + 1
    Next i

    For j = 3 To Num_TackMul Step 2
        Sheets("Dummy_Result").Range("A" & rowinres &, ",M" & rowinres).Copy Destination:=Sheets("Results").Range("A" & j)
        rowinres = rowinres + 1
    Next j

    For k = Num_TackMul + 1 To m Step 1
        Sheets("Dummy_Result").Range("A" & rowinres &, ",M" & rowinres).Copy Destination:=Sheets("Results").Range("A" & k)
        rowinres = rowinres + 1
    Next k

Next rowinres


End Sub

To my basic Knowledge in VBA, I think the problem is in this Sheets("Dummy_Result").Range("A:M" & rowinres).Copy Destination:=Sheets("Results").Range("A" & j) line. I would like to also ask if there is any simple method available.

I am new to programming and also to Stack Overflow. Helping me in this would be really helpful! I thank you guys in advance.

Answer 1

Try colon instead of comma in your copy range:

Sheets("Results").Range("A" & rowinres & ":M" & rowinres).Copy Destination:=Sheets("Final").Range("A" & i)

A comma is used in functions such as SUM() but a colon is used to specify a range.