Xu Hướng 6/2022 # Cách Xóa Các Hàng Trống Trong Excel Với Vba # Top View

Xem 9,999

Bạn đang xem bài viết Cách Xóa Các Hàng Trống Trong Excel Với Vba được cập nhật mới nhất ngày 26/06/2022 trên website Hoisinhvienqnam.edu.vn. Hy vọng những thông tin mà chúng tôi đã chia sẻ là hữu ích với bạn. Nếu nội dung hay, ý nghĩa bạn hãy chia sẻ với bạn bè của mình và luôn theo dõi, ủng hộ chúng tôi để cập nhật những thông tin mới nhất. Cho đến thời điểm hiện tại, bài viết này đã đạt được 9,999 lượt xem.

--- Bài mới hơn ---

  • How To Quickly Delete All Autoshapes In Excel?
  • 2 Cách Xóa Dữ Liệu Trùng Lặp Trên Excel Mà Kế Toán Nên Biết
  • Hướng Dẫn Kỹ Thuật Loại Bỏ Giá Trị Trùng Lặp Trong Danh Sách Excel
  • Hướng Dẫn Xóa External Links Trong Excel
  • Cách Xoá Bỏ Định Dạng Formatting Của Đoạn Văn Bản Trong Word.
  • Có nhiều cách để xóa các hàng trống trong trang tính Excel, nhưng cách nhanh chóng nhất là sử dụng macro trong Excel. Bất kể lý do xuất hiện các hàng trống trong Excel là gì, tốt nhất là bạn nên xóa chúng. Hầu hết các tính năng của Excel diễn giải một hàng trống là phần cuối của một dải dữ liệu; do đó, các tính năng đó sẽ không hoạt động như mong đợi nếu bạn để các hàng trống trong tập dữ liệu của mình.

    Trong bài viết này, chúng ta sẽ khám phá cách tạo một macro giúp bạn nhanh chóng xóa các hàng trống trong Excel.

    Mã VBA xóa hàng trống trong Excel

    Đầu tiên, chúng ta hãy xem mã hiển thị bên dưới. Đừng quá lo lắng vì đoạn code này không phức tạp như vẻ bề ngoài. Logic rất đơn giản. Sau khi khai báo và thiết lập một vài biến, vòng lặp For sẽ kiểm tra mọi hàng trong phạm vi đã chọn để tìm các hàng trống. Khi nó tìm thấy bất kỳ hàng trống nào, code này sẽ xóa hàng và dịch chuyển các hàng phía dưới lên.

    Mã VBA xóa hàng trống trong Excel

    Sub DeleteBlankRows()

    'Delete blank rows in a selected range.

    'Choose appropriate delete statement in For loop.

    'Entire Row deletes entire rows.

    'Delete deletes partial rows.

    Dim rng As Range

    Dim selectedRng As Range

    Dim iRowCount As Integer

    Dim iForCount As Integer

    'Error handling; for good measure.

    On Error Resume Next

    Set selectedRng = Application.Selection

    'Type:=8 argument specifies a Range object; input value must be a range.

    Set selectedRng = Application.InputBox("Range", , selectedRng.Address, Type:=8)

    Application.ScreenUpdating = False

    'Count of rows in selected range used as For stop value.

    'WorksheetFunction.CountA counts the number of cells that are NOT empty.

    iRowCount = selectedRng.Rows.Count

    For iForCount = iRowCount To 1 Step -1

    If Application.WorksheetFunction.CountA(selectedRng.Rows(iForCount)) = 0 Then

    'Delete entire row.

    selectedRng.Rows(iForCount).EntireRow.Delete

    'Delete partial row.

    'selectedRnd.Rows(iForCount).Delete

    End If

    Next

    Application.ScreenUpdating = True

    End Sub

    Một số lệnh có thể cần giải thích một chút.

      Đầu tiên là hàm InputBox:

    Set selectedRng = Application.InputBox("Range", , selectedRng.Address, Type:=8)

    Có thể bạn đã quen thuộc với hàm InputBox như một công cụ để thu thập dữ liệu từ người dùng. Trong trường hợp này, người dùng phải chỉ định một phạm vi vì đối số, Type: = 8, chỉ định rằng đầu vào là một đối tượng Range.

    • Câu lệnh iRowCount = selectRng.Rows.Count trả về số hàng trong phạm vi đầu vào (từ hộp nhập).
    • Vòng lặp For sử dụng biến này (trừ 1) làm giá trị dừng của nó. Câu lệnh đầu tiên trong vòng lặp For là câu lệnh If.
    • Hàm CountA đếm số ô trong hàng hiện tại không trống. Khi số ô không trống là 0, câu lệnh tiếp theo sẽ xóa toàn bộ hàng.

    Đoạn code để xóa dòng trống trong excel này bao gồm hai câu lệnh xóa: một câu lệnh xóa toàn bộ hàng và một câu lệnh xóa một phần các hàng trong phạm vi đã chọn.

    Hoặc để đơn giản hơn, bạn có thể tạo hai macro: một macro xóa toàn bộ hàng và một macro chỉ xóa một phần hàng.

    Bây giờ bạn đã biết cách hoạt động của macro, hãy thêm nó vào sổ làm việc của mình.

    1. Đầu tiên, mở VBA bằng cách nhấn Alt + F11.
    2. Trong Project Explorer, truy cập module ThisWorkbook và nhập đoạn code bên trên vào.
    3. Tiếp theo, quay lại Excel và lưu nó dưới dạng tệp hỗ trợ macro như sau:
      • Bấm vào tab File.
      • Chọn Save as từ ngăn bên trái.
      • Từ menu thả xuống File Type (bên dưới điều khiển Name), chọn Sổ làm việc Hỗ trợ Macro của Excel (* .xlsm).
      • Nhấp vào để Save.

    Như vậy, bạn đã thêm macro thành công vào trang tính của mình.

    Sử dụng macro để xóa các hàng trống trong Excel

    1. Nhấp vào tab Developer.
    2. Trong nhóm Code, bấm Macro.
    3. Trong hộp thoại kết quả, chọn ThisWorkbook.DeleteBlankRows và nhấp vào Run.
    4. Bạn sẽ thấy các hộp nhắc hiển thị như hình bên dưới. Nếu bạn chọn phạm vi trước khi chạy macro, hộp nhập sẽ mặc định thành phạm vi đã chọn. Tuy nhiên, bạn có thể đánh dấu phạm vi hoặc nhập phạm vi theo cách thủ công cũng như sử dụng hộp nhập liệu. Bạn cũng có thể nhập tên dải ô hoặc tên đối tượng Table.
    5. Nhấp vào OK và bạn đã hoàn tất. Các hàng trống đã biến mất.

    • Đầu tiên, bạn không thể hoàn tác việc xóa. Lời khuyên tốt nhất của tôi là luôn lưu bất kỳ sổ làm việc nào trước khi xóa dữ liệu. Bằng cách đó, nếu bạn mắc lỗi, bạn vẫn ổn.
    • Thứ hai, nếu bạn đang làm việc với một tập dữ liệu lớn, việc chọn phạm vi có thể khó khăn. May mắn thay, macro có thể xử lý tên phạm vi hoặc tên đối tượng Bảng.
    • Bạn có thể nhận thấy rằng còn một số ô trống trong bản ghi. Macro sẽ không xóa các bản các ô trống này, đoạn mã trên chỉ xóa các hàng trong phạm vi được chọn.

    Nếu bạn thường xuyên sử dụng macro, hãy cân nhắc thêm nó vào QAT của bạn

    Cách thêm macro vào thanh công cụ QAT

    Bạn có thể dễ dàng để thêm một hoặc hai macro vào Office QAT để nhanh chóng thực hiện các tác vụ thường xuyên lập lại. Các bước thực hiện như sau:

    • Nhấp vào menu thả xuống QAT và chọn More Commands.
    • Từ menu thả xuống Commands From, chọn Macro.
    • Ứng dụng của bạn sẽ hiển thị các macro đang có trong danh sách kết quả. Chọn macro bạn muốn thêm vào QAT và nhấp vào nút Add
    • Nhấn OK để thêm macro vào QAT.

    Sau đó, bạn có thể tùy chỉnh macro trên thanh Office QAT của mình để hiển thị đẹp mắt hơn. Bạn có thể thay đổi biểu tượng macro với các bước như sau:

    1. Lặp lại các bước 1 và 2 ở trên để truy cập các tùy chọn giao diện QAT.
    2. Chọn macro trong danh sách Customize Quick Access Toolbar.
    3. Nhấp vào Edit.
    4. Trong hộp thoại hiện ra, chọn một biểu tượng mới. Bạn cũng có thể thay đổi tên.
    5. Nhấn OK hai lần để xem biểu tượng mới trong QAT.

    --- Bài cũ hơn ---

  • Validation (Ràng Buộc Dữ Liệu)
  • Trích Lọc Nâng Cao Trong Excel
  • Lập Báo Cáo Chi Tiết Theo Nhiều Điều Kiện Trên Excel Bằng Cách Nào Nhanh Nhất ?
  • Hướng Dẫn Chi Tiết Cách Tạo Bản Đồ 3D Trong Excel
  • Giới Thiệu 10 Buổi Học Xây Dựng Phần Mềm Quản Lý Kho Trong Excel
  • Cập nhật thông tin chi tiết về Cách Xóa Các Hàng Trống Trong Excel Với Vba trên website Hoisinhvienqnam.edu.vn. Hy vọng nội dung bài viết sẽ đáp ứng được nhu cầu của bạn, chúng tôi sẽ thường xuyên cập nhật mới nội dung để bạn nhận được thông tin nhanh chóng và chính xác nhất. Chúc bạn một ngày tốt lành!

  • Web hay
  • Links hay
  • Push
  • Chủ đề top 10
  • Chủ đề top 20
  • Chủ đề top 30
  • Chủ đề top 40
  • Chủ đề top 50
  • Chủ đề top 60
  • Chủ đề top 70
  • Chủ đề top 80
  • Chủ đề top 90
  • Chủ đề top 100
  • Bài viết top 10
  • Bài viết top 20
  • Bài viết top 30
  • Bài viết top 40
  • Bài viết top 50
  • Bài viết top 60
  • Bài viết top 70
  • Bài viết top 80
  • Bài viết top 90
  • Bài viết top 100
  • CẦM ĐỒ TẠI F88
    15 PHÚT DUYỆT
    NHẬN TIỀN NGAY

    VAY TIỀN NHANH
    LÊN ĐẾN 10 TRIỆU
    CHỈ CẦN CMND

    ×