查找最后一个单元格包含特定值并在下面添加一行，如果没有找到，则在Excel中添加新行

Question

我希望在这里找到帮助，请我有一份充满数据的工作表（发票） 在几行中重复发票，我想要的是当我输入发票编号时，通过userform找到同一发票的最后一行，并在其下面添加一个新行，以便能够扣除此发票的新支付金额，如果这张发票是新的，然后它在表格的末尾添加它没有问题。我希望下面的链接是一个样本表明重复的发票号码（突出显示） https://www.dropbox.com/s/2youyhl6pw2srsz/Book2.xlsx?dl=0

Answer 1

Sub Macro1（）

SharetoFacebook.setInitialText("My highscore is + \(finalTime.text)")

致电LR2

End Sub

Sub LR2（） Dim lastrow As Long

lastrow =范围（＆＃34; B＆＃34;＆amp; Rows.Count）.End（xlUp）.Row 细胞（lastrow，1）。选择 ActiveCell.Offset（1）.EntireRow.Insert Shift：= xlDown，CopyOrigin：= xlFormatFromRightOrAbove ActiveCell.Offset（1,0）。选择

End Sub