如何在excel VBA中克服“对象变量或未设置块变量”？

Question

Sub bordersTest()
    Dim theRange As Range

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

Answer 1

您必须设置变量：

Sub bordersTest()
  Dim theRange As Range

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