excel问题五提问在工作表二里面,详
请看附件。
方法:
1,右击sheet2标签,写入程序。
Sub m() '给小程序起个名字叫m
r = 3 '计划从sheet2的第三行开始填写
Range("A3:B200")。 ClearContents '先清除所有原有数据
For i = 2 To Sheet1。[a1]。End(xlDown)。Row '计划从sheet1的第2行到最后1行反复查找数据
If Sheet1。 Cells(i, 2) >= 60 Then '如果sheet1的第2行第2列大于等于60,也就是及格的话。。。
Cells(r, 1) = Sheet1。Cells(i, 1) '那么就让sheet2...全部
请看附件。
方法:
1,右击sheet2标签,写入程序。
Sub m() '给小程序起个名字叫m
r = 3 '计划从sheet2的第三行开始填写
Range("A3:B200")。
ClearContents '先清除所有原有数据
For i = 2 To Sheet1。[a1]。End(xlDown)。Row '计划从sheet1的第2行到最后1行反复查找数据
If Sheet1。
Cells(i, 2) >= 60 Then '如果sheet1的第2行第2列大于等于60,也就是及格的话。。。
Cells(r, 1) = Sheet1。Cells(i, 1) '那么就让sheet2第3行第一列等于sheet1第2行第2列
Cells(r, 2) = Sheet1。
Cells(i, 2) '再让sheet2第3行第2等于sheet1第2行第2列
r = r + 1 '指定下一次填写到第4行
End If '判断语句结束标志
Next i '接着从sheet1的第2行的下一行,也就是第3行查找数据,如此反复到最后一行
End Sub '程序结束
2,选中sheet2的表头(A1:B2),复制,按住shift,点菜单-编辑-粘贴图像-确定
3,右击图片,选择指定宏,指定为刚才写的m这个宏。
完成。收起