翻转一排的顺序

我试图创build一个数组函数，将颠倒所选数据的行的顺序。

Function Flip(R) Dim n as variant Dim i as long ReDim A(1, n) n = R.Rows.Columns.Count For i = 1 To n A(1, n - 1) = R.Cells(1, n) Next i Flip= A End Function 

这样做的目标是能够颠倒一行单元格的顺序。 例如：如果单元格的顺序是20,30,40,120，那么使用这个数组函数应该返回值120,40,30,20。

我知道我有问题如何调用n值重新排列数组顺序。 我也试过把它做成“A（n，1）”，但是这也行不通。

Answer 1

您在使用n之前已经为其分配了一个值。 另外，数组指针并不完全正确。 这应该做到这一点：

 Function Flip(R As Range) Dim n As Variant Dim i As Long n = R.Cells.Count ReDim A(1 To 1, 1 To n) For i = 1 To n A(1, 1 + n - i) = R.Cells(1, i).Value Next i Flip = A End Function