Vba split函数可以用*星号作为分隔符吗？

zhangjianan2010

Vba split函数可以用*型号作为分隔符吗？在cells(3,3)单元格输入SQQVGA时，出现错误－－提示"运行时错误 9，下标越界"，"运行时错误28，溢出堆栈空间"，然后指向下面第三行代码
if cells(3,3) like "*" then
   a=split(cells(3,3), "*",2)(0)
   b=split(cells(3,3), "*",2)(1)
   cells(3,4)=a
   cells(3,5)=b
else
  if cells(3,3)="SQQVGA1" then
     cells(3,4)=96
     cells(3,5)=64
  elseif …
     …
  end if
end if

山菊花

错误出在第1行：
if cells(3,3) like "*" then

通配符用法：
If Cells(3, 3) Like "*[*]*" Then

或把Like改为Instr()：
If InStr(Cells(3, 3), "*") > 0 Then

zhangjianan2010

山菊花 发表于 2017-6-29 13:19
错误出在第1行：
if cells(3,3) like "*" then

可以了，非常感谢！

zhangjianan2010

山菊花 发表于 2017-6-29 13:19
错误出在第1行：
if cells(3,3) like "*" then

百度搜寻解决方案一直没找到，现在可以了，真的非常感谢！

zhangjianan2010

山菊花 发表于 2017-6-29 13:19
错误出在第1行：
if cells(3,3) like "*" then

百度搜寻解决方案一直没找到，现在可以了，真的非常感谢您的回复！

山菊花

问题解决就好，祝你工作顺利，学习愉快！
多说两句：
1、
Like中，*是一个通配符，代表所有字符。

查找文本是否以“百度”开头，可以这样写：
if cells(3,3) like "百度*" then

查找文本是否以句号“。”结束，可以这样写：
if cells(3,3) like "*。" then

查找文本是否包含“感谢”，可以这样写：
if cells(3,3) like "*感谢*" then

查找文本是否包含成对的括号“()”，可以这样写：
if cells(3,3) like "*(*)*" then

查找文本中是否包含星号“*”，如上面的回复，星号“*”必须加上中括号将其转义，让系统不将其识别为通配符，而是一个普通的字符。

通配符除了星号“*”，还有“#”，匹配所有数字，查找文本中是否包含数字，可以这样写：
if cells(3,3) like "*#*" then

关于Like，更多解释，请按F1查看相关帮助。

2、

1.    a=split(cells(3,3), "*",2)(0)
   
2.    b=split(cells(3,3), "*",2)(1)
   
3.    cells(3,4)=a
   
4.    cells(3,5)=b
   

复制代码

上面的代码可以这样写：
   Cells(3, 4).Resize(1, 2).Value = Split(Cells(3, 3), "*", 2)
减少程序中计算的次数。
或者先将Split()的结果保存到一数组：
    Arr = Split(Cells(3, 3), "*")
    Range("d3:e3").Value = Arr

zhangjianan2010

山菊花 发表于 2017-6-29 14:45
问题解决就好，祝你工作顺利，学习愉快！
多说两句：
1、

厉害，学习了！

wagess

收藏，正在找用法 ，真是太感谢了