VBA循环批量处理LDAP查询结果无法写入对应A列单元格求助

原代码存在的问题 #

1. Do循环逻辑错误：每次固定写入A1，没有匹配当前处理的B列单元格所在行的A列；依赖Select和ActiveCell的操作方式不仅效率低，还容易因光标意外移动导致错误。
2. For循环逻辑混乱：遍历所有行完全没必要，且Values变量未定义，直接使用会触发类型不匹配错误；同时始终操作A1和B1，没有对应到当前循环行。

修复后的VBA代码 #

Sub GetADDisplayName()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim email As String
    Dim displayName As String
    
    ' 设置要操作的工作表，避免依赖ActiveSheet
    Set ws = ThisWorkbook.ActiveSheet
    ' 获取B列最后一个非空单元格的行号
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 从第1行循环到最后一行
    For i = 1 To lastRow
        email = ws.Cells(i, "B").Value
        ' 仅当邮箱非空时调用查询函数
        If email <> "" Then
            displayName = gigIDldap(4, True, email)
            ' 将结果写入对应行的A列
            ws.Cells(i, "A").Value = displayName
        End If
    Next i
End Sub

代码说明 #

• 直接操作工作表对象，避免使用Select和ActiveCell，提升代码稳定性和效率
• 先获取B列最后一行，避免循环空行浪费资源
• 仅当B列单元格非空时才调用gigIDldap函数，避免无效查询
• 循环中通过行号i对应A列和B列的单元格，确保结果写入正确位置

内容的提问来源于stack exchange，提问作者user13349521