Question

所以我有一个数据库，我每天更新它，我想填充一张只包含已被破坏的票据的工作表。我想要做的是检查数据库并在最后一个值之后立即将新票证复制到该表格。

我的代码现在正在复制所有可用的门票，我想改变它。

有人可以帮忙吗？谢谢

到目前为止，这是我的代码

'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

Answer 1

我认为您可以在应用自动过滤器后仅选择可见单元格，如下所示：

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

然后过滤所需的行，然后将它们全部复制并粘贴到目的地。

EXCEL VBA - 仅使用数据库新数据填充最后一行

1 个答案: