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作為工作表引用來減少打字的需要。