抛砖引玉，VBA编写的简单VBA程序解释器，期待您的进一步完善与改进(最新：进化5)

开机人 · 发表于 2010-4-5 15:56

谢谢分享！又是一个学习的途径！

summerpan · 发表于 2010-4-5 18:31

很喜欢这种分享与讨论的氛围，虽然大家回复内容不如猫扑那种热烈，但都是积极有意义的交流

wss0002 · 发表于 2010-4-5 18:49

原帖由 kevinchengcw 于 2010-3-21 08:22 发表

我本来就不专业啊，如果你知道了我是干什么的你就不会这样说了，我的工作跟这个东西可以说一点关系都没有，只是个人兴趣尔矣，我觉得凡事不要想得太复杂了，不然什么都不敢做了，如果因为有windows了，那为什么还 ...

支持，哪位有专业的，为什么不拿出来共享一下呢，反而对人家进行指责，而不是提出好看建议呢？

lbl016 · 发表于 2010-4-5 20:49

Sub test2()
With Worksheets("目标表")
Columns(2).Insert
End With
End Sub是这样吗？

[ 本帖最后由 lbl016 于 2010-4-5 21:24 编辑 ]

kevinchengcw · 发表于 2010-4-5 21:30

With Worksheets("目标")
Worksheets("数据源").Columns(Arr1(c)).Insert.Columns (Arr2(2))
End With
这是关键的地方,差了循环,还有就是插入也是要先复制再插入的,再参考我写给你那个研究一下

lbl016 · 发表于 2010-4-5 21:45

Sub test2()
Dim Arr1, Arr2
Dim N As Integer
Arr1 = Split("A,B,C,D", ",")
Arr2 = Split("C,D,B,A", ",")
Application.ScreenUpdating = False
For N = LBound(Arr1) To UBound(Arr1)
With Worksheets("目标表")
Worksheets("源表").Columns(Arr1(c)).Copy.Columns(Arr2(2)).Insert
End With
Next N

End Sub
这样还是出错

libaoshui · 发表于 2010-4-6 16:19

对于新手来说，确实很实用！谢谢分享！

kevinchengcw · 发表于 2010-4-6 16:34

原帖由 lbl016 于 2010-4-5 21:45 发表
Sub test2()
Dim Arr1, Arr2
Dim N As Integer
Arr1 = Split("A,B,C,D", ",")
Arr2 = Split("C,D,B,A", ",")
Application.ScreenUpdating = False
For N = LBound(Arr1) To UBound(Arr1)
With Worksheets ...

Sub test2()
Dim Arr1, Arr2
Dim N As Integer
Arr1 = Split("A,B,C,D", ",")
Arr2 = Split("C,D,B,A", ",")
Application.ScreenUpdating = False
For N = LBound(Arr1) To UBound(Arr1)
With Worksheets("目标表")
Worksheets("源表").Columns(Arr1(n)).Copy
.Columns(Arr2(n)).Insert
End With
Next N
Application.ScreenUpdating = true
End Sub

lbl016 · 发表于 2010-4-6 17:18

原帖由 kevinchengcw 于 2010-4-6 16:34 发表

Sub test2()
Dim Arr1, Arr2
Dim N As Integer
Arr1 = Split("A,B,C,D", ",")
Arr2 = Split("C,D,B,A", ",")
Application.ScreenUpdating = False
For N = LBound(Arr1) To UBound(Arr1)
With Workshee ...

用代码如何将源表C列插入目标表指定的列如D与E之间呢

lb_bn · 发表于 2010-4-6 17:32

又更新,楼主辛苦了.

再次支持.

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

[分享] 抛砖引玉，VBA编写的简单VBA程序解释器，期待您的进一步完善与改进(最新：进化5)