我希望在這裏找到幫助，請讓我的工作表充滿數據（發票） 有幾列重複的發票，我想要的是通過userform當我鍵入發票號碼，它找到相同的發票的最後一行，並添加一個新的行，以便能夠扣除此發票的新付款金額，如果這張發票是新的，那麼它將它添加到表單的結尾沒有問題。我希望下面鏈路是一個示例表示重複發票號碼（高亮） https://www.dropbox.com/s/2youyhl6pw2srsz/Book2.xlsx?dl=0查找最後一個單元格包含特定的值，並在下面添加一行或者如果找不到，請在excel中添加新的信息
子宏1（）
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$E$8").AutoFilter Field:=1, Criteria1:=Range("H1")
呼叫LR2
結束子
子LR2（） 昏暗lastrow As Long
lastrow = Range（「B」& Rows.Count）.End（ xlUp）.Row 細胞（LASTROW，1）。選擇 ActiveCell.Offset（1）.EntireRow.Insert換檔：= xlDown，CopyOrigin：= xlFormatFromRightOrAbove ActiveCell.Offset（1，0）。選擇
結束子
雖然你已經有一段時間了，但我仍想提醒你，StackOverflow不是免費的代碼寫入服務。然而，我們渴望幫助程序員（和有志之士）提供他們的代碼。請再次閱讀[我如何提出一個好問題]（http://stackoverflow.com/help/how-to-ask）上的幫助。之後，請用您迄今編寫的VBA代碼更新您的問題，以完成您希望實現的任務。我建議使用'Range.Find'，'xlByRows'，'xlPrevious'來獲取該數字的最新出現次數。帶有'xlShiftDown'的'Range.Insert'會給你一個新的行。 – Ralph