행의 순서 뒤집기

Question

선택한 데이터 행의 순서를 반대로하는 배열 기능을 만들려고합니다.

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