怎样excel查找特定的几行然后一起复制?

Question

各位高手，帮帮我啊~~~~~~
这是学生资料的表格，每个学生占一行。
我的表格有1000行，我要在其中找出50个人的数据然后复制到另一个表格中。
我知道的方法是：查找一个，复制一个。但是这个方法太麻烦了(更多的怨言省略)。
请问有没有快的方法，先把所有的人都找出来（肯定不是利用眼睛一个一个的选定这些人，有1000多个啊），然后一次性复制?

我是新手。帮帮我啊，我也没有很多分可以回报各位高手得……

Answer 1

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

楼主，假设你的数据在Sheet1，要把数据复制到Sheet2去，并且Sheet1的A列数据是名字。

操作如下：

 

按Alt+F11，双击Sheet2（不要搞错），输入以下代码：

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)For j = 1 To Sheets(2).[A65536].End(xlUp).Row

For i = 1 To Sheets(1).[A65536].End(xlUp).Row

If Cells(j, 1).Value = Sheets(1).Cells(i, 1).Value Then

Sheets("sheet1").Rows(i).Copy Sheets("sheet2").Rows(j)

Exit For

End If

 

Next iNext j

End Sub

 

这样，切换到Sheet2，在sheet2的A列里面输入学生姓名，程序会自动把Sheet1中这个学生的整行资料复制过来。

 

下图点击可放大：

追问

请问输入
Private Sub Worksheet_SelectionChange(ByVal Target As Range)For j = 1 To Sheets(2).[A65536].End(xlUp).Row
For i = 1 To Sheets(1).[A65536].End(xlUp).Row
If Cells(j, 1).Value = Sheets(1).Cells(i, 1).Value Then
Sheets("sheet1").Rows(i).Copy Sheets("sheet2").Rows(j)
Exit For
End If

Next iNext j
End Sub
完了之后怎么办？不知道按哪里了

追答

输入完了就按右上角的X关了VBA编辑器啊，关了之后回到Excel后你去Sheet2的A列输入数据。（如我给的图所示）

另外你可以按照我的例子新建一个Excel文件做实验，表的名字一定要是sheet1和sheet2。当然，表的名字可以在代码里面改，自己看下就知道很简单。

追问

不行啊。打名字没反映...

追答

你加我qq 10174242，等我在线远程协助看看。

Answer 2

一、excel中有筛选功能的，把你要复制的数据筛选后再进行复制粘贴到另一个表格中
二、按住ctrl键，再点你要复制的数据进行复制粘贴

补充：如果你懂用函数，用VLOOKUP是最简单的

Answer 3

根据学生的名字或者学号用VLOOKUP查找确定哪些行有数据，然后再筛选有渠道学号或名字数据的行次

Answer 4

用筛选和过滤功能，就是那个大漏斗，选择筛选出条件后再复制即可

Answer 5

他们的学号有共同的几位吗，是不是一个班的，如果有，可以利用筛选试一下追问

整个学院的。。。

追答

50个的有什么共同点？

追问

都是女生。。。。
不同点很多，不同专业，不同楼层，不同班级。。。
总的来说是那些成绩好的人

追答

把成绩拿来筛选 多少分以上的