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
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