如何在Excel宏中循环向网站逐一键入E列单元格值，遇空单元格停止

你可以用Do While循环实现自动遍历单元格，直到遇到空单元格停止，替换你现在重复的代码：

Sub SendCellsToWebsite()
    Dim currentCell As Range
    Set currentCell = ActiveSheet.Range("E4") ' 起始单元格
    
    Do While currentCell.Value <> "" ' 非空单元格就继续循环
        SendKeys currentCell.Value
        Application.Wait Now + TimeValue("00:00:01") ' 等待1秒，给网站足够响应时间
        SendKeys "~" ' 发送回车键
        Application.Wait Now + TimeValue("00:00:01")
        
        Set currentCell = currentCell.Offset(1, 0) ' 移动到下一行单元格
    Loop
End Sub

关键说明： #

• 用currentCell变量跟踪当前处理的单元格，初始定位到E4
• Do While循环会一直执行，直到当前单元格内容为空
• Offset(1,0)让单元格自动下移一行，不用手动写E5、E6这种固定地址
• 把等待时间改成1秒（00:00:01），原代码的1毫秒基本没作用，容易导致网站没来得及接收内容就执行下一步，出现错误

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