关于excle问题

Question

我现在有一个excle表格数据全部在sheet1内,我现在想从sheet1内的数据中按照某个条件筛选出部分数据放到sheet2。如何处理？
比如：sheet1内为：借款人姓名： 借款金额 借款日期 到期日期 借款科目等信息。我现在想将贷款科目为1234，借款金额大于50万元的。数据放到sheet2中。

Answer 1

如果只是一次性操作，按照条件筛选后复制再粘贴到sheet2中。
如果sheet1经常需要变化，就必须用函数公式解决。
1)在sheet1的a列前插入一个辅助列（即新的A列，原来的A列借款人姓名就变成了B列，类推），在新的辅助列a2输入：=if(and(c2>5000000,f2=1234),"OK","") 公式下拉
2)在sheet2的a2单元格输入：
=INDEX(sheet1!B:B,SMALL(IF(sheet1!$A$2:$A$65536="OK",ROW(sheet1!$A$2:$A$65536),4^8),ROW(A1)))&""
数组公式，按ctrl+shift+enter三键结束，公式下拉右拉。

Answer 2

A B C D E
1 借款人姓名 借款金额 借款日期 到期日期 借款科日
2
3
4
假设你的表格如上所述。而具借款金额为数值格式。如50万元写作 500000
那么可以使用一个小小的VBA代码即可搞定了
把下面的代码贴在VBA代码窗口中运行即可

Sub ppadf()
q = 2
Sheets("sheet2").Range("a2:e65536").Clear
For a = 2 To Sheets("sheet1").[b65536].End(xlUp).Row
If Sheets("sheet1").Cells(a, 2) > 500000 And Sheets("sheet1").Cells(a, 5) = "1234" Then
Sheets("sheet2").Cells(q, 1) = Sheets("sheet1").Cells(a, 1)
Sheets("sheet2").Cells(q, 2) = Sheets("sheet1").Cells(a, 2)
Sheets("sheet2").Cells(q, 3) = Sheets("sheet1").Cells(a, 3)
Sheets("sheet2").Cells(q, 4) = Sheets("sheet1").Cells(a, 4)
Sheets("sheet2").Cells(q, 5) = Sheets("sheet1").Cells(a, 5)
q = q + 1
End If
Next
End Sub

Answer 3

EXCEL用宏把Sheet1中数据复制到Sheet2中
Dim i As Long
Sub Macro4()
'
' Macro4 Macro
' 宏由 微软用户 录制，时间: 2009-12-8
'
' 快捷键: Ctrl+d
r = ActiveCell.Row
i = i + 1
Sheets("Sheet1").Rows([r]).Copy Destination:=Sheets("Sheet2").Rows([i])

End Sub

Answer 4

用高级筛选
在第一行上面新增一行
在借款科目上面一个格子里填1234，借款金额上面填500000
点击数据/筛选/高级筛选
列表区域选第二行以下的数据，条件区域选第一行，确定
Ctrl+A全选，复制到新工作表里

Answer 5

数据----筛选-----自动筛选-----自定义

然后复制粘帖到SHEET2

Answer 6

数据透视表,然后加条件