Как пройти через ячейки в столбце А, чтобы вернуть значения из базы данных в каждой ячейке

Question

У меня есть фрагмент кода, который позволяет мне извлекать данные с сервера компании из данных о сотрудниках, таких как отдел и имя. У меня это настроено нормально, он использует соединение LDAP как функцию, затем в другой подпрограмме использует одно значение ячейки в качестве переменной для функции, чтобы определить, для какого сотрудника я извлекаю данные и вставляю их в ячейки A1-6.

Я провел всю свою жизнь кодирования на сегодняшний день (всего пару лет) без использования цикла. Мне нужна помощь в создании цикла, который будет проходить через все значения в столбце a и возвращать данные, как указано выше, но вставлять рядом с каждым уникальным значением, к которому оно относится, в столбцах b и c.

Не могу найти что-то достаточно конкретное для этого и не понимаю циклов, достаточных для того, чтобы нести одну попытку, прежде чем просто затормозить код.

Answer 1

для цикла:

Option Explicit

Sub test()

    Dim Lastrow As Long, i As Long

    With ThisWorkbook.Worksheets("Sheet1")

         Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row '<- Find last row of column A

         For i = 1 To Lastrow '<- Loop from row 1 to last row

            MsgBox .Range("A" & i).Value
            'Here put yout code

         Next i

    End With

End Sub