怎样去掉因没有数据时公式生成的乱码，谢谢！

ztd123

怎样去掉因没有数据时公式生成的乱码，谢谢！

无聊的黑猫

套个iferror

满坛皆为吾师

代码修改一下

1. Private Sub CommandButton1_Click()
   
2. i = Range("A9999").End(3).Row
   
3. Range("F2") = "=VLOOKUP(--LEFT(B2,2),代码!A:B,2,)"
   
4. Range("G2") = "=LOOKUP(""々"",VLOOKUP(N(IF(1,--left(B2,{4,6}))),代码!A:B,2,))"
   
5. Range("F2:G2").AutoFill Destination:=Range("F2:G" & i)
   
6. End Sub

复制代码

ztd123

感谢楼上老师，辛苦了

tsthh

G2=IFERROR(VLOOKUP(--MID(B2,1,6),代码!A:B,2,0),"")三键下拉

橒♂蝣

=IFERROR(VLOOKUP(--MID(B2,1,2),代码!A:B,2,0),"")