Azure Virtual Desktop中Excel报表VBA Error 91问题求助

Error 91的根源很直接：你的代码里Cells.Find方法没找到内容为"zzz"的单元格时，会返回Nothing（空对象），这时直接调用.Activate就会触发错误——你没法激活一个不存在的对象。

修改方案 #

把查找结果先赋值给一个对象变量，先判断是否找到，再执行激活操作：

Dim foundCell As Range
Set foundCell = Cells.Find(What:="zzz", After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False)

' 检查是否找到目标单元格
If Not foundCell Is Nothing Then
    foundCell.Activate
Else
    ' 没找到时的提示，可根据需求调整
    MsgBox "未找到内容包含'zzz'的单元格", vbExclamation
End If

额外优化建议（适配Azure Virtual Desktop环境） #

• 避免依赖ActiveCell：虚拟桌面环境中，报表运行时的活动单元格可能和本地测试时不一致，建议明确指定查找的起始位置，比如After:=Cells(1,1)（从A1开始查找）。
• 锁定工作表范围：不要用全局Cells，改成指定具体工作表，比如ThisWorkbook.Worksheets("你的报表工作表名").Cells，防止因工作表切换导致查找范围错误。

内容的提问来源于stack exchange，提问作者Luc van Iersel