请大侠帮忙看一下代码，运行速度可不可以加快点，感谢！

马小呆 · 发表于 2023-3-9 08:45

本帖最后由马小呆于 2023-3-11 09:26 编辑

从数据表提取数据，并修改格式。具体请见附件。

liulang0808 · 发表于 2023-3-9 12:14

建议楼主结合附件内容描述下具体需求的

马小呆 · 发表于 2023-3-9 13:21

liulang0808 发表于 2023-3-9 12:14
建议楼主结合附件内容描述下具体需求的

从数据中提取对应表指定位置的数据，然后，把指定列改格式为YYYY年mm月

当前代码的速度有点慢，希望可以提高运行速度

杨建营 · 发表于 2023-3-9 13:24

马小呆发表于 2023-3-9 13:21
从数据中提取对应表指定位置的数据，然后，把指定列改格式为YYYY年mm月

提取数据的范围有限制吗？是全部提取还是部分？是覆盖还是追加？

马小呆 · 发表于 2023-3-9 13:58

杨建营发表于 2023-3-9 13:24
提取数据的范围有限制吗？是全部提取还是部分？是覆盖还是追加？

谢谢！

范围有限制，先删除，再提取。我目前的代码是可以用的。就是有点慢

ykcbf1100 · 发表于 2023-3-9 14:02

没看明白。。。

马小呆 · 发表于 2023-3-9 15:24

ykcbf1100 发表于 2023-3-9 14:02
没看明白。。。

谢谢！

ShtNm = Array("表1", "表2", "表3", "表5")
DzNm = Array("D6:W", "D6:AT", "D6:CB", "D7:AB")

1、首先删除（提取数据）表指定区域

2、然后从（数据）表里，把这5个表指定的区域数据，复制到（提取数据）表。

3、最后把（提取数据）5个表中指定列，WzRq = Array("H", "I", "H", "G") 修改格式为 YYYY年mm月

这下看明白了吗？

马小呆 · 发表于 2023-3-9 15:31

ykcbf1100 发表于 2023-3-9 14:02
没看明白。。。

大致就是这个意思，当前这代码运行有点慢。想请大侠帮忙提提速。

ykcbf1100 · 发表于 2023-3-9 15:51

马小呆发表于 2023-3-9 15:31
大致就是这个意思，当前这代码运行有点慢。想请大侠帮忙提提速。

我看了一下二个工作簿中的数据没啥区别啊。整个表复制应该就可以了吧。

bqwd36 · 发表于 2023-3-9 15:52

不懂随便瞎说说哈，清除区域10万行是要慢了吧，还有sql出来的数据我怎么记得就只有数据没有公式了，咋还要再赋值啊，最后那个改格式为日期感觉是会拖累速度，是不是可以换个命令？

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

[求助] 请大侠帮忙看一下代码，运行速度可不可以加快点，感谢！