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.

ArrowMain

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”.

ArrowOutput

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ã

Range (.Cells (intRowT, 1), .Cells (intRowT, 3)). Value = Range (Cells (intRow, 1), Cells (intRow, 3)). Giá trị Đoạn mã trên được sử dụng để có một bản sao bị thiếu ghi từ trang tính chính sang trang tính “BlankRecord”.
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]