使用数组字典查同

ykcbf1100

天地一相 发表于 2024-4-22 13:16
请教你一个问题，VBA数组，行列是不是都是从1开始的，有人说从0，把我弄糊涂了。谢谢

一维数组下标一般为0，如Array函数的下标就是0,但st=[{1,2,3}]，这个st数组下标却是1
二维数组下标一般为1，如arr=[a1].resize(r,c)，这个数组arr下标就是1

天地一相

ykcbf1100 发表于 2024-4-22 13:39
一维数组下标一般为0，如Array函数的下标就是0,但st=[{1,2,3}]，这个st数组下标却是1
二维数组下标一般 ...

请教一下，我写了段代码，请看看哪里不对。我是想把数组里符合条件判断的数据填装进一个新的数组。

ykcbf1100

天地一相 发表于 2024-4-22 15:19
请教一下，我写了段代码，请看看哪里不对。我是想把数组里符合条件判断的数据填装进一个新的数组。

redim和ReDim Preserve，这二个数组是不一样的。感觉ReDim Preserve这个没必要的。if k=1 then这个判断直接去掉。前面定义一个myarr数组，比如：redim myarr(1 to 100000,1 to 26)即可。另外，ReDim Preserve这个还会拖累速度。

天地一相

ykcbf1100 发表于 2024-4-22 15:56
redim和ReDim Preserve，这二个数组是不一样的。感觉ReDim Preserve这个没必要的。if k=1 then这个判断直 ...

好的，谢谢，我尝试下。

天地一相

ykcbf1100 发表于 2024-4-22 15:56
redim和ReDim Preserve，这二个数组是不一样的。感觉ReDim Preserve这个没必要的。if k=1 then这个判断直 ...

谢谢。按你说的，搞定了。原来200秒的，现在3.8秒！美死了

ykcbf1100

天地一相 发表于 2024-4-22 16:41
谢谢。按你说的，搞定了。原来200秒的，现在3.8秒！美死了

有成就感了吧。

天地一相

ykcbf1100 发表于 2024-4-22 16:45
有成就感了吧。

是啊，真没想到自己能折腾出这样复杂的东西来。刚把各个部分组装完成做了一个测试，速度提高了200倍。

天地一相

ykcbf1100 发表于 2024-4-21 13:48
字典是按行来的，即每一行数据都要字典重新来一次。说下原理吧，对行进行循环，先对数组arr字典排重，然后 ...

又看了你的解答和代码，对字典始终没领悟理解。现在只用数组，速度也飞快。不知道若使用字典，还能有多大提速空间。在数组循环的测试中我观察到一个现象。如，我一行6个在5-26循环比对，第1个找到退出比对时，我记录了位置，想着第2个就无需在第1个已经找过的区域浪费时间，直接就从第1个退出时记录点的下一个位置开始。没想到，这样反而耗时增加了。结论是，让这6个位置把右侧全部循环反而更快。数组是快，但中途想暂停可就难了，没反应。找到办法做了暂停按钮。

ykcbf1100

天地一相 发表于 2024-4-23 09:29
又看了你的解答和代码，对字典始终没领悟理解。现在只用数组，速度也飞快。不知道若使用字典，还能有多大 ...

处理数据，字典和数组都是非常重要的，你一定要学会，用字典少不了数组。

天地一相

ykcbf1100 发表于 2024-4-23 09:38
处理数据，字典和数组都是非常重要的，你一定要学会，用字典少不了数组。

数组经过这一次，似乎入门了，知道咋写了，效果杠杠的。字典得努力学习下，模仿练习下，看能不能掌握学会。