它说未设置对象变量或带块变量

Question

设置r =相交（ActiveSheet.UsedRange，Range（“ W2：W2”））。Cells.SpecialCells（xlCellTypeBlanks）

Answer 1

不看表就很难分辨，但这可能是因为您的ActiveSheet.UsedRange与Range("W2:W2")没有交集

Answer 2

正如杰里米指出的那样，是由于缺少路口所致。

您需要利用这种可能性。

Set r = Intersect(ActiveSheet.UsedRange, Range("W2:W2"))

If r Is Nothing Then
    ' No intersection found. Do something else
Else
    Set r = r.SpecialCells(xlCellTypeBlanks)
End If

但是也值得一提，如果交叉路口没有空单元格，则会出错。