使用for循环登录和注销单元格的职位名称为空

Question

我需要捕获其登录和注销单元为空并从单元格范围“ A30”粘贴的员工的姓名。我用于循环，如果条件捕获雇员的登录和注销单元为空。通过使用以下代码，我仅获得登录和注销单元为空的最后一个人。

如何捕获所有员工的登录和注销单元为空。

For i = 2 To a

If Worksheets("Output").Cells(i, 3).Value = "" And Worksheets("Output").Cells(i, 4).Value = "" Then

Worksheets("Output").Cells(i, 1).Copy

ThisWorkbook.Worksheets("Output").Range("A35").PasteSpecial xlPasteValues

End If

Next

Answer 1

最简单的方法是拥有一个变量，然后在您的for循环中将其递增。由于每次都粘贴到单个单元格，因此可以使用Cells（x，y）而不是范围。这样可以更轻松地使用变量。这样的事情应该为您工作：

Dim startOut As Integer
startOut = 30

For i = 2 To a

    If Worksheets("Output").Cells(i, 3).Value = "" And Worksheets("Output").Cells(i, 4).Value = "" Then

        Worksheets("Output").Cells(i, 1).Copy
        ThisWorkbook.Worksheets("Output").Cells(startOut, 1).PasteSpecial xlPasteValues
        startOut = startOut + 1

    End If

Next