免费问答

怎么重复筛选？一笔笔对还要一笔笔检查眼睛都花了

1.收集对账数据 1、从账务系统中导出银行存款明细账的数据，并保存为EXCEL文档，然后把相应的内容复制到图1中对应的栏目内。 2、银行对账单数据文件一般为DBF格式，也有的为EXCEL文档，如果为DBF文件，就需要转化为EXCEL文档，然后把对应的内容复制到对应的栏目内。处理完后的EXCEL文档，并把“sheet1”工作表重命名为“对账数据”。 二、自动核对对账数据 1、在“对账数据”工作表中选择[工具] →［宏］→［Visual Basic编辑器］菜单，进入VBA编辑窗口，执行［插入］→［模块］命令，插入模块1，然后在编辑窗口中输入如下代码。 Sub zdhd() Dim Irow As Integer, i As Integer, j As Integer Irow = [a1].CurrentRegion.Rows.Count ’取得行数 For i = 3 To Irow ’数据从第3行开始 For j = 3 To Irow If Cells(i, "C") = Cells(j, "K") Then ’如果C列i行等于K列j行 If Cells(i, "D") = Cells(j, "L") Then ’并且D列i行等于L列j行 If Cells(i, "C") <> "" Then ’并且C列i行不等于空 Cells(j, "L") = "√" ’则L列j行的值为√ Cells(i, "D") = "√" ’则D列i行的值为√ Exit For ’如果找到该单元格,则退出查找 End If:End If:End If:Next j:Next i For i = 3 To Irow ’注释与上相似 For j = 3 To Irow If Cells(i, "E") = Cells(j, "I") Then If Cells(i, "F") = Cells(j, "J") Then If Cells(i, "E")<>"" Then Cells(j, "J") = "√":Cells(i, "F") = "√" Exit For：End If：End If：End If：Next j：Next i End Sub 2、源代码编辑无误后保存并退出，再按上面的方法创建一个窗体按钮，并输入“生成调节表”文字，然后把“lhtjb”宏指定给此按钮，完成后按“生成调节表”按钮即可生成银行存款余额调节表。 四、整理银行存款余额调节表 1、仍按前面的方法插入一个模块3，然后在编辑窗口中输入如下代码。 Sub lhtzbzl() Dim i As Integer,Irow As Integer Irow = Sheet1.[a1].CurrentRegion.Rows.Count ’取得行数 Sheets("银行调节表").Activate ’激活银行调节表工作表 For i = 10 To Irow ’数据从第10行开始 If Cells(i, "A") = "" Then ’如果A列i行等于空 ’则选中A列i行至D列i行单元格 Sheet2.Range(Cells(i, "A"), Cells(i, "D")).Select Selection.Delete Shift:=xlUp ’向上删除选中单元格 End If：Next i：For i = 10 To Irow ’同上 If Cells(i, "E") = "" Then Sheet2.Range(Cells(i, "E"), Cells(i, "G")).Select Selection.Delete Shift:=xlUp End If：Next i：Cells(10, "H").Activate End Sub 2、源代码编辑无误后保存并退出，再按上面的方法创建一个窗体按钮，并输入“整理调节表”文字，然后把上面的“lhtzbzl”宏指定给此按钮，完成后按“整理调节表”按钮即可把未达账的空行删掉并整理好。至此，银行存款调节表自动完成，以后每月只要把银行日记账和对账单及上月未达账的数据对应复制到“对账数据”工作表中即可瞬间完成银行对账工作。 五、注意事项 1、对账数据文件中的数值类型必须一致，否则无法完成核对工作 2、对账时一般只要金额相等就会自动勾对，如果同时还要求时间相等的话，只要在代码中再加入一个判断语句即可；另外，遇到红字冲销的业务可用手工核销。