đảo ngược vị trí các dòng trong bảng dữ liệu (1 người xem)

[vuanhxv]

mình có một bảng dữ liệu: A1 : A10 (vị trí 1 : 10 có thể thay đổi)
giờ mình muốn đảo ngược vị trí của các dòng trong bảng đó:
A1 = A10, A2 = A9,..., A10 = A1
(chỉ dùng tổ hợp phím tắt thôi)
mày mò mãi mà chưa có cách nào cả, bạn nào giúp mình với.
mình cảm ơn rất nhiều

 

[vuanhxv]

Sub test()'
' test Macro
' Keyboard Shortcut: Ctrl+Shift+V
'
    Dim i As Integer
    Dim n As Integer
    Dim Bang1 As Range
    Dim Bang2 As Range
    Set Bang1 = Selection
    Set Bang2 = Selection
    n = UBound(Bang1.Value, 1)
    For i = 1 To n
        Bang2(i, 1) = Bang1(n - i + 1, 1)
    Next i
    Bang2.Copy
    ActiveSheet.Paste
End Sub

Bạn nào xem giúp mình với, không hiểu sao kết quả lại thành 1 bảng đối xứng mới khổ chứ
help me please!!!

 

[ndu96081631]

Sub test()'
' test Macro
' Keyboard Shortcut: Ctrl+Shift+V
'
    Dim i As Integer
    Dim n As Integer
    Dim Bang1 As Range
    Dim Bang2 As Range
    Set Bang1 = Selection
    Set Bang2 = Selection
    n = UBound(Bang1.Value, 1)
    For i = 1 To n
        Bang2(i, 1) = Bang1(n - i + 1, 1)
    Next i
    Bang2.Copy
    ActiveSheet.Paste
End Sub

Bạn nào xem giúp mình với, không hiểu sao kết quả lại thành 1 bảng đối xứng mới khổ chứ
help me please!!!

Sửa lại chút thôi:

Sub test() '
' test Macro
' Keyboard Shortcut: Ctrl+Shift+V
'
    Dim i As Long, j As Long, n As Long
    Dim Bang1 As Range
    Dim Bang2()
    Set Bang1 = Selection
    n = UBound(Bang1.Value, 1)
    ReDim Bang2(1 To n, 1 To 1)
    For i = n To 1 Step -1
      j = j + 1
      Bang2(j, 1) = Bang1(i, 1)
    Next i
    Bang1.Value = Bang2
End Sub