Sao chép dữ liệu chưa hoàn chỉnh sang trang tính mới bằng VBA trong Microsoft Excel
Trong bài viết này, chúng tôi sẽ tạo macro để sao chép dữ liệu chưa hoàn chỉnh sang trang tính mới.
Dữ liệu thô cho bài viết này bao gồm dữ liệu lương, bao gồm một số bản ghi chưa hoàn chỉnh.
Chúng tôi muốn sao chép hồ sơ của những nhân viên bị thiếu chi tiết lương. Nhấp vào nút sẽ chuyển các bản ghi chưa hoàn thành sang trang tính “BlankRecords”.
Giải thích logic
Trong bài viết này, chúng tôi đã tạo macro “CopyEmptys” để sao chép các bản ghi bị thiếu vào trang tính “BlankRecords”. Nó kiểm tra cột Lương để tìm hồ sơ trống. Nếu gặp phải bản ghi trống, thì nó sẽ sao chép bản ghi đó vào trang tính “BlankRecords”.
Giải thích mã
intRowL = Cells (Rows.Count, 1) .End (xlUp) .Row Trên mã được sử dụng để lấy số hàng của ô cuối cùng.
IsEmpty (Ô (intRow, 4))
Mã trên được sử dụng để kiểm tra xem mức lương được đề cập có trống không.
Vui lòng theo dõi bên dưới để biết mã
Option Explicit Sub CopyEmptys() 'Declaring variables Dim intRow As Integer, intRowL As Integer, intRowT As Integer 'Getting row number of last cell intRowL = Cells(Rows.Count, 1).End(xlUp).Row 'Looping from 10th row to last cell For intRow = 10 To intRowL 'Checking the fourth column whether it is empty If IsEmpty(Cells(intRow, 4)) Then With Worksheets(2) 'Getting row number of row next to last row intRowT = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 'Inserting data to "BlankRecords" sheet .Range(.Cells(intRowT, 1), .Cells(intRowT, 3)).Value = _ Range(Cells(intRow, 1), Cells(intRow, 3)).Value End With End If Next intRow End Sub
Nếu bạn thích blog này, hãy chia sẻ nó với bạn bè của bạn trên Facebook và Facebook.
Chúng tôi rất muốn nghe ý kiến từ bạn, hãy cho chúng tôi biết cách chúng tôi có thể cải thiện công việc của mình và làm cho nó tốt hơn cho bạn. Viết thư cho chúng tôi [email protected]