轻松循环以重复转置公式

Question

我试图为需要转置的一列数据再次重复相同的公式。我有一个宏，它一次完成整个操作。我试图创建一个简单的循环，但是我不知道如何增加范围。

我尝试了Do while循环，但是递增部分没有运气

Range("D9:F9").Select
Selection.FormulaArray = "=TRANSPOSE(R[6]C[5]:R[8]C[5])"

所以这段代码做对了，但是我需要重复一下，但是下一次它应该是范围D10：F10，移调应该是R8 C5 R10 C5。我遇到的正是这种增量。

Answer 1

尝试一下：

 |  player_id     |       ranking       | 
 |     1          |         950         |
 |     2          |         850         |

我用??替换了转置函数的整数，我也不知道要应用什么逻辑。

Answer 2

感谢您的帮助。 我尝试使用您的代码，但无法使转置向下增加3个单元格。

我的代码如下

Dim i As Integer
For i = 2 To 4

Range("A" & i & ":C" & i).Select
Selection.FormulaArray = "=TRANSPOSE(R[2]C[4]:R[4]C[4])"


Next i

End Sub

，列出的数据如下：
1
2
3
4
5
6

，我想要这样：
1 2 3
4 5 6