code tự động chuyển hàng lên hàng trên (1 người xem)

[minhtriga]

Mọi người giải thích giùm em code dưới đây vs ạ.Em xin chân thành cám ơn
Sub Button2_Click()
Dim i As Integer, Rng As Range
Set Rng = Sheet1.Range("A2:A" & Sheet1.Range("A65535").End(3).Row)
For i = Rng.Rows.Count To 1 Step -1
Sheet1.Cells(i + 1, 1).Formula = "=ROW()-1"
If IsEmpty(Sheet1.Cells(i + 1, 2)) Then
Sheet1.Cells(i + 1, 2).EntireRow.Delete
End If
Next i
End Sub

 

[leonguyenz]

Mọi người giải thích giùm em code dưới đây vs ạ.Em xin chân thành cám ơn

Tôi có giải thích code trong Hộp tin của bạn, bạn xem và nếu có thắc mắc thì gửi tiếp lên đây.
Trong code cho chạy vòng lặp với biến i từ dòng có dữ liệu dưới cùng chạy lên trên (Step -1), nếu gặp ô rỗng trong cột A thì thực thi lệnh Delete. Cứ thế cho đến khi biến i = 1.

 

[nghiaphuc]

Về việc giải thích thì có lẽ bạn đã rõ. Tôi chỉ bàn thêm một chút về giải thuật. Tôi thấy cách duyệt tuần tự từng hàng để gán số thứ tự và xóa dòng là cách làm khá nhàm chán. Thêm nữa, đã dùng code mà còn dùng công thức để đánh STT là không hay. Với bài toán này, tôi sẽ làm 2 bước:
1. Sử dụng SpecialCells để xóa những dòng bị trống ở cột B.
2. Sử dụng Evaluate để đánh STT.

Như vậy, về cơ bản, code chỉ cần 2 dòng lệnh. Tiếc là tôi đang online bằng điện thoại nên không tiện viết code.

 

[nghiaphuc]

Tôi có giải thích code trong Hộp tin của bạn, bạn xem và nếu có thắc mắc thì gửi tiếp lên đây.
Trong code cho chạy vòng lặp với biến i từ dòng có dữ liệu dưới cùng chạy lên trên (Step -1), nếu gặp ô rỗng trong cột A thì thực thi lệnh Delete. Cứ thế cho đến khi biến i = 1.

Bạn có chút nhầm lẫn, phải là "gặp ô rỗng trong cột B" mới đúng.

 

[minhtriga]

Tôi có giải thích code trong Hộp tin của bạn, bạn xem và nếu có thắc mắc thì gửi tiếp lên đây.
Trong code cho chạy vòng lặp với biến i từ dòng có dữ liệu dưới cùng chạy lên trên (Step -1), nếu gặp ô rỗng trong cột A thì thực thi lệnh Delete. Cứ thế cho đến khi biến i = 1.

Anh ơi,sao khi em thay đổi từ A2 thành A10 thì trong excel báo lỗi 1004, em có gửi mail bài của em cho anh.Mong anh xem giúp.Cám ơn anh nhiều !!

 

[nghiaphuc]

Tôi có giải thích code trong Hộp tin của bạn, bạn xem và nếu có thắc mắc thì gửi tiếp lên đây.

Anh ơi,sao khi em thay đổi từ A2 thành A10 thì trong excel báo lỗi 1004, em có gửi mail bài của em cho anh.Mong anh xem giúp.Cám ơn anh nhiều !!

Một người thì gửi câu trả lời vào hộp tin, một người thì gửi thắc mắc vào email. Vậy thì đưa vấn đề lên GPE để làm cái gì nhỉ?!

 

[VetMini]

Một người thì gửi câu trả lời vào hộp tin, một người thì gửi thắc mắc vào email. Vậy thì đưa vấn đề lên GPE để làm cái gì nhỉ?!

Đưa địa chỉ hộp tin và email lên đây. Tôi sẽ cho biết để làm cái gì.