免費問答

怎么重復(fù)篩選？一筆筆對還要一筆筆檢查眼睛都花了

1.收集對賬數(shù)據(jù) 1、從賬務(wù)系統(tǒng)中導(dǎo)出銀行存款明細賬的數(shù)據(jù)，并保存為EXCEL文檔，然后把相應(yīng)的內(nèi)容復(fù)制到圖1中對應(yīng)的欄目內(nèi)。 2、銀行對賬單數(shù)據(jù)文件一般為DBF格式，也有的為EXCEL文檔，如果為DBF文件，就需要轉(zhuǎn)化為EXCEL文檔，然后把對應(yīng)的內(nèi)容復(fù)制到對應(yīng)的欄目內(nèi)。處理完后的EXCEL文檔，并把“sheet1”工作表重命名為“對賬數(shù)據(jù)”。 二、自動核對對賬數(shù)據(jù) 1、在“對賬數(shù)據(jù)”工作表中選擇[工具] →［宏］→［Visual Basic編輯器］菜單，進入VBA編輯窗口，執(zhí)行［插入］→［模塊］命令，插入模塊1，然后在編輯窗口中輸入如下代碼。 Sub zdhd() Dim Irow As Integer, i As Integer, j As Integer Irow = [a1].CurrentRegion.Rows.Count ’取得行數(shù) For i = 3 To Irow ’數(shù)據(jù)從第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、源代碼編輯無誤后保存并退出，再按上面的方法創(chuàng)建一個窗體按鈕，并輸入“生成調(diào)節(jié)表”文字，然后把“l(fā)htjb”宏指定給此按鈕，完成后按“生成調(diào)節(jié)表”按鈕即可生成銀行存款余額調(diào)節(jié)表。 四、整理銀行存款余額調(diào)節(jié)表 1、仍按前面的方法插入一個模塊3，然后在編輯窗口中輸入如下代碼。 Sub lhtzbzl() Dim i As Integer,Irow As Integer Irow = Sheet1.[a1].CurrentRegion.Rows.Count ’取得行數(shù) Sheets("銀行調(diào)節(jié)表").Activate ’激活銀行調(diào)節(jié)表工作表 For i = 10 To Irow ’數(shù)據(jù)從第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、源代碼編輯無誤后保存并退出，再按上面的方法創(chuàng)建一個窗體按鈕，并輸入“整理調(diào)節(jié)表”文字，然后把上面的“l(fā)htzbzl”宏指定給此按鈕，完成后按“整理調(diào)節(jié)表”按鈕即可把未達賬的空行刪掉并整理好。至此，銀行存款調(diào)節(jié)表自動完成，以后每月只要把銀行日記賬和對賬單及上月未達賬的數(shù)據(jù)對應(yīng)復(fù)制到“對賬數(shù)據(jù)”工作表中即可瞬間完成銀行對賬工作。 五、注意事項 1、對賬數(shù)據(jù)文件中的數(shù)值類型必須一致，否則無法完成核對工作 2、對賬時一般只要金額相等就會自動勾對，如果同時還要求時間相等的話，只要在代碼中再加入一個判斷語句即可；另外，遇到紅字沖銷的業(yè)務(wù)可用手工核銷。