[已解决]提取数据

大灰狼1976

你这个不是B3单元格开始吗？只要确定源数据范围就行了，arr=range("b3:k" & [b65536].end(3).row)。
另，表格中出现了两位数，结果你会分不清是1还是10的。
自动运行请自行查阅ONTIME的用法。

a316667229

大灰狼1976 发表于 2017-9-18 15:45
你这个不是B3单元格开始吗？只要确定源数据范围就行了，arr=range("b3:k" & .end(3).row)。
另，表格中出 ...

好的，谢谢

a316667229

大灰狼1976 发表于 2017-9-18 15:45
你这个不是B3单元格开始吗？只要确定源数据范围就行了，arr=range("b3:k" & .end(3).row)。
另，表格中出 ...

是啊，老师，我也在为这个两位数变成一位数烦恼，改来改去都是错，没办法了，只能求助你了，VBA太深奥，比如说10的话就是0，其他的123456789都不变

大灰狼1976

10变成0的话，只要把：
s = s & arr(k, j)
改成：
s = s & arr(k, j) mod 10
就行了。

jiahb2001

学习