程序运行太慢

huys · 发表于 2023-5-29 20:27

附件是一个不重复分组程序，但在运行下列循环中速度很慢，麻烦大家帮优化优化，谢谢！

  Do While k < Z
      If WorksheetFunction.CountIf(Sheets("过渡表").Range("A:A"), Cells(i, 1)) = 0 Then
         Cells(i, 1).Resize(1, m).Copy Sheets("过渡表").[A10000].End(xlUp).Offset(1, 0)
         Rows(i).Delete
         k = k + 1
      End If
      i = i - 1
   Loop

测试.rar (36.84 KB, 下载次数: 13)

边缘码农 · 发表于 2023-5-30 08:04

速度慢的原因：
1、没有禁止屏幕刷新。
2、大量直接操作单元格。

边缘码农 · 发表于 2023-5-30 08:24

你有没有测试过？
在我这里，输入人数的一段程序，是死循环，不管输入的人数是多少，都提示“输入错误”，MaxZ这个变量是在什么地方赋值的？我这里显示是空值，也就是0。

边缘码农 · 发表于 2023-5-30 08:26

另外：分组的依据是什么？为什么每组写入到一个工作表中？在一个工作表中分列显示各组行不行？

边缘码农 · 发表于 2023-5-30 08:38

原始数据中，学号存在很多重复数据，“不重复分组”是什么含义？删除重复项在分组？还是有其他含义？

边缘码农 · 发表于 2023-5-30 08:43

经研究发现，大约明白了，所分的每个组中，不能有重复的学号，不同的组中，可以有重复的学号，

边缘码农 · 发表于 2023-5-30 08:46

我个人认为：你说一下分组的原则，最多分成多少组，一键分组的代码需要重写。

边缘码农 · 发表于 2023-5-30 08:49

学号存在重复的意义是什么？

吴中泉 · 发表于 2023-5-30 08:51

彼岸归航 · 发表于 2023-5-30 09:10

程序开始加上Application.ScreenUpdating = False，结束前加上Application.ScreenUpdating = True，还想更快就用数组

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

[求助] 程序运行太慢

评分

评分

评分