求修改代码

lagos · 发表于 2023-6-7 15:02

下拉公式，详情请见附件：

求修改优化代码DA.rar (30.15 KB, 下载次数: 5)

蓝桥玄霜 · 发表于 2023-6-7 15:48

把同样的公式复制到同样的单元格，重复96次～420次，有什么具体意义？纯粹为了求代码执行所花的时间？

lagos · 发表于 2023-6-7 16:01

本帖最后由 lagos 于 2023-6-7 16:03 编辑

蓝桥玄霜发表于 2023-6-7 15:48
把同样的公式复制到同样的单元格，重复96次～420次，有什么具体意义？纯粹为了求代码执行所花的时间？

在频繁的下拉过程中，有一个下拉的痕迹，这是
Sub NtoO()
lr = Range("A65536").End(3).Row
Range("N2:O2").Select
If lr > 2 Then
Selection.AutoFill Destination:=Range("N2:O" & lr), Type:=xlFillDefault
Range("N2:O" & lr).Select
End If
End Sub
这段宏造成的，想看看有没有其他的能够消除掉那个痕迹。重复多次，是把那个痕迹突出表达出来，而且，不是单纯的重复哦，那些算式每一个的符号都不一样的

suntao2000 · 发表于 2023-6-7 16:03

我没看就知道你写入又覆盖，做无用功又不说明意义在哪里，别人理解不了不想去做

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

[求助] 求修改代码