你好，Application.Speech.Speak "资产编号扫描完成，并将其备份至sheet 2表格中" 会语音报出内容，

不太清楚你的要求，下载附件看看，几种情况都考虑了，自己琢磨琢磨就行了。

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address <> "$E$1" Then Exit Sub
   Dim Ra As Range
   Set Ra = Range("A:A").Find(Target.Value)
   If Ra Is Nothing Then
      Application.Speech.Speak "没有编号为" & Target & "的数据"
   Else
      Application.Speech.Speak "找到的编号在" & Ra.Address(0, 0) & "单元格，数据为" & Ra.Offset(, 1)
   End If
End Sub

来自：求助得到的回答

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/rfxv3vvxvf27j2yvf3.html