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

开机人

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

summerpan

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

wss0002

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


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

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

lbl016

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

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

kevinchengcw

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

lbl016

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

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

kevinchengcw

原帖由 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

原帖由 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

又更新,楼主辛苦了.
再次支持.