错误＆＃34;对象变量或没有设置块变量＆＃34;

Question

我将以下代码作为更大子代码的一部分运行：

Dim rEmp As Range
Dim rDate As Range
Set sDate = Sheet1.Range("C1")
Set rEmp = Sheet2.Range("A:A").Find(what:=rDate, lookat:=xlWhole)
If Not rDate Is Nothing Then
    If Cells(rEmp.Row, "B") = vbNullString Then
        Selection.Copy Cells(rEmp.Row, "B")
    Else
        If MsgBox("Do you want to overwrite the value ", _
        vbQuestion + vbYesNo) = vbYes Then
        Worksheets("PrimQ").Range("A1:AU1").Copy Cells(rEmp.Row, "B")
        End If
    End If
Else
    Rows("3:3").Insert Shift:=xlDown
    Sheet2.Range("A3").Value = Sheet1.Range("C1").Value
    Range("A3").Select
    Worksheets("PrimQ").Range("A1:AU1").Copy Destination:=Sheet2.Range("B3")
End If

错误

  

对象变量或未设置块变量

正在显示：

If Cells(rEmp.Row, "B") = vbNullString Then

我无法解决问题所在。