提取指定列

RedMountain

大家好
想问下，将同一工作薄下的 “NUM1” "NUM2" "NUM3"...(可能还有更多个sheet) 的指定列 “A” 和 “B” （示例内是A、B两列，也有可能是A和F列）放入到sheet5中，如何实现？谢谢

vbee

=COUNTIF(INDIRECT(C10&"!A:A"),"*fzc")

凌空一羽

Sub lkyy()
Dim sht As Worksheet, ar As Range
For Each sht In Worksheets
    If sht.Name Like "NUM*" Then
        Set ar = sht.UsedRange
        n = n + 1
        Application.Index(ar, 0, 1).Copy Cells(1, n * 2 - 1)
        If Application.Count(Application.Index(ar, 0, 2)) Then c = 2 Else c = 6
        Application.Index(ar, 0, c).Copy Cells(1, n * 2)
    End If
Next
End Sub

RedMountain

凌空一羽 发表于 2018-8-5 11:56
Sub lkyy()
Dim sht As Worksheet, ar As Range
For Each sht In Worksheets

非常感谢答复，但是运行时却出现了错误提示“运行时错误“424”要求对象”。还有好像是自动将复制列的空单元格给去掉了（这个暂时不需要只要先复制过去就好）。

不知道为什么

RedMountain 发表于 2018-8-5 22:24
非常感谢答复，但是运行时却出现了错误提示“运行时错误“424”要求对象”。还有好像是自动将复制列的空 ...

需求说的不清晰，就不要浪费时间哈

RedMountain

不知道为什么 发表于 2018-8-5 23:02
需求说的不清晰，就不要浪费时间哈

嗯，我的意思是把“NUM1”的A\B列放到sheet5中的A\B列，"NUM2"的A\B列放到sheet5中的C\D列,"NUM3"的A\B列放到sheet5中的E\F列。
(最好sheet5内A1和B1单元格内容为“NUM1”，因为sheet5中A\B列是从“NUM1”复制过来的；以此类推，sheet5中的C1和D1单元格内容为“NUM2”，E1和F1单元格内容为“NUM3”)

我的帖子内的附件不能再编辑了，所以就啰嗦多点，请多包涵！！