紧急求助，请大神指点

手浪用户255

想在列中将  批次信息：后面的数字批量提取出来，如果没有的就跳过，请大神指点

liulang0808

1. Sub 按钮1_Click()
   
2.     Application.ScreenUpdating = False
   
3.     arr = [a1].CurrentRegion
   
4.     For j = 2 To UBound(arr)
   
5.         arr(j, 2) = Split(Split(arr(j, 1), "批次信息：")(1), "；备注")(0)
   
6.     Next j
   
7.     [a1].CurrentRegion = arr
   
8.     Application.ScreenUpdating = True
   
9. End Sub
   

复制代码

liulang0808

附件供参考。。。。。。

手浪用户255

liulang0808 发表于 2018-1-21 19:41
附件供参考。。。。。。

非常感谢  先研究一下   谢谢

手浪用户255

liulang0808 发表于 2018-1-21 19:41
附件供参考。。。。。。

运行错误 下表越界？

liulang0808

手浪用户255 发表于 2018-1-21 20:03
运行错误 下表越界？

楼主看下附件啊，增加一列的标题

手浪用户255

liulang0808 发表于 2018-1-21 20:05
楼主看下附件啊，增加一列的标题

非常谢谢     确实出来了    没有看明白   我研究一下

手浪用户255

手浪用户255 发表于 2018-1-21 20:12
非常谢谢     确实出来了    没有看明白   我研究一下

没有看懂 能麻烦解释下吗？