AC giúp em tối ưu VBA với ạ (8 người xem)

[Bạn Đoản]

Em có sheet1 để hoàn thành bảng dữ liệu, em nhờ ac xem giúp em mã VBA Botton " Xóa dữ liệu". Em muốn khi chạy giữ nguyên định dạnh kẻ ô như trong ảnh em gửi ạ, codel em đang làm là kiểu xóa dòng, nên dùng nhiều sẽ bị mất

 

[Trần Văn Bình]

Bạn thử dùng sh.Rows("13:" & lr).ClearContents thử xem

 

[le_vis]

Em có sheet1 để hoàn thành bảng dữ liệu, em nhờ ac xem giúp em mã VBA Botton " Xóa dữ liệu". Em muốn khi chạy giữ nguyên định dạnh kẻ ô như trong ảnh em gửi ạ, codel em đang làm là kiểu xóa dòng, nên dùng nhiều sẽ bị mấtView attachment 311315

Chỉ thực hiện xoá dữ liệu thì đặt đoạn code dưới đây vào module2 để thực hiện cho Sheet21
Sub Xoa_BangPhanTic()
Range("A13:V20").Select
Selection.ClearContents
Range("A13").Select
End Sub