如何遍历 a 列中的单元格以从每个单元格中的数据库返回值

Question

我有一段代码允许我从公司服务器中提取员工数据周围的数据，例如部门和姓名。我的设置很好，它使用 LDAP 连接作为函数，然后在另一个子例程中使用单个单元格值作为函数的变量，以确定我为哪个员工提取数据并粘贴到单元格 A1-6 中。

到目前为止，我的整个编码生涯（仅几年）都没有使用循环。我需要帮助创建一个循环，该循环将遍历 a 列中的所有值并按上述方式返回数据，但粘贴到与 b 列和 c 列相关的每个唯一值旁边。

找不到任何足够具体的东西，并且在我停止代码之前，对循环的理解不足以让我自己尝试。

Answer 1

For循环：

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