[已解决]请教一个数据提取问题，谢谢！

bipl607

如题，用宏不用公式，谢谢！详见附件

最佳答案

月排行榜 / 总排行榜

爱疯

2016-2-26 17:23

'说明：提取指定列，到对应的列
Sub test()
    Dim A, B, temp, i
    A = Array("J", "L", "O")    '源
    B = Array("I", "J", "K")    '目的

    With Sheets("原始")
        For i = 0 To UBound(A)
            temp = .Range(.Cells(2, A(i)), .Cells(Rows.Count, A(i)).End(xlUp))
            Sheets("结果").Range(B(i) & ":" & B(i)).ClearContents
            Sheets("结果").Cells(1, B(i)).Resize(UBound(temp)) = temp
        Next
    End With
End Sub
提取数据2.rar (11.16 KB, 下载次数: 12)

2016-2-26 17:23 上传

点击文件名下载附件




不知提取规则是什么？
工作表名称自行修改。

跳转到最佳答案楼层

bipl607

结果工作表是我手工得到的，用宏怎么写呢？谢谢！

爱疯

'说明：提取指定列，到对应的列
Sub test()
    Dim A, B, temp, i
    A = Array("J", "L", "O")    '源
    B = Array("I", "J", "K")    '目的

    With Sheets("原始")
        For i = 0 To UBound(A)
            temp = .Range(.Cells(2, A(i)), .Cells(Rows.Count, A(i)).End(xlUp))
            Sheets("结果").Range(B(i) & ":" & B(i)).ClearContents
            Sheets("结果").Cells(1, B(i)).Resize(UBound(temp)) = temp
        Next
    End With
End Sub
提取数据2.rar (11.16 KB, 下载次数: 12)

2016-2-26 17:23 上传

点击文件名下载附件




不知提取规则是什么？
工作表名称自行修改。

bipl607

谢谢爱疯超级版主,代码简洁，还加了注，谢谢！