EXCE小问题，类型不匹配，请解答

Sub TIANXIE()

Dim m As Integer

Dim n As Integer

For n = 2 To 10 Step 1

If Cells(n, 2).Value = "#N/A" Then

Cells(n, 3).Value = ""

Cells(n, 3).Value = "20150401"

Else

 Cells(n, 3).Value = Cells(n, 2).Value

End If

Next n

End Sub