运行时错误13，类型不匹配

我是新手这要怎么改啊str=arr（i，1）哪行Excel调试标的黄色Sub查询数据()DimstrAsStringarr=Sheets("发票管理表").Range("A2:Q"&Sheets("发票管理表").Cells(***.count,1).End(xlUp).Row).ValueSheets("查询").Range("A4:Q65535").ClearContentsj=1Fori=1ToUBound(arr)str=arr(i,1)&arr(i,2)&arr(i,3)&arr(i,4)&arr(i,5)&arr(i,6)&arr(i,7)&arr(i,8)&arr(i,9)&arr(i,10)&arr(i,11)&arr(i,12)&arr(i,13)&arr(i,14)&arr(i,15)&arr(i,16)IfstrLike"*"&***.text&"*"ThenCells(j,1)=arr(i,1)Cells(j,2)=arr(i,2)Cells(j,3)=arr(i,3)Cells(j,4)=arr(i,4)Cells(j,5)=arr(i,5)Cells(j,6)=arr(i,6)Cells(j,7)=arr(i,7)Cells(j,8)=arr(i,8)Cells(j,9)=arr(i,9)Cells(j,10)=arr(i,10)Cells(j,11)=arr(i,11)Cells(j,12)=arr(i,12)Cells(j,13)=arr(i,13)Cells(j,14)=arr(i,14)Cells(j,15)=arr(i,15)Cells(j,16)=arr(i,16)j=j+1EndIfNextiEndSub网志问答在·北京浏览75次收到腾讯网的热心用户大侠LJX关于北京烤鸭运行时错误13，类型不匹配的提问，关于这些疑难问题，进行了深入的分析。得到了网志问答众多网友的支持，得到了如下解决方案，摘录了部分优质回答，如对此有任何好的意见，欢迎大家进行探讨共同解决！

详细问题描述及疑问：期待您的答案，滴水之恩,来日我当涌泉相报 ！

本页链接：http://www.oxrm.com/question/1693299210217326