Note: The other languages of the website are Google-translated. Back to English

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ác công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

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!
officetab dưới cùng
Nhận xét (12)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chỉ cần lưu ass của tôi với mã này, cảm ơn! Matlab của tôi đã quyết định ngừng hoạt động một cách ngẫu nhiên và vì vậy tôi phải sử dụng đến tính năng xuất sắc mà tôi không quen thuộc như với Matlab. Điều này xác định. đã giúp. Thanks.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi cần chọn nhiều hàng và một khoảng cố định và chuyển sang trang tính khác, vui lòng trả lời tôi càng sớm càng tốt 
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang cố gắng sử dụng macro VBA trong Excel 2010. Nó sẽ chỉ chọn hàng thứ n đầu tiên, không phải tất cả chúng trong vùng chọn. Nếu tôi chạy lại, nó sẽ chuyển sang phần tiếp theo. Bất kỳ ý tưởng những gì tôi đang làm sai? Thanks!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
cuồng tín. cảm ơn rất nhiều. nó hoạt động hoàn hảo. Tôi có hơn 7000 dữ liệu cần phải chọn chúng với các khoảng thời gian khác nhau. thủ thuật này giống như một phép màu đối với tôi .thaaaaaaaanks.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã có một yêu cầu. Nó có phải chọn TOÀN BỘ ROW cho mỗi hàng thứ n không? Nó không thể chỉ chọn các ô nhất định (phạm vi ô) trong mỗi hàng thứ n? Tôi không cần tất cả thông tin trong mỗi hàng. Chỉ các ô nhất định của mỗi hàng thứ n.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã thực hiện các sửa đổi bên dưới để chọn 30 hàng 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 (" Nhập khoảng cách hàng ", xTitleId, Type: = 1) Đối với i = 1 Đến InputRng.Rows.Count Bước xInterval + 1 Đặt rng = InputRng .Cells (i, 1) .Resize (, 30) 'Thay đổi kích thước thành số cột để chọn, 30 trong trường hợp này Nếu OutRng Không có gì thì Đặt OutRng = rng Khác Đặt OutRng = Ứng dụng.Union (OutRng, rng) Kết thúc Nếu Tiếp theo OutRng Chọn 'Sử dụng OutRng.EntireRow. Chọn để chọn toàn bộ hàng Kết thúc Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Rất vui, cảm ơn, điều này rất hữu ích ^ _ ^
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
thực sự tốt, cảm ơn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thay thế OutRng.EntireRow Chọn bằng Intersect (OutRng.EntireRow, InputRng). Chọn nếu bạn muốn mọi hàng khác trong lựa chọn của mình
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Giúp tôi với. Điều này trông tuyệt vời, NHƯNG khi tôi nhấn nút> Run, nó không thành công với "Lỗi biên dịch: Sub hoặc Chức năng không được xác định" và mã dừng lại ở "Đặt rng = InputRng.Rows.Count Bước xInterval +1".
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Không chắc rằng tôi sẽ giúp được, nhưng .. Trước hết, có một khoảng cách giữa "C" và "ount" trong "Count" khi tôi sao chép chuỗi mã của bạn qua một mô-đun. Thứ hai, tôi không thể tìm thấy mã của bạn ở bất kỳ nơi nào khác trên trang này, vui lòng gửi toàn bộ nội dung, nếu vấn đề vẫn còn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ngoài ra, tôi không hiểu "Đặt" và "Bước" có thể hoạt động cùng nhau như thế nào
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL