vba - vba复制粘贴循环

Question

我想用循环复制粘贴数据，这可能很简单，但是我找不到正确的方法，我想用循环解决以下范围直到第 13944 行：

Range("A40:I52").Cut Range("J27")
Range("A40+26:I52+26").Cut Range("J27+26")

Range("A92:I104").Cut Range("J79")
Range("A118:I130").Cut Range("J105")
Range("A144:I156").Cut Range("J131")
Range("A170:I182").Cut Range("J157")
Range("A196:I208").Cut Range("J183")
Range("A222:I234").Cut Range("J209")
'+26 in all cases
'till 13944

Answer 1

Dim i as long

for i=79 to 13944 step 26
    Range(cells(i+13,1),cells(i+25,9)).cut cells(i,10)
next i

编辑：

在原始问题和下面的附加问题中，关键是找到一个更简单的算法来构建运行索引。在第二个问题中，我们需要 2 个单独的索引或 1 个具有更多计算的索引，例如

2个指数：

Dim i as long, k as long
Dim shSrc as worksheet, shTrg as worksheet

Set shSrc=Worksheets("CME")
Set shTrg=Worksheets("RME")

k=2
For i=2 to ??? step 10
    shSrc.range(cells(i,10), cells(i+8,10)).copy 
    shTrg.cells(k,2).PasteSpecial Transpose:=True 
    k=k+1
next

1个索引：

for i=2 to ???
    shSrc.range(cells(i+(i-2)*10,10), cells(i+(i-2)*10+8,10)).copy 
    shTrg.cells(i,2).PasteSpecial Transpose:=True 
next

（我认为最好使用 2 个索引 :)）请注意我是如何通过使用 vars 来减少输入的需要的。