Question

在excel vba 中，类型不匹配，怎么解决？

Sub 生成新表()
Dim i As Long, n As Long
Dim x As Long
For n = 1 To Sheet1.Range("b1").End(xlToRight).Column
For i = 2 To Sheet1.Range("a65536").End(xlUp).Row
If Sheet1.Range("f" & i) <> "#N/A" Then 此行提示类型不匹配，用not like 也不行
x = x + 1
Sheet3.Cells(x + 1, n) = Sheet1.Cells(i, n)
End If
Next i
x = 0
Next n
End Sub

Answer 1

Sub 生成新表()
Dim i As Long, n As Long
Dim x As Long
For n = 1 To Sheet1.Range("b1").End(xlToRight).Column
For i = 2 To Sheet1.Range("a65536").End(xlUp).Row
If not(IsError(Sheet1.Range("f" & i))) Then ' <> "#N/A" Then '此行提示类型不匹配，用not like 也不行
x = x + 1
Sheet3.Cells(x + 1, n) = Sheet1.Cells(i, n)
End If
Next i
x = 0
Next n
End Sub

Answer 2

此行提示类型不匹配，用not like 也不行
改成：If Sheet1.Range("f" & i) .FormulaR1C1<> "#N/A" Then