Bỏ qua nội dung chính

Làm cách nào để chọn mọi hàng khác hoặc hàng thứ n trong Excel?

Khi chúng ta sử dụng một trang tính, đôi khi, chúng ta cần chọn mọi hàng khác hoặc hàng thứ n của trang tính cho mục đích định dạng, xóa hoặc sao chép. Bạn có thể chọn chúng theo cách thủ công, nhưng nếu có hàng trăm hàng thì phương pháp này không phải là một lựa chọn tốt. Dưới đây là một số thủ thuật để giúp bạn.

Chọn mọi hàng khác hoặc hàng thứ n với VBA

Chọn mọi hàng khác hoặc hàng thứ n với Kutools cho Excelý kiến ​​hay3


Chọn mọi hàng khác hoặc hàng thứ n với VBA

Trong ví dụ này, tôi sẽ chọn một hàng có hai khoảng. Với mã VBA, tôi có thể hoàn thành nó như sau:

1. Đánh dấu phạm vi mà bạn muốn chọn mỗi hàng khác hoặc hàng thứ n.

2.Click Nhà phát triển > Visual Basic, Một mới Microsoft Visual Basic cho các ứng dụng cửa sổ sẽ được hiển thị, nhấp vào Chèn > Mô-đunvà nhập mã sau vào Mô-đun:

Sub EveryOtherRow()
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xInterval As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xInterval = Application.InputBox("Enter row interval", xTitleId, Type:=1)
For i = 1 To InputRng.Rows.Count Step xInterval + 1
    Set rng = InputRng.Cells(i, 1)
    If OutRng Is Nothing Then
        Set OutRng = rng
    Else
        Set OutRng = Application.Union(OutRng, rng)
    End If
Next
OutRng.EntireRow.Select
End Sub

3. sau đó nhấp vào doc-nhân-tính-3 để chạy mã. Và một hộp thoại bật lên để bạn chọn một phạm vi. Xem ảnh chụp màn hình:



4. nhấp chuột OKvà trong trường hợp này, tôi nhập 3 trong hộp thoại bật ra khác dưới dạng hàng khoảng thời gian. Xem ảnh chụp màn hình

5. nhấp chuột OK, và mọi hàng thứ ba đã được chọn. Xem ảnh chụp màn hình:

Bạn có thể thay đổi khoảng thời gian nếu bạn cần trong giây KutoolsforExcel thoại.


Chọn mọi hàng khác hoặc hàng thứ n với Kutools cho Excel

Với mã VBA, bạn chỉ có thể chọn một hàng với các khoảng được chỉ định, nếu bạn cần chọn hai, ba hoặc các hàng khác với các khoảng được chỉ định, Kutools cho Excel có thể giúp bạn giải quyết vấn đề này một cách dễ dàng và thuận tiện.

Kutools cho Excel, với hơn 300 chức năng tiện dụng, giúp công việc của bạn dễ dàng hơn. 

Sau cài đặt miễn phí Kutools cho Excel, vui lòng làm như sau:

1. nhấp chuột Kutools > Select > Select Interval Rows & Columns…, Xem ảnh chụp màn hình:

doc chọn mọi hàng khác

2. bên trong  Select Interval Rows & Columns hộp thoại, nhấp vàodoc-Replace-range-names-7 để chọn phạm vi bạn cần, chọn Rows or Columns từ Select phầnvà chỉ định số bạn muốn trong Interval of hộp đầu vào và Rows hộp nhập liệu. Xem ảnh chụp màn hình:

doc chọn mọi hàng khác

doc chọn mọi hàng khác

Ghi chú:
1. Nếu bạn cần chọn mọi hàng khác trong phần lựa chọn, vui lòng nhập 2 vào hộp Khoảng thời gian nhập và 1 vào Rows hộp nhập liệu.

2. Nếu bạn muốn chọn toàn bộ hàng mà bạn cần, bạn có thể kiểm tra Select entire rows tùy chọn.
doc chọn mọi hàng khác


Che bóng mọi hàng khác hoặc hàng thứ n với Kutools cho Excel

Nếu bạn muốn tô bóng các dải ô trong mọi hàng khác để dữ liệu trông nổi bật hơn như hình minh họa bên dưới, bạn có thể áp dụng Kutools cho Excel'S Alternate Row/Column Shading có chức năng xử lý nhanh chóng công việc.

doc chọn mọi hàng khác
mũi tên doc xuống
doc chọn mọi hàng khác

Sau cài đặt miễn phí Kutools cho Excel, vui lòng làm như sau:

1. Chọn phạm vi ô bạn muốn ngắt khoảng bóng, nhấp vào Kutools > Format > Alternate Row/Column Shading.
doc chọn mọi hàng khác

2. bên trong Alternate Row/Column Shading hộp thoại, hãy làm như sau:

1) Chọn các hàng hoặc cột bạn muốn tô bóng;

2) Chọn Conditional formatting or định dạng tiêu chuẩn như bạn cần;

3) Chỉ định khoảng tô bóng;

4) Chọn màu tô.
doc chọn mọi hàng khác

3. nhấp chuột Ok. Bây giờ phạm vi đã được tô bóng trong mỗi hàng thứ n.

Nếu bạn muốn loại bỏ bóng mờ, hãy kiểm tra Xóa bóng hàng thay thế hiện có tùy chọn trong Đổ bóng hàng / cột thay thế thoại.


Các bài liên quan:

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
Comments (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Help, please. This looks great, BUT when I hit the > Run button it fails with a "Compile error: Sub or Function not defined" and the code stopped at "Set rng = InputRng.Rows.Count Step xInterval +1".
This comment was minimized by the moderator on the site
Also I don't get how "Set" and "Step" could ever work together
This comment was minimized by the moderator on the site
Not sure that I will be able to help, but.. First of, there is a spacing between "C" and "ount" in "Count" when i copied your code string over to a module. Secondly, I can´t find your code anywhere else on this page, please submit the whole thing, if the problem remains.
This comment was minimized by the moderator on the site
Replace OutRng.EntireRow.Select with Intersect(OutRng.EntireRow, InputRng).Select if you want every other row within your selection
This comment was minimized by the moderator on the site
really good, thanks!
This comment was minimized by the moderator on the site
The code has one request. Does it have to select the ENTIRE ROW for each nth row? Can't it just select certain cells (range of cells) within each nth row? I don't need all the information in each row. Just certain cells of each nth row.
This comment was minimized by the moderator on the site
I made the modifications below to select 30 rows Sub EveryOtherRow() Dim rng As Range Dim InputRng As Range Dim OutRng As Range Dim xInterval As Integer xTitleId = "KutoolsforExcel" Set InputRng = Application.Selection Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8) xInterval = Application.InputBox("Enter row interval", xTitleId, Type:=1) For i = 1 To InputRng.Rows.Count Step xInterval + 1 Set rng = InputRng.Cells(i, 1).Resize(, 30) 'Resize to the number of columns to select, 30 in this case If OutRng Is Nothing Then Set OutRng = rng Else Set OutRng = Application.Union(OutRng, rng) End If Next OutRng.Select 'Use OutRng.EntireRow.Select to select the entire row End Sub
This comment was minimized by the moderator on the site
Nice, thanks, this was very helpful ^_^
This comment was minimized by the moderator on the site
fanatastic. thanks a lot.it works perfect.I have more than 7000 data that need to select them with different interval.this trick was like a miracle for me.thaaaaaaaanks.
This comment was minimized by the moderator on the site
I'm trying to use the VBA macro in Excel 2010. It will only select the first nth row, not all of them in the selection. If I run it again, it will go to the next. Any idea what I'm doing wrong? Thanks!
This comment was minimized by the moderator on the site
Just saved my ass with this code thanks! My matlab decided to randomly stop working and so I had to resort to excel which I am not as familiar with as with Matlab. This def. helped. Thanks.
This comment was minimized by the moderator on the site
I need to select multiple rows and a fixed interval and move to the other sheet please answer me as soon as possible 
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations