在Excel中,如何将Sheet1中符合条件的某一单元格所在行的所有数据,自动调用到Sheet2中?
如在Sheet1中:班级姓名语文数学0501张巍731210501王秉璐85121。。。。0502徐天铭1131410502李成96135。。。。0503车文浩82660...
如在Sheet1中:
班级 姓 名 语文 数学
0501 张 巍 73 121
0501 王秉璐 85 121
。。。。
0502 徐天铭 113 141
0502 李 成 96 135
。。。。
0503 车文浩 82 66
0503 刘海云 84 64
。。。。。
。。。。
要求
自动把0501班的学生成绩显示在Sheet2中,
自动把0502班的学生成绩显示在Sheet3中,
自动把0503班的学生成绩显示在Sheet4中,
。。。。。
。。。。
这样做好以后,再月考结束后,只要把全年级的成绩复制粘贴到Sheet1中,即可自动分离出各班的成绩 展开
班级 姓 名 语文 数学
0501 张 巍 73 121
0501 王秉璐 85 121
。。。。
0502 徐天铭 113 141
0502 李 成 96 135
。。。。
0503 车文浩 82 66
0503 刘海云 84 64
。。。。。
。。。。
要求
自动把0501班的学生成绩显示在Sheet2中,
自动把0502班的学生成绩显示在Sheet3中,
自动把0503班的学生成绩显示在Sheet4中,
。。。。。
。。。。
这样做好以后,再月考结束后,只要把全年级的成绩复制粘贴到Sheet1中,即可自动分离出各班的成绩 展开
展开全部
知道数据横向的范围吧。
For i = titlnum + 1 To titlnum + maxstu
If Worksheets(fro_nm).Cells(i, 1).Value = Int(clnum) Then
h = h + 1
For j = 1 To ahnum
sfs(h, j) = Worksheets(fro_nm).Cells(i, j).Value
Next
End If
Next
先把所有的数据读入数组,然后在新建表格,写入数据。我也是排成绩的,有机会可以讨论一下啊。
For i = titlnum + 1 To titlnum + maxstu
If Worksheets(fro_nm).Cells(i, 1).Value = Int(clnum) Then
h = h + 1
For j = 1 To ahnum
sfs(h, j) = Worksheets(fro_nm).Cells(i, j).Value
Next
End If
Next
先把所有的数据读入数组,然后在新建表格,写入数据。我也是排成绩的,有机会可以讨论一下啊。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询