从另一张表提取相应的列到台帐中

eyesonme22 · 发表于 2018-9-8 21:26

本帖最后由 eyesonme22 于 2018-9-9 00:33 编辑

满足以下条件：
一、按表1中AA列时间先后顺序提取内容至台帐
二、提取的内容如下：
提取表1：AM列  显示到台帐表C列
提取表1：D列显示到台帐表D列
提取表1：H列显示到台帐表F列
提取表1：I列显示到台帐表G列
提取表1：L列显示到台帐表H列
提取表1：T列显示到台帐表I列
提取表1：AI列  显示到台帐表J列
提取表1：AJ列  显示到台帐表K列
提取表1：U列显示到台帐表L列
三、只提取相关列数，不相关的，如E列不更新
四、能自动隐藏B列为“已转”的行。

非常感谢大神

不知道为什么 · 发表于 2018-9-8 21:29

代码简洁，速度也不一定快哦

eyesonme22 · 发表于 2018-9-8 21:40

不知道为什么发表于 2018-9-8 21:29
代码简洁，速度也不一定快哦

那就运行速度快

lsc900707 · 发表于 2018-9-8 22:25

用数组处理就好了！

lsc900707 · 发表于 2018-9-8 22:41

Sub gj23w98()
arr = Sheet17.UsedRange
ReDim brr(1 To UBound(arr), 1 To 10)
For i = 7 To UBound(arr)
m = m + 1
brr(m, 1) = arr(i, 39)
brr(m, 2) = arr(i, 4)
brr(m, 4) = arr(i, 8)
brr(m, 5) = arr(i, 9)
brr(m, 6) = arr(i, 12)
brr(m, 7) = arr(i, 20)
brr(m, 8) = arr(i, 35)
brr(m, 9) = arr(i, 36)
brr(m, 10) = arr(i, 21)
Next
[c7].Resize(m, 10) = brr
End Sub

复制代码

lsc900707 · 发表于 2018-9-8 22:43

代码审核，先测试附件：

eyesonme22 · 发表于 2018-9-8 22:48

lsc900707 发表于 2018-9-8 22:43
代码审核，先测试附件：

这是我原来的代码，很慢

lsc900707 · 发表于 2018-9-8 23:03

eyesonme22 发表于 2018-9-8 22:48
这是我原来的代码，很慢

按钮新连接了代码，你没看到吗？

eyesonme22 · 发表于 2018-9-8 23:04

lsc900707 发表于 2018-9-8 23:03
按钮新连接了代码，你没看到吗？

要求E列不更新啊，这个一点E列也被刷了，怎么办？大神

eyesonme22 · 发表于 2018-9-8 23:34

lsc900707 发表于 2018-9-8 23:03
按钮新连接了代码，你没看到吗？

有办法不刷新E列吗？只刷新更新的那个几，不关联中间列

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

[求助] 从另一张表提取相应的列到台帐中

点评