如何克服；对象变量或未设置块变量"；在excelvba中？

您必须设置变量：

Sub bordersTest()
    Dim theRange As Range

    theRange = Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Select
End Sub

---

谢谢你的回答，它正在发挥作用。这个问题已经在互联网上被问了大约1.385e105次，并且得到了彻底的回答。谷歌？在VBA中查找变量使用的基础知识，并查看对象变量。"

Sub bordersTest()
  Dim theRange As Range

  Set theRange = Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight))
  theRange.Select
End Sub