在本文中，我们将创建一个宏以将不完整的数据复制到新工作表中。

本文的原始数据包括薪水数据，其中包括一些不完整的记录。

ArrowMain

我们要复制那些工资细节丢失的员工的记录。单击该按钮会将不完整的记录移至“ BlankRecords”表。

ArrowOutput

逻辑解释

在本文中，我们创建了“ CopyEmptys”宏，以将丢失的记录复制到“ BlankRecords”表中。它检查“工资”列中是否有空白记录。如果遇到空白记录，则将其复制到“ BlankRecords”工作表。

代码说明

intRowL = Cells（Rows.Count，1）.End（xlUp）.Row上面的代码用于获取最后一个单元格的行号。

IsEmpty（Cells（intRow，4））

上面的代码用于检查提到的薪水是否为空。

请遵循以下代码

Range（.Cells（intRowT，1），.Cells（intRowT，3））。Value = Range（Cells（intRow，1），Cells（intRow，3））。Value上面的代码用于丢失的副本从主表记录到“ 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

如果您喜欢此博客，请在Facebook和Facebook上与您的朋友分享。

我们很希望收到您的来信，请让我们知道我们如何才能改善我们的工作并使您的工作更好。写信给我们[email protected]