EXCEL VBA – 仅填充数据库新数据的最后一行

所以我有一个数据库,我每天更新它,我想填充一张表,只有违反了票。 我想要做的是检查数据库,并只复制最后一个值后的新工单。

我的代码现在是复制所有可用的票,我想改变这一点。

谁能帮忙? 谢谢

这是我的代码到目前为止

'SELECT DATABASE SHEET Sheets("RAW ALL INC").Select 'FILTER ONLY THE BROKEN TICKETS Selection.AutoFilter ActiveSheet.Range("$A$1:$X$1312").AutoFilter Field:=4, Criteria1:="TRUE" 'COPY ALL TICKETS (THIS IS WHERE I WANT TO SELECT ONLY NEW TICKETS) Range("A2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy 'PASTE THE TICKETS ON THE BROKEN TICKETS SHEET Sheets("Broken Justification").Select Range("A2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False 

我想你可以在应用自动filter之后select可见的单元格,如下所示:

 Sub filtersub() ActiveSheet.Range("$A$1:$X$1312").AutoFilter Field:=4, Criteria1:="TRUE" Range("$A$1:$X$131").Select 'here's where you select filtered results... Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy Sheets("Broken Justification").Select Range("A2").Select ActiveSheet.Paste End Sub 

因此,筛选所需的行,然后将其全部复制并粘贴到目标中。