Hỏi về cách đổi ngược dữ liệu từ trái sang phải

[hoclaptrinh]

cho em xin công thức đổi ngược dữ liệu từ trái sang phải và phải sang trái với
VD: A1, A2, A3
B1, B2, B3
Đổi thành: A3, A2, A1
B3, B2, B1

 

[gtri]

cho em xin công thức đổi ngược dữ liệu từ trái sang phải và phải sang trái với
VD: A1, A2, A3
B1, B2, B3
Đổi thành: A3, A2, A1
B3, B2, B1

Có file đính kèm sẽ cụ thể và nhanh hơn

 

[phihndhsp]

cho em xin công thức đổi ngược dữ liệu từ trái sang phải và phải sang trái với
VD: A1, A2, A3
B1, B2, B3
Đổi thành: A3, A2, A1
B3, B2, B1

cái này đơn giản thôi
B1: thêm 1 hàng số thứ tự ở đầu hoặc ở cuối
B2: Sắp xếp từ left sang right là ok

 

[hoclaptrinh]

file đính kèm đây, kết quả ở sheet KQ nguồn từ sheet CN

 

[hoclaptrinh]

cái này đơn giản thôi
B1: thêm 1 hàng số thứ tự ở đầu hoặc ở cuối
B2: Sắp xếp từ left sang right là ok

Anh hướng dẫn cách sắp xếp em với

 

[phulien1902]

Anh hướng dẫn cách sắp xếp em với

Bạn dùng Code sau để áp dụng cho bài toán của bạn nhé

Sub hoclaptrinh()
Dim i As Integer
Dim j As Integer
    Set Rng = Selection
    R = Selection.Rows.Count
    C = Selection.Columns.Count
    ReDim Arr(R, C)
    
    For j = 1 To C
        For i = 1 To R
            Arr(i, j) = Rng.Cells(i, j)
            a = Arr(i, j)
        Next
    Next

    j = C
    For a = 1 To C
        For i = 1 To R
            Rng.Cells(i, j) = Arr(i, a)
        Next
        j = j - 1
    Next
Set Rng = Nothing
End Sub

Với File của bạn, bạn chọn vùng muốn chuyển đổi và chạy Code.
Vậy thôi!

 

[haonlh]

Tôi có sửa hàng 5 để kiểm tra kết quả

Công thức có trong từ ô T2 là

=OFFSET($A2,,COUNT($A2:$Q2)-COLUMN()+19)

Chép sang ngang và xuống cho đủ. Những ô không có kết quả cho lỗi #REF

Chọn cả vùng kết quả và chọn các ô lỗi (gõ Ctrl G, chọn Speacial...)
Gõ Delete để xoá đi.

Xem file đính kèm

Tôi có sửa hàng 5 để kiểm tra kết quả. Và các hàng 4, 7, 10... cũng đảo ngược.