[已解决]VBA运行以后类型不匹配

Jared

各位VBA大神们，遇到一个问题请您们帮忙解决一下，希望用VBA实现公式“IFERROR(LEFT(B2,FIND(".",B2,1)-1),"没有名字")”的功能我在VBA里面公式表达成ActiveWorkbook.Sheets("campaigns").Range("b" & x) = Application.IfError(Left(Worksheets("campaigns").Range("a" & x), Application.Find(".", Worksheets("campaigns").Range("a" & x), 1) - 1), "没有名字")，（A列的行数不确定），运行完以后出现类型不匹配，求各位大神帮帮忙，非常感谢。

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-5-17 12:50

1. Sub aaa()
   
2. For i = 2 To [a65536].End(3).Row
   
3.   n = InStr(Cells(i, 1), ".")
   
4.   If n = 0 Then Cells(i, 3) = "没有名字" Else Cells(i, 3) = Left(Cells(i, 1), n - 1)
   
5. Next i
   
6. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. For i = 2 To [a65536].End(3).Row
   
3.   n = InStr(Cells(i, 1), ".")
   
4.   If n = 0 Then Cells(i, 3) = "没有名字" Else Cells(i, 3) = Left(Cells(i, 1), n - 1)
   
5. Next i
   
6. End Sub

复制代码

Jared

大灰狼1976 发表于 2017-5-17 12:50

谢谢大灰狼1976的帮助，运行以后没有问题，请问instr是什么意思，我之前的运行出错，哪里出问题了

大灰狼1976

instr()函数主要是判断一个字符串在另一个字符串中第一次出现的位置，没有出现的话值等于0，你可以参考帮助文件。
至于你的代码，虽然想用VBA实现，但使用的函数基本上还是工作表函数，所以我也没细看，因为对工作表函数不熟悉，请谅解，一般出问题都是由于变量和字符串没有组合好。

Jared

大灰狼1976 发表于 2017-5-17 16:11
instr()函数主要是判断一个字符串在另一个字符串中第一次出现的位置，没有出现的话值等于0，你可以参考帮助 ...

谢谢