求大神VBA解决30万条数据的超难问题

lsdongjh · 发表于 2018-9-3 16:44

arr = Application.WorksheetFunction.Index(arr, 1, 0) '将ARR第一行用index方式写入ARR? 为什么要这句
strFindID = "'" & Join(arr, "','") & "'" '将ARR写入strFindID,成"单号1,单号2,...",作下面统行单号的条件

二维转一维，以便用JOIN方法组合，只是一个小技巧

香川群子 · 发表于 2018-9-3 17:34

数组计算+字典记录序号：

andyleeq · 发表于 2018-9-3 18:34

香川群子发表于 2018-9-3 17:34
数组计算+字典记录序号：

感谢，明天再学习下，试下

andyleeq · 发表于 2018-9-3 18:35

lsdongjh 发表于 2018-9-3 16:44
arr = Application.WorksheetFunction.Index(arr, 1, 0) '将ARR第一行用index方式写入ARR? 为什 ...

受教，谢谢

		自动登录	找回密码
密码			免费注册

[求助] 求大神VBA解决30万条数据的超难问题