Mục lục
Chương trình con sau đây sẽ xóa từng hàng trong một phạm vi mà giá trị trong Cột A bắt đầu bằng một đoạn văn bản được chỉ định:
| 12345678910111213 | Sub Delete_Rows (Dải dữ liệu dưới dạng phạm vi, văn bản dưới dạng chuỗi)Dim Row_Counter dưới dạng số nguyênĐối với Row_Counter = Data_range.Rows.Count đến 1 bước -1Nếu Data_range không có gì thìThoát SubKết thúc nếuNếu UCase (Left (Data_range.Cells (Row_Counter, 1) .Value, Len (Text))) = UCase (Text) ThìData_range.Cells (Row_Counter, 1) .EntireRow.DeleteKết thúc nếuRow_Counter tiếp theoKết thúc Sub |
Ví dụ: Delete_Rows (Trang tính (“Trang tính1”). Phạm vi (“A1: E23”, “Chó”) sẽ xóa tất cả các hàng trong phạm vi A1: E23 trong đó giá trị trong Cột A bắt đầu bằng từ “Chó”. Lưu ý sử dụng chữ hoa có nghĩa là các công thức là chữ INSENSITIVE tức là các ô bắt đầu bằng bất kỳ con chó nào trong số DOG, Dog, DoG hoặc dog đều sẽ bị xóa.
Cái này:
Sẽ trở thành:
