单元格；大量；复制；卡死；

漫步到宇宙尽头

上个帖子好想是沉了，再发一次。希望能得到帮助吧。
我的程序算法是：将第9行中的数和单元格 G3 中的值比较，根据比较结果，将该列数据复制到不同的位置。
现在的问题是，程序执行时根本停不下来，有一种进死循环的感觉。只能用任务管理器强行结束进程。
请问这是什么问题啊？谢谢！

1. <font size="3">Sub 提取()
   
2.     '条件格式：比较符号：>
   
3.             '与条件格式相关的表达式或数值：G3
   
4.             '当符合条件时的操作：单元格背景色置为 黄色
   
5.    
   
6.     Dim ZongShuL, CntAnsA, CntAnsB As Integer   '计数器
   
7.     Dim MuBiaoZhi As Double  'MuBiaoZhi = 目标值：条件格式中的formula1单元格的值
   
8.     Dim Hang As Range   'Hang = 行：比较的那一行
   
9.     Dim AnsA, AnsB As Range '存储复制的起始目标地址，以便将比较结果复制到其他位置
   
10.    
    
11.     MuBiaoZhi = Range("G3").Value   '初始化
    
12.     Set Hang = Range("A9")
    
13.    
    
14.     Set AnsA = Range("A20")
    
15.     Set AnsB = AnsA.Offset(Hang.End(xlDown).Row - Hang.Row + 3)    '空2行
    
16.    
    
17.     Set Hang = Range(Hang.Address, Hang.End(xlToRight))
    
18.     ZongShuL = Hang.Count
    
19.    
    
20.     For Each Inp In Hang
    
21.         If Inp.Value > MuBiaoZhi Then
    
22.             Inp.Resize(Inp.End(xlDown).Row - Inp.Row + 1).Copy AnsA.Offset(, CntAnsA)
    
23.             CntAnsA = CntAnsA + 1
    
24.         Else
    
25.             Inp.Resize(Inp.End(xlDown).Row - Inp.Row + 1).Copy AnsB.Offset(, CntAnsB)
    
26.             CntAnsB = CntAnsB + 1
    
27.         End If
    
28.     Next
    
29.    
    
30. End Sub</font>
    

复制代码

代码如下：

abc123281

测试abc123.rar (48.08 KB, 下载次数: 3)

2018-6-12 10:28 上传

点击文件名下载附件