选取部分列重新排序

lucky515

请        教        大        神        吧                大        神        请        教
q        h        g        l        e                g        l        q        h
u        e        o        u        n                o        u        u        e
e        l        o        c        d                o        c        e        l
s        l        d        k                        d        k        s        l
t        o                                                        t        o
i                                                                i       
o                                                                o       
n                                                                n       

如从左边表格中重新排序成右边表格

===================================================================

可能表达不好，其实我是想要这样的效果，但为什么复制的时候不行呢？希望高手指点一下！！

出现2种情况，1、只复制了1和3列；2、提示运行时错误‘1004’ 方法‘range’作用于对象‘_worksheet’ 时失败

Sub 固定顺序()
    For n = 1 To 3
    For i = 1 To 3
    If Sheet2.Cells(1, n) = Sheet1.Cells(1, i) Then Sheet1.Range(Cells(2, i), Cells(50000, i)).Copy Sheet2.Cells(2, n)
    Next i
    Next n
End Sub

zax010

Sub zz()
    sx = Array(3, 4, 1, 2)
    For i = LBound(sx) To UBound(sx)
        Range(Cells(1, sx(i)), Cells(9, sx(i))).Copy Cells(11, 1 + n)
        n = n + 1
    Next
End Sub

zax010

>>>>>>>>>>>>>>>>>>>
Booka1.rar (7.18 KB, 下载次数: 2)

2014-10-21 19:04 上传

点击文件名下载附件

lucky515

谢谢指点！！要好好学习多泡论坛才行！！