请教老师：如何复制筛选后的不连续N列

lsc900707 · 发表于 2018-9-15 09:41

zainan0810 发表于 2018-9-15 09:34
版主大人，我的意思就是：在O1中，任选一个数，把“原始数据”F:M中所有包含O1数字的行，提取到“查找第 ...

哦，我是用数组的方式提取符合条件的数据保存在数组内，你黏贴在哪里只要修改最后三行代码！

zainan0810 · 发表于 2018-9-15 11:24

lsc900707 发表于 2018-9-15 09:41
哦，我是用数组的方式提取符合条件的数据保存在数组内，你黏贴在哪里只要修改最后三行代码！

在版主老师的指点下，今天又学到了不少知识，把文件打开后出现的问题终于解决了。上来跟老师汇报一下，呵呵。老师您说的最后三行，学生是真的不会了，刚才上网查了半天，也是看的云里雾里。看来还得需要老师您把我扶上马送一程：就是按完“复制按钮”后，再打开另外一个文件，右键选粘贴，把它粘贴到另一个文件的A1单元格中。这样情况，最后三行怎么改呢？

lsc900707 · 发表于 2018-9-15 11:45

zainan0810 发表于 2018-9-15 11:24
在版主老师的指点下，今天又学到了不少知识，把文件打开后出现的问题终于解决了。上来跟老师汇报一下，呵 ...

你搞得这么复杂干嘛？跨簿复制还不如另存为新工作簿。

zainan0810 · 发表于 2018-9-15 11:57

lsc900707 发表于 2018-9-15 11:45
你搞得这么复杂干嘛？跨簿复制还不如另存为新工作簿。

回老师的话，粘贴到另外文件中，是因为另外文件计算需要这些数据。

lsc900707 · 发表于 2018-9-15 12:06

zainan0810 发表于 2018-9-15 11:57
回老师的话，粘贴到另外文件中，是因为另外文件计算需要这些数据。

你做个附件，在需要计算的工作簿里直接提取这些数据就好。

zainan0810 · 发表于 2018-9-15 12:08

lsc900707 发表于 2018-9-15 12:06
你做个附件，在需要计算的工作簿里直接提取这些数据就好。

好好，老师的主意应该是最佳选择。我这就做。

zainan0810 · 发表于 2018-9-15 12:52

lsc900707 发表于 2018-9-15 12:06
你做个附件，在需要计算的工作簿里直接提取这些数据就好。

对筛选后的不连续列复制后，报警.rar (134.16 KB, 下载次数: 4) 让版主老师辛苦了！！！

lsc900707 · 发表于 2018-9-15 15:58

zainan0810 发表于 2018-9-15 12:52
让版主老师辛苦了！！！

Sub gj23w98()
arr = [a1].CurrentRegion
ReDim Brr(1 To UBound(arr), 1 To 9)
For i = 2 To UBound(arr)
For k = 6 To 13
If arr(i, k) = [o1] Then
m = m + 1
Brr(m, 1) = arr(i, 1)
For j = 2 To 9
Brr(m, j) = arr(i, j + 4)
Next
End If
Next
Next
If m Then
With Sheets("原始数据")
.[a1].CurrentRegion.ClearContents
.[b:i].NumberFormatLocal = "@"
.[a1].Resize(m, 9) = Brr
End With
End If

复制代码

lsc900707 · 发表于 2018-9-15 16:00

zainan0810 发表于 2018-9-15 12:52
让版主老师辛苦了！！！

附件供测试：

zainan0810 · 发表于 2018-9-16 09:47

lsc900707 发表于 2018-9-15 16:00
附件供测试：

再次谢谢版主老师的辛苦！您的代码完全正确，而且实用性非常好！这两天在您身上，让我学到了不少知识，真诚的说声：让您受累啦！

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

[已解决] 请教老师：如何复制筛选后的不连续N列

评分

评分