Hướng dẫn how to delete multiple alternate rows in excel - cách xóa nhiều hàng xen kẽ trong excel
Xem video - Xóa mọi hàng khác trong Excel Show
Đôi khi bạn có thể có nhu cầu xóa mọi hàng khác (nghĩa là, các hàng thay thế) hoặc mỗi hàng thứ ba/thứ tư/thứ năm trong Excel. Một trường hợp sử dụng có thể là khi bạn có dữ liệu hàng tuần và bạn chỉ muốn dữ liệu trong vài tuần hoặc tuần lẻ. Một cái khác có thể là khi bạn nhận được một kết xuất dữ liệu từ cơ sở dữ liệu và tất cả các dữ liệu hữu ích chỉ ở mỗi hàng thứ hai hoặc thứ ba. Mặc dù bạn luôn có tùy chọn để chọn và xóa hàng thủ công, nhưng điều này không hiệu quả trong trường hợp bạn có một bộ dữ liệu lớn. Có nhiều cách tốt hơn để làm điều này. Trong hướng dẫn này, tôi sẽ chỉ cho bạn một vài cách để xóa mọi hàng khác trong Excel bằng kỹ thuật lọc đơn giản. Và nếu bạn rất tuyệt khi sử dụng mã macro VBA, tôi cũng đã cung cấp một mã VBA ngắn thực hiện nó chỉ bằng một cú nhấp chuột. Các phương pháp được thể hiện trong công việc hướng dẫn này cho tất cả các phiên bản của Excel (2007, 2010, 2013 và 2016) Mặc dù việc xóa mọi hàng khác trong Excel có thể khá đơn giản, nhưng đó có thể là một thách thức để xóa mọi cột khác. Điều này là do bạn không thể lọc các cột trong Excel (cách bạn có thể lọc hàng). Trong phần cuối của hướng dẫn này, tôi cũng sẽ chỉ cho bạn một số cách để xóa các cột thay thế (hoặc mỗi cột thứ n) trong Excel.
Xóa mọi hàng khác bằng cách lọc bộ dữ liệu (sử dụng công thức)Xóa mọi hàng thứ n bằng cách lọc bộ dữ liệu (sử dụng công thức) Tự động xóa mọi hàng khác (hoặc hàng thứ n) bằng Macro VBA (Phương pháp nhanh) Xóa mọi cột khác (hoặc mỗi cột thứ n) Xóa các cột thay thế bằng cách sử dụng phương thức Công thức và Sắp xếp
Bấm OK. Điều này sẽ lọc dữ liệu và chỉ hiển thị những bản ghi đó trong đó giá trị HelperColumn là sai. Chọn tất cả các ô được lọc trong cột trợ giúp (không bao gồm tiêu đề). The resulting data has only the rows for the US and all the Canada rows are deleted. You can delete the helper column now. Nhấp chuột phải vào bất kỳ ô nào đã chọn và nhấp vào ‘Xóa hàng Trong hộp thoại mở ra, nhấp vào OK. Điều này sẽ xóa tất cả các bản ghi có thể nhìn thấy và bạn sẽ chỉ thấy hàng tiêu đề như bây giờ. Nhấp vào tab Dữ liệu và sau đó nhấp vào biểu tượng bộ lọc. Điều này sẽ xóa bộ lọc và bạn sẽ có thể xem tất cả các bản ghi còn lại.
Related tutorial: Delete Rows Based on a Cell Value (or Condition) in Excel Xóa mọi hàng thứ n bằng cách lọc bộ dữ liệu (sử dụng công thức)Tự động xóa mọi hàng khác (hoặc hàng thứ n) bằng Macro VBA (Phương pháp nhanh) Xóa mọi cột khác (hoặc mỗi cột thứ n) Xóa các cột thay thế bằng cách sử dụng phương thức Công thức và Sắp xếp Các bước để xóa mỗi hàng thứ ba gần giống như các bước được đề cập trong phần trên (để xóa các hàng thay thế). Sự khác biệt duy nhất là trong công thức được sử dụng trong bước 2. Dưới đây là các bước để làm điều này:
Các bước trên sẽ xóa mỗi hàng thứ ba khỏi bộ dữ liệu và bạn sẽ nhận được dữ liệu kết quả như được hiển thị bên dưới. Don Tiết lo lắng về các giá trị cột trợ giúp ở giai đoạn này. Bạn có thể xóa cột trợ giúp ngay bây giờ.. You can delete the helper column now. Công thức được sử dụng trong bước 2 sử dụng hàm mod - cung cấp phần còn lại khi một số được chia cho số kia. Ở đây tôi đã sử dụng hàm hàng để lấy số hàng và nó chia cho 3 (vì chúng tôi muốn xóa mỗi hàng thứ ba). Vì bộ dữ liệu của chúng tôi bắt đầu từ hàng thứ hai trở đi (tức là, hàng số 2 chứa bản ghi đầu tiên), tôi sử dụng công thức sau: = mod (hàng (), 3) = 1=MOD(ROW(),3)=1 Tôi đang đánh đồng nó với 1 và cho mỗi hàng thứ ba, công thức mod sẽ cung cấp phần còn lại là 1. Bạn có thể điều chỉnh công thức cho phù hợp. Ví dụ: nếu bản ghi đầu tiên của bộ dữ liệu của bạn bắt đầu từ hàng thứ ba trở đi, công thức sẽ là = mod (hàng (), 3) = 2=MOD(ROW(),3)=2 Tự động xóa mọi hàng khác (hoặc hàng thứ n) bằng Macro VBA (Phương pháp nhanh)Nếu bạn phải xóa mọi hàng khác (hoặc mỗi hàng thứ n) khá thường xuyên, bạn có thể sử dụng mã VBA và có sẵn trong thanh công cụ truy cập nhanh. Điều này sẽ cho phép bạn nhanh chóng xóa các hàng thay thế chỉ bằng một cú nhấp chuột. Dưới đây là mã đầu tiên yêu cầu bạn chọn phạm vi mà bạn muốn xóa các hàng thay thế, sau đó xóa từng hàng thứ hai trong bộ dữ liệu đã chọn. Sub Delete_Every_Other_Row() Dim Rng As Range Set Rng = Application.InputBox("Select the Range (Excluding headers)", "Range Selection", Type:=8) For i = Rng.Rows.Count To 1 Step -2 If i Mod 2 = 0 Then Rng.Rows(i).Delete End If Next i End Sub Khi bạn chạy mã trên, trước tiên nó sẽ yêu cầu bạn chọn phạm vi của ô. Khi bạn đã thực hiện lựa chọn, nó sẽ đi qua từng hàng và xóa từng hàng thứ hai. Nếu bạn muốn xóa mọi hàng thứ ba thay thế, bạn có thể sử dụng mã dưới đây: Sub Delete_Every_Third_Row() Dim Rng As Range Set Rng = Application.InputBox("Select the Range (Excluding headers)", "Range Selection", Type:=8) For i = Rng.Rows.Count To 1 Step -3 If i Mod 3 = 0 Then Rng.Rows(i).Delete End If Next i End Sub Đặt mã macro VBA này ở đâu? Bạn cần đặt mã này trong một mô -đun thông thường trong trình chỉnh sửa VB trong Excel. Dưới đây là các bước để mở trình chỉnh sửa VB, thêm một mô -đun và đặt mã vào đó:
Khi bạn có mã trong trình soạn thảo VB, bạn có thể sử dụng các phương thức sau để chạy mã:
Here is a detailed tutorial on how to run a macro in Excel. Nếu bạn phải làm điều này thường xuyên, bạn có thể xem xét thêm mã VBA vào sổ làm việc macro cá nhân. Bằng cách này, nó sẽ luôn có sẵn cho bạn để sử dụng trong tất cả các sổ làm việc. Khi bạn có mã VBA trong sổ làm việc, bạn cần lưu nó dưới dạng được kích hoạt bởi macro (với tiện ích mở rộng .xlsm) Lưu ý: Vì bất kỳ thay đổi nào được thực hiện bởi mã VBA là không thể đảo ngược, nên trước tiên, bạn nên tạo một bản sao lưu của sổ làm việc/bảng tính và sau đó chạy mã này. Xóa mọi cột khác (hoặc mỗi cột thứ n)Xóa mọi hàng thay thế hoặc mỗi hàng thứ ba/thứ tư được thực hiện dễ dàng vì bạn có thể sử dụng tùy chọn bộ lọc. Tất cả những gì bạn phải làm là sử dụng một công thức xác định các hàng thay thế (hoặc mỗi hàng thứ ba/thứ tư) và lọc các hàng này. Thật không may, phương pháp tương tự này đã giành được công việc với các cột - vì bạn không thể lọc các cột theo cách bạn lọc hàng. Vì vậy, nếu bạn phải xóa mọi cột khác (hoặc mỗi cột thứ ba/thứ tư/thứ tư), bạn cần phải sáng tạo hơn một chút. Trong phần này, tôi sẽ hiển thị cho bạn hai phương pháp bạn có thể sử dụng để xóa mọi cột khác trong Excel (và bạn có thể sử dụng cùng một phương thức để xóa mỗi cột thứ ba/thứ tư/thứ tư nếu bạn muốn). Xóa các cột thay thế bằng cách sử dụng phương thức Công thức và Sắp xếpGiả sử bạn có một bộ dữ liệu như được hiển thị bên dưới và bạn muốn xóa mọi cột khác (không bao gồm cột tiêu đề A) Bí quyết ở đây là xác định các cột thay thế bằng công thức và sau đó sắp xếp các cột dựa trên công thức đó. Khi bạn có các cột được sắp xếp lại với nhau, bạn có thể chọn thủ công và xóa cái này theo cách thủ công. Dưới đây là các bước để xóa mọi cột khác trong Excel:
Các bước trên sắp xếp tất cả các cột và mang tất cả các cột thay thế với nhau tại một nơi (ở cuối). Bây giờ bạn có thể chọn tất cả các cột này (trong đó giá trị công thức là 1) và xóa chúng. Mặc dù đây không phải là giải pháp tốt nhất, nhưng nó vẫn hoàn thành công việc. Trong trường hợp bạn muốn xóa mỗi cột thứ ba hoặc mỗi cột thứ tư, bạn cần điều chỉnh công thức cho phù hợp. Related tutorial: How to SORT in Excel (by Rows, Columns, Colors, Dates, & Numbers) Xóa các cột thay thế bằng VBAMột cách nhanh chóng khác để xóa các cột thay thế là sử dụng mã VBA dưới đây: Sub Delete_Every_Other_Column() Dim Rng As Range Set Rng = Application.InputBox("Select the Range (Excluding headers)", "Range Selection", Type:=8) For i = Rng.Columns.Count To 1 Step -2 If i Mod 2 = 0 Then Rng.Columns(i).Delete End If Next i End Sub Mã trên yêu cầu bạn chọn một loạt các ô có các cột. Ở đây bạn cần chọn các cột, loại trừ một trong đó có tiêu đề. Khi bạn đã chỉ định phạm vi của các ô với dữ liệu, nó sẽ sử dụng một vòng lặp và xóa mọi cột khác. Trong trường hợp bạn muốn xóa mỗi cột thứ ba, bạn có thể sử dụng mã bên dưới (và điều chỉnh phù hợp để xóa cột thứ n) Sub Delete_Every_Third_Column() Dim Rng As Range Set Rng = Application.InputBox("Select the Range (Excluding headers)", "Range Selection", Type:=8) For i = Rng.Columns.Count To 1 Step -3 If i Mod 3 = 0 Then Rng.Columns(i).Delete End If Next i End Sub Các bước trên nơi đặt mã VBA này và cách sử dụng nó được đề cập trong phần trên có tiêu đề - tự động xóa mọi hàng (hoặc hàng thứ n) khác Hy vọng bạn tìm thấy hướng dẫn Excel này hữu ích. Bạn cũng có thể thích các hướng dẫn Excel sau:
|