判断空值后删除相邻数据。感谢aoyq2007、cbtaja

ni57 · 发表于 2013-11-9 08:41

本帖最后由 ni57 于 2013-11-10 07:59 编辑

判断空值后删除相邻数据？谢谢

判断空值后.zip (8.62 KB, 下载次数: 20)

aoyq2007 · 发表于 2013-11-9 09:57

如附件，这是个简单处理方式，判断非空，然后填值
你的想法是可以的。

ni57 · 发表于 2013-11-9 10:11

不断地刷新看回复、不断地查阅其他例子，终于等来了，谢谢aoyq2007 的无私帮助，祝周末愉快！！

ni57 · 发表于 2013-11-9 10:18

非常非常慢？不会是我的电脑问题吧？可以快一些的代码吗？原本有5000多数据的

aoyq2007 · 发表于 2013-11-9 10:40

不知道，我的电脑上计算这100个数据时很快的，

给你的算法，效率在数据很多的时候确实会出现问题，因为每生成一个新的随机数，都要读写一次单元格，这是很耗速率的。

原算法字典直接赋值的方法是效率很好的，我改的算法效率是比不了得。

可以将D列的内容写入字典的item，判断item是否为空，然后将空值的Key删除，最后一次贴到单元格，似乎效率能提高不少。

aoyq2007 · 发表于 2013-11-9 10:54

我试了一下，如果5000多行数据的话，确实很慢，

用哈希表的方法应该会快，字典的方法好像这么多数据的话效率也会降低的。
不过我也不会哈希表。。。。。。
坐等高手了

aoyq2007 · 发表于 2013-11-9 11:11

自己重做了一个，5000数据速度还可以，小于1秒，
方法：字典直接赋值到单元格后，利用条件定位D列空值，然后清除数据。

注意，会将D列空值所在整行数据都删除，这样速度是很快，但不知对你的表格会不会损坏。
要不你复制一新表，生成随机数后再将其拷贝回去？（当然这个工作也可以用代码实现，不损坏原表）

这些都是笨的方法，但可以用，也不是太麻烦，呵呵，（自我安慰一下）

ni57 · 发表于 2013-11-9 14:49

非常感激aoyq2007，耽误你这么多时间。回去我在电脑上试一试，看看有没有影响。现在用手机上论坛。

cbtaja · 发表于 2013-11-9 15:36

本帖最后由 cbtaja 于 2013-11-9 15:58 编辑

用以下方法加快速度：
1、使用字典+数组，减少操作EXCEL对象。
2、与其生成随机数后再删除，不如判断后跳过
3、要快速生成不重复的随机数，需要加大随机数的生成范围，尽量避免出现重复值的循环。
4、把结果最后一次性写入表格。

Sub 艺术字22_单击()
Dim m&, dic, i&, r&, arr, t#
t = Timer
Set dic = CreateObject("scripting.dictionary")
Randomize (Timer)
r = [d65536].End(3).Row - 1
arr = [d2].Resize(r, 1)
For i = 1 To r
If arr(i, 1) <> "" Then
m = Int(Rnd() * 1000 * r)
Do While dic.exists(m)
m = Int(Rnd() * 1000 * r)
Loop
dic(m) = ""
arr(i, 1) = m
End If
Next
Set dic = Nothing
[E2].Resize(r , 1) = arr
MsgBox Timer - t
End Sub

复制代码

ni57 · 发表于 2013-11-10 07:58

非常感激热心的aoyq2007，7楼的作品又快又好；同样很感谢cbtaja慷慨出手，9楼的代码果然又快又好。周末愉快！！！

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

[分享] 判断空值后删除相邻数据。感谢aoyq2007、cbtaja