简化R1C1代码

Question

如何简化下面的代码？我想在可能的地方添加变量并允许循环。

'3 
Sheets("Sheet1").Cells(1, 5) = Sheets("Sheet1").Cells(1, 1) 
Sheets("Sheet1").Cells(2, 5) = Sheets("Sheet1").Cells(1, 2) 
Sheets("Sheet1").Cells(3, 5) = Sheets("Sheet1").Cells(1, 3) 

Sheets("Sheet1").Cells(1, 6) = Sheets("Sheet1").Cells(1, 1) 
Sheets("Sheet1").Cells(2, 6) = Sheets("Sheet1").Cells(2, 2) 
Sheets("Sheet1").Cells(3, 6) = Sheets("Sheet1").Cells(2, 3) 

Sheets("Sheet1").Cells(1, 7) = Sheets("Sheet1").Cells(1, 1) 
Sheets("Sheet1").Cells(2, 7) = Sheets("Sheet1").Cells(3, 2) 
Sheets("Sheet1").Cells(3, 7) = Sheets("Sheet1").Cells(3, 3) 

'2 
Sheets("Sheet1").Cells(1, 8) = Sheets("Sheet1").Cells(2, 1) 
Sheets("Sheet1").Cells(2, 8) = Sheets("Sheet1").Cells(2, 2) 
Sheets("Sheet1").Cells(3, 8) = Sheets("Sheet1").Cells(2, 3) 

Sheets("Sheet1").Cells(1, 9) = Sheets("Sheet1").Cells(2, 1) 
Sheets("Sheet1").Cells(2, 9) = Sheets("Sheet1").Cells(3, 2) 
Sheets("Sheet1").Cells(3, 9) = Sheets("Sheet1").Cells(3, 3) 

'1 
Sheets("Sheet1").Cells(1, 10) = Sheets("Sheet1").Cells(3, 1) 
Sheets("Sheet1").Cells(2, 10) = Sheets("Sheet1").Cells(3, 2) 
Sheets("Sheet1").Cells(3, 10) = Sheets("Sheet1").Cells(3, 3) 

谢谢。

Answer 1

一开始，你可以使用：

With Sheets("Sheet1") 
    .cells(x,y) = .cells(a,b) 
    ... 
End With 

使用“为...下一步”循环您的行和列索引应该是相当简单的。