Захват имен сотрудников, которые входят в систему и выходят из системы, ячейки пустые, используя цикл for

Question

У меня есть требование записать имя сотрудника, чьи ячейки входа и выхода пусты, и вставить его из диапазона ячеек «A30». Я использовал для l oop и if условие для захвата сотрудника, чьи ячейки входа и выхода пусты. Используя приведенный ниже код, я получаю только последнего человека, у которого ячейки входа и выхода из системы пусты.

Как захватить все ячейки входа и выхода сотрудника, у которых пустые ячейки.

Answer 1

Самый простой способ сделать это - иметь переменную, которая затем будет увеличиваться в вашем for l oop. Поскольку вы каждый раз вставляете в одну ячейку, вы можете использовать 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