Cần code tạo nút ấn Xóa dữ liệu từ hàng 2 (Row 2) cho đến hàng cuối cùng

[khicon8683]

Cả nhà giúp em viết code tạo nút ấn Xóa dữ liệu từ hàng 2 (Row 2) cho đến hàng cuối cùng.
Em cảm ơn cả nhà.

 

[ExcelQN]

Cả nhà giúp em viết code tạo nút ấn Xóa dữ liệu từ hàng 2 (Row 2) cho đến hàng cuối cùng.
Em cảm ơn cả nhà.

Hàng cuối cùng được hiểu thế nào: hàng cuối cùng của bảng tính hay hàng cuối cùng của vùng dữ liệu hả bạn?

 

[hanhpptc]

Cả nhà giúp em viết code tạo nút ấn Xóa dữ liệu từ hàng 2 (Row 2) cho đến hàng cuối cùng.
Em cảm ơn cả nhà.

Chắc là dòng cuối cùng của vùng dữ liệu đây!
Giả sử dữ liệu của bạn tại Sheet2, Dòng tiêu đề là dòng 1 (luôn hiện hữu).
Vùng dữ liệu có 5 cột từ cột A đến E chẳng hạn
Code tạm thời như sau:
Sub Xoa()
I = Sheet2.Range("A65000").End(xlUp).Row
If I<2 then
Msgbox "Khong co du lieu de xoa"
Exit sub
Else
Sheet2.Range("A2:E" & I) .ClearContents
End If
End Sub

 

[khicon8683]

Hàng cuối cùng của Sheet đó

 

[khicon8683]

cảm ơn bạn, mình làm được rồi nhưng hình như dòng:
Sheet2.Range("A2:E" & I) .ClearContents
thừa 1 dấu cách sau dấu ) thì phải.

 

[hanhpptc]

Hàng cuối cùng của Sheet đó

Vậy thì quá đơn giản
Với office 2003 về trước thì:
Sub Xoa()
Sheet2.Range("A2:IV65536" ).ClearContents
End Sub

 

[hanhpptc]

cảm ơn bạn, mình làm được rồi nhưng hình như dòng:
Sheet2.Range("A2:E" & I) .ClearContents
thừa 1 dấu cách sau dấu ) thì phải.

Vì mình gõ bằng tay trực tiếp trên trả lời cho nhanh luôn chứ chưa test trên máy nên vậy (nhưng không sao vì trong VBA sẽ tự động điều chỉnh cú pháp mà)

 

[khicon8683]

Cảm ơn bạn nhé, nhưng nếu file excel của mình muốn mở ở cả 2003 và 2007 thì đoạn code:
Sub Xoa()
Sheet2.Range("A2:IV65536" ).ClearContents
End Sub
có áp dụng được không bạn.

 

[hanhpptc]

Cảm ơn bạn nhé, nhưng nếu file excel của mình muốn mở ở cả 2003 và 2007 thì đoạn code:
Sub Xoa()
Sheet2.Range("A2:IV65536" ).ClearContents
End Sub
có áp dụng được không bạn.

Vẫn áp dụng được. Riêng office 2007 về sau bạn lưu ý là nó có trên 1 triệu dòng/sheet lận. Chỉnh sửa code cho phù hợp là được

 

[khicon8683]

Vẫn áp dụng được. Riêng office 2007 về sau bạn lưu ý là nó có trên 1 triệu dòng/sheet lận. Chỉnh sửa code cho phù hợp là được

Mình cảm ơn bạn rất nhiều, vì mình không biết viết code nên mình đăng ký tại www.giaiphapexcel.com để học hỏi. Bạn có thể giúp mình viết 1 code nữa được không? Cho dù bạn có viết được hay không thì mình một lần nữa vẫn cảm ơn bạn. Chúc bạn và gia đình luôn hạnh phúc.

 

[hanhpptc]

Mình cảm ơn bạn rất nhiều, vì mình không biết viết code nên mình đăng ký tại www.giaiphapexcel.com để học hỏi. Bạn có thể giúp mình viết 1 code nữa được không? Cho dù bạn có viết được hay không thì mình một lần nữa vẫn cảm ơn bạn. Chúc bạn và gia đình luôn hạnh phúc.

Bạn cứ mạnh dạn trao đổi, giúp được thì mình giúp, còn không thì mọi người trên diễn đàn sẽ giúp. Ngày xưa mình cũng vậy, đừng ngại

 

[khicon8683]

Bạn cho mình hỏi 1 chút về code, nếu trong Sheet1 có 2 hàng (Row) bất kỳ chứa dữ liệu giống nhau thì dữ liệu ở 2 hàng đó sẽ hiện lên màu đỏ để báo cho người dùng được biết là đã nhập dữ liệu 2 lần. Mình cảm ơn!

 

[Lê Duy Thương]

Bạn cho mình hỏi 1 chút về code, nếu trong Sheet1 có 2 hàng (Row) bất kỳ chứa dữ liệu giống nhau thì dữ liệu ở 2 hàng đó sẽ hiện lên màu đỏ để báo cho người dùng được biết là đã nhập dữ liệu 2 lần. Mình cảm ơn!

cần gì phải dùng code mới biết
thử làm theo video xem được không nhé
chú ý là excel 2007 trở lên nhé
[video=youtube_share;DICB4-Y-_dY]http://youtu.be/DICB4-Y-_dY[/video]

 

[sealand]

Cả nhà giúp em viết code tạo nút ấn Xóa dữ liệu từ hàng 2 (Row 2) cho đến hàng cuối cùng.
Em cảm ơn cả nhà.

Với yêu cầu này thì làm như sau có lẽ gọn

Sub Xoa()
Sheet2.[A1].CurrentRegion.Offset(1).clear
End sub