只提取前2项数字

cql465505

Book1.rar (15.21 KB, 下载次数: 8)

2018-2-18 09:48 上传

点击文件名下载附件

liulang0808

针对楼主的当前数据格式

cql465505

谢谢 请发文件

cql465505

请发文件非常感谢

cql465505

Book1.rar (14.12 KB, 下载次数: 2)

2018-2-18 11:14 上传

点击文件名下载附件

请帮忙看看为什么下标越界

ww87725244

是ARR，不是AR

liulang0808

1. Option Explicit
   
2. Sub test()
   
3.    Dim arr
   
4.    Dim j As Integer
   
5.     arr = [a1].CurrentRegion
   
6.     For j = 1 To UBound(arr)
   
7.       Cells(j, "h") = Val(Split(arr(j, 1), "猕猴桃 ..")(1))
   
8.       Cells(j, "i") = Val(Split(arr(j, 1), "枣..")(1))
   
9.     Next j
   
10.    
    
11. End Sub
    

复制代码

楼主用点心就好了

cql465505

谢谢 非常感谢

cql465505

请帮忙看看 下标越界 谢谢

cql465505

Book2 2项.rar (14.95 KB, 下载次数: 5)

2018-2-18 14:34 上传

点击文件名下载附件

请帮忙看看 下标越界 谢谢