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

Question

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

到目前为止，我已经完成了我的整个编码生活(只有几年(，没有使用循环。我需要帮助创建一个循环，该循环将遍历 a 列中的所有值并返回上述数据，但粘贴在 b 列和 c 列中与其相关的每个唯一值旁边。

找不到足够具体的东西，并且对循环的理解不够，无法在我制动代码之前进行自我尝试。

Answer 1

For Loop：

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