Code VBA đảo ngược dữ liệu 1 cột

Nhân tiện đây cho em hỏi chút về Excel:
Em có cột số liệu,bây giờ em muốn các số liệu xếp ngược lại.Tức là số dưới lên đầu,số thứ 2 từ dưới lên về thứ 2 từ trên xuống,số thứ 3 từ dưới lên về thứ 3 từ trên xuống,...cuối cùng số đầu về cuối cùng.
Vậy cần làm thế nào ạ.

dinhvanvoi gửi lúc 18/4/2014 21:23

                               
Đăng nhập/Đăng ký mở rộng

Nhân tiện đây cho em hỏi chút về Excel:
Em có cột số liệu,bây giờ em muốn các số li ...

Nhanh nhất là sort dữ liệu theo cột số thứ tự với điều kiện giảm dần.

Ý cháu là thế này chú ạ.

Đăng nhập/Đăng ký mở rộng

dinhvanvoi gửi lúc 18/4/2014 22:20

                               
Đăng nhập/Đăng ký mở rộng

Ý cháu là thế này chú ạ.

Của Bạn đây!

[Visual Basic] 纯文本查看 复制代码

Sub DaoCotDL()
    Dim DongCuoi As Integer, d0 As Integer
    Range("B4").Select
    DongCuoi = Range("B" & Rows.Count).End(xlUp).Row
    'Tim buoc di chuyen xa nhat cua DL
    d0 = DongCuoi - 4
    'Tao vong lap lay DL va dao
    For i = d0 To 0 Step -1
        Range("B4").Offset(i, 2).Value = ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
    Next i
End Sub

Trong file đính kèm, Nhấn nút "Đão Dữ Liệu" để thấy kết quả.
link: Dao Du Lieu.xlsm (17.77 KB, Lượt tải về: 2061)

4/5/2014 15:07 Tải lên

Click to download

E ấn nút Thank là ổn rồi.  Cái A cần (cũng như Fubi cần) là nhìn code + phân tích ====> hiểu đến đâu?
Tại sao đến hôm nay A mới trả lời bài viết này? Vì A sợ sẽ "gây rác" cho Lớp VBA (cái chưa nên biết thì không thể cho biết ngay). Đến hôm nay sau khi A Fubi hướng dẫn hết bài 5 thì mình mới mạnh dạn viết trả lời đầy đủ; qua vấn đề này các Bạn sẽ hiểu rõ hơn về địa chỉ tương đối (tuyệt đối).
Cố gắng đọc từng Dòng code, các Bạn sẽ hiễu tường tận hơn.
Trong bài này mình ví dụ ô Dữ liệu đầu tiên là : B4. Mục tiêu của đề bài là đão khối dữ liệu sang một vị trí khác (ví dụ bắt đầu từ ô D4).... Viết câu lệnh để giải quyết một vấn đề thì rất dễ (xử lý nhanh hay chậm chưa cần biết) nhưng câu lệnh xử lý nhanh gọn thì phụ thuộc vào cách xử lý vấn đề (giải thuật). Thôi, không nói nữa! Mong các Bạn hiễu ý của A Fubi khi đưa Bài 4 lên, sau đó miễn cưỡng đưa tiếp Bài 5.
Lời thật hay mất lòng; mong các Bạn cố gắng suy nghĩ; cái lợi cuối cùng luôn thuộc về chính các Bạn đó!

Bạn có thể làm thế này để đảo trực tiếp trên các cột nhé!

[Visual Basic] 纯文本查看 复制代码

Sub daodulieu1()
    Dim i As Variant, x As Variant, j As Variant, a As Variant, b As Variant
    For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
        x = 0
        For i = 1 To Cells(Rows.Count, j).End(xlUp).Row
            If x >= Cells(Rows.Count, j).End(xlUp).Row / 2 Then Exit For
            x = x + 1
            a = Cells(i, j).Value
            b = Cells(Cells(Rows.Count, j).End(xlUp).Row - i + 1, j).Value
            Cells(i, j).Value = b
            Cells(Cells(Rows.Count, j).End(xlUp).Row - i + 1, j).Value = a
        Next i
    Next j
End Sub

Bạn cần thì dùng chứ nếu chưa hiểu hết thì chưa cần tìm hiểu luôn đâu, như anh TranHoe đã nói ở trên rồi, ta cứ tìm hiểu từ từ thôi, đừng nhảy cóc làm chi. Việc gì cũng có trình tự của nó, không nên nôn nóng làm chi. Từ từ rồi khoai sẽ nhừ hee!

Rất hay!

Tuy nhiên có 1 NGUYÊN TẮC chia sẻ cùng các bạn là: CÁI GÌ EXCELCÓ SẴN  LÀM ĐƯỢC NHANH GỌN thì KHÔNG NÊN DÙNG VBA.

Ví như đề bài nêu ra, cách giải quyết excel có sẵn cực kỳ đơn giản:

- Dùng hàm sẵn có nhập vào 1 ô của cột bên cạnh cột dữ liệu, sau đó copy xuống. Cách này có lợi thế là: khi dữ liệu cột gốc thay đổi thì cột bên đảo chiều tự động cập nhật dữ liệu mới tương ứng. Còn dùng VBA sẽ bất lợi: k tự động cập nhật dữ liệu được và xem ra mất công hơn.

* Xem đính kèm: DaoDulieucuaCot.xlsx (9.82 KB, Lượt tải về: 2149)

5/5/2014 02:33 Tải lên

Click to download

Ví dụ:
- B1: Dữ liệu gốc có tại Ô C4 đến C13.

- B2: Tại cột D, Ô D4 nhập công thức sau: =OFFSET($C$4;COUNTA($C$4:$C$13)-ROW(1:1);0)
Ý nghĩa hàm:
   + COUNTA($C$4:$C$13): đếm số Ô có chứa dữ liệu từ  C4 đến C13.
   + OFFSET($C$4; dòng, cột): cho biết giá trị của Ô cách ô $C$4 số dòng, số cột:
            > Số dòng: lấy kết quả từ hàm COUNTA.
            > Số cột: lấy kết quả từ hàm ROW.
   + ROW(1:1): trả về dòng của ô đầu tiên của vùng Ô/Ô.

- B3: Copy Ô D4 cho các Ô D5 đến D13.
==> Sẽ có kết quả đảo chiều như ý.
=> Thử sửa giá trị bất kỳ tại các Ô C4 đến C13 thì cột D tự động cập nhật dữ liệu tương ứng.


Thân ái!