怎么解决vb运行时错误13：类型不匹配

felicityxin · 发表于 2018-8-9 16:43

'补充BN列的信息
Range("BN2").Select
ActiveCell.FormulaR1C1 = _
      "=IF(RC[-1]=""OEM"",""OEM"",VLOOKUP(RC[-56],'4'!C[-54]:C[-37],18,0))"
Range("BN2").Select
Selection.AutoFill Destination:=Range("BN2:BN" & nr2)  '末端的行号注意这边用的是下一行的行号，也就是多补充一个数据
'通过sheet“1”和sheet“4”两个表关联之后，填了相关数据，但部分数据由于sheet“4”中没有，所以BN列部分出现了“#N/A”的情况
'所以下面将“#N/A”的情况筛选出来并且都填为“others”
'类型不匹配的情况出现在第二行if语句中，不知错误怎么解决忘大佬相助！！！谢谢！！！
For x = 2 To nr2 - 1 Step 1
If Cells(x, 66) = "#N/A" Then Cells(x, 66).Select
   ActiveCell.FormulaR1C1 = "others"
Next x

huang1314wei · 发表于 2018-8-9 16:45

"=IF(RC[-1]=""OEM"",""OEM"",IFerror(VLOOKUP(RC[-56],'4'!C[-54]:C[-37],18,0),"“others”")"

felicityxin · 发表于 2018-8-9 16:49

'末端的行号注意这边用的是下一行的行号，也就是多补充一个数据
这句话不是啥重点啊忘记删了

felicityxin · 发表于 2018-8-9 17:10

huang1314wei 发表于 2018-8-9 16:45
"=IF(RC[-1]=""OEM"",""OEM"",IFerror(VLOOKUP(RC[-56],'4'!C[-54]:C[-37],18,0),"“others”")"

非常感谢~这样就不需要用到if语句了

		自动登录	找回密码
密码			免费注册

[求助] 怎么解决vb运行时错误13：类型不匹配