Xóa dữ liệu trong các cột bằng button? (1 người xem)

[Biry]

Nhờ các bác giúp giùm, trong file excel thí dụ ta khi ta nhấn button thì dữ liệu trong cột C, E, G từ hàng thứ 3 trở xuống đều bị xóa. Mong các bác tạo giùm file như trên với ah. Chân thành cảm ơn trước.

 

[phulien1902]

Nhờ các bác giúp giùm, trong file excel thí dụ ta khi ta nhấn button thì dữ liệu trong cột C, E, G từ hàng thứ 3 trở xuống đều bị xóa. Mong các bác tạo giùm file như trên với ah. Chân thành cảm ơn trước.

Thử:

Sub test()
    Dim LR&
     LR = Range("G" & Rows.Count).End(xlUp).Row
     Range("C3:C" & LR).ClearContents
     Range("E3:E" & LR).ClearContents
     Range("G3:G" & LR).ClearContents
End Sub

Sub test2()
    Dim LR&
     LR = Range("G" & Rows.Count).End(xlUp).Row
     Union(Range("C3:C" & LR), Range("E3:E" & LR), Range("G3:G" & LR)).ClearContents
End Sub

Sub test3()
    Dim LR1&,LR2&,LR3&
     LR1 = Range("C" & Rows.Count).End(xlUp).Row
     LR2 = Range("E" & Rows.Count).End(xlUp).Row
     LR3 = Range("G" & Rows.Count).End(xlUp).Row
     Range("C3:C" & LR1).ClearContents
     Range("E3:E" & LR2).ClearContents
     Range("G3:G" & LR3).ClearContents
End Sub

 

[Biry]

Thử:

Sub test()
    Dim LR&
     LR = Range("G" & Rows.Count).End(xlUp).Row
     Range("C3:C" & LR).ClearContents
     Range("E3:E" & LR).ClearContents
     Range("G3:G" & LR).ClearContents
End Sub

Sub test2()
    Dim LR&
     LR = Range("G" & Rows.Count).End(xlUp).Row
     Union(Range("C3:C" & LR), Range("E3:E" & LR), Range("G3:G" & LR)).ClearContents
End Sub

Bác giúp tạo cho e cái nút trong file excel để hoạt động luôn với, cái này e không biết nên phiền bác. Cảm ơn bác nhiều.

 

[phulien1902]

Bác giúp tạo cho e cái nút trong file excel để hoạt động luôn với, cái này e không biết nên phiền bác. Cảm ơn bác nhiều.

Bạn xem File

 

[Cá ngừ F1]

Cẩn thận với code, không xóa bay hết dữ liệu.
Tốt nhất nên có File và mục đích rõ ràng

 

[Biry]

Cẩn thận với code, không xóa bay hết dữ liệu.
Tốt nhất nên có File và mục đích rõ ràng

File của mình thì cũng như file của bác kia thôi, các cột khác có dữ liệu, 3 cột cần xóa là dữ liệu gồm rất nhiều hàng nhập vào, dữ liệu này thường xuyên thay đổi nên mình muốn nhấn một cái là xóa hết liền, chứ xóa tay thì mất thời gian lắm. Bác có thể chỉ giúp lý do không? Thanks.

 

[SA_DQ]

Dù sao chăng nữa chủ bài đăng vẫn chưa nêu đủ TT (thông tin);
Cái TT còn thiếu ở đây là ở 3 cột cần xóa thì dòng cuối cùng có dữ liệu của mỗi cột có luôn như nhau hay không?
Nếu như nhau thì vấn đề đơn giản rồi;
Nếu không như nhau thì ta nên xác định dòng cuối có dữ liệu của cả CSDL
Xác định dòng cuối có dữ liệu của 1 trang tính chính xác nhất là fương thức Find("*", . . . )
Sau khi có dòng cuối rồi (như lRws) ta xóa thôi
Ví dụ Union(Range("C3:C" & lRws), Range("E3: E" & lRws), Range("G3:G" & lRws)).Value=""

Nếu không muốn cách này, ta có thể tạo vòng lặp mà xóa dữ liệu từ 3 cột í