轮流提取指定范围内容到指定位置

天地一相

感谢帮助！详见截图附件。

fzxba

天地一相 发表于 2023-2-10 21:53
谢谢，在你代码的基础上我修改了，见附图。折腾好半天，为什么 x 这个点击值不能从 0 开始？测试发现总是 ...

Sub test0()
  Dim ar
  Static n As Integer
  ar = Array("A3:F12", "A13:F22", "G3:L12", "G13:L22")
  Sheet3.Range(ar(n Mod 4)).Copy
  Sheet1.Range("Q3").PasteSpecial -4163
  n = n + 1
End Sub

fzxba

1. Sub test0()
   
2.   Dim ar
   
3.   Static n As Integer
   
4.   n = n + 1
   
5.   ar = Array("G3:L12", "A3:F12")
   
6.   Sheet3.Range(ar(n Mod 2)).Copy
   
7.   Sheet1.Range("Q3").PasteSpecial -4163
   
8. End Sub

复制代码

万事胜①

提取求助.zip (15.39 KB, 下载次数: 12)

2023-2-10 20:15 上传

点击文件名下载附件

天地一相

fzxba 发表于 2023-2-10 20:09

谢谢，在你代码的基础上我修改了，见附图。折腾好半天，为什么 x 这个点击值不能从 0 开始？测试发现总是直接从第2个开始提取，后来就在arr后的  x 减 1 才能从第1个开始提取。我想加一句，能在提取完毕后再点击就重新开始，又该如何加呢？

yamiedie

X=0  加一句   你都中级了啊

天地一相

yamiedie 发表于 2023-2-10 22:00
X=0  加一句   你都中级了啊

谢谢。这个0我试过，加上后就一种只提取第一组。你一说，我才注意到我竟然是“中级”了，惭愧，纯粹是求助码字的结果，学力不足，没什么长进。

caiyu93

fzxba 发表于 2023-2-10 20:09

1. Static Sub test()
   
2.     Dim arr(), n%
   
3.     arr = Array("a3:f12", "g3:l12")
   
4.     n = n Mod 2 + 1
   
5.     Sheet3.Range(arr(n - 1)).Copy Range("Q3")
   
6. End Sub
   

复制代码

你这个没考虑超过3w+直接溢出

fzxba

caiyu93 发表于 2023-2-11 03:13
你这个没考虑超过3w+直接溢出

吹毛求疵，你会点 2^15-1 次？
补个图：

天地一相

fzxba 发表于 2023-2-11 07:03
Sub test0()
  Dim ar
  Static n As Integer

谢谢。完全按照你的代码使用，发现速度很快，学到了，一是选择性粘贴能提速一些，二是用MOD实现循环提取。我分享一个测试结果，我只有2个表，虽然只有1个表内有公式需要计算，可是，ActiveSheet.Calculate 就比 Calculate 快的多 。现在，经过大家的帮助改进，一次数据的处理耗时已经从90秒缩减到20秒了。