Nhờ xử lý nhanh việc đảo dữ liệu dòng (có thể ứng dụng mảng?)

[syquan]

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 vd: a1:a , a2: b, a3: c thì sẽ đảo thành a1:c , a2: b, a3: a.
Em dùng Sub DaoCotDL() tuy nhiên với dữ liệu vài chục dòng thì chạy rất chậm. Nhờ các anh chị sử dụng mảng để có thể xử lý nhanh hơn được không ah.

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

 

[tam888]

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 vd: a1:a , a2: b, a3: c thì sẽ đảo thành a1:c , a2: b, a3: a.
Em dùng Sub DaoCotDL() tuy nhiên với dữ liệu vài chục dòng thì chạy rất chậm. Nhờ các anh chị sử dụng mảng để có thể xử lý nhanh hơn được không ah.

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

Nếu thực dụng, thì viết code làm chi, làm cột phụ, nhập số thứ tự: 1 2 3 ...., rồi sắp xếp Z->A theo cột phụ này là xong

 

[befaint]

Dao

.
"Đảo ngược" không phải "Đão ngược"

 

[syquan]

Nếu thực dụng, thì viết code làm chi, làm cột phụ, nhập số thứ tự: 1 2 3 ...., rồi sắp xếp Z->A theo cột phụ này là xong

Vì sau khi lộn ngược lại thì copy dòng và thêm chu CP sau đó copy DL ở cột F

Bài đã được tự động gộp: 14/1/19

.
"Đảo ngược" không phải "Đão ngược"

Cảm ơn bạn nhiều!!!