EXCEL中怎样一列多行筛选

wanlinaa

这是一个银行流水的表格，现在要求筛选出某一个收款人后，同时这一收款人的相关的4行数据全部筛选出来。

zpy2

with a as (select rowid,(rowid % 4) id,* from 银行交易原始明细表), b as (select * from a where id=2),c as(select rowid,id, 交易日期 交易码, 交易账号 交易货币, 交易流水号 借贷标识, 交易类型 冲正标识, 交易时间 交易柜员, 交易金额 交易后余额, 交易机构号 备注, 交易机构名 用途, 附言 摘要, 付款人 收款人, 付款账号 收款账号, 付款账户机构名 收款所属机构名, 付款账户机构号 收款账户机构号 from a where id=0),d as(select * from b,c where b.rowid=(c.rowid-2))
select * from d where 付款人 like '张浩' and 收款人 like '张三'


数据整理一下吧，然后再搜

当家的MAX

1. Sub test()
   
2. Dim arr1, i%, Quyu As Range, sht1 As Worksheet
   
3. arr1 = Sheets(1).Range("a1:m" & Sheets(1).Range("a" & Rows.Count).End(xlUp).Row).Value
   
4. Set sht1 = Sheets.Add(after:=Sheets(Sheets.Count))
   
5. For i = 1 To UBound(arr1) - 3
   
6.     If arr1(i, 10) = "付款人" And arr1(i + 1, 10) = "张浩" And arr1(i + 2, 10) = "收款人" _
   
7.     And arr1(i + 3, 10) = "张三" Then
   
8.         If Quyu Is Nothing Then
   
9.             Set Quyu = Sheets(1).Rows(i & ":" & i + 3)
   
10.         Else
    
11.             Set Quyu = Union(Quyu, Sheets(1).Rows(i & ":" & i + 3))
    
12.         End If
    
13.     End If
    
14. Next
    
15. Quyu.Copy sht1.Range("a1")
    
16. End Sub

复制代码