Dynamic 如何在vba中设置动态区域的范围和使用过滤器粘贴

Dynamic 如何在vba中设置动态区域的范围和使用过滤器粘贴,dynamic,filter,range,copying,pasting,Dynamic,Filter,Range,Copying,Pasting,我遇到了两步问题 第一部分是设置不断变化的数据的范围。我一直在尝试在一张工作表上对索赔进行分类,该工作表包含每天添加到同一工作表中的数据,因此最后一个活动单元格不断变化。例如,我对特定代码行的问题如下 Columns(“D:D”).Select Selection.End(xlDown).Select ActiveCell.Offset(1).Select ActiveCell.Offset(0, 91).Select Range(Selection, Selection.End(xlDown)

我遇到了两步问题

第一部分是设置不断变化的数据的范围。我一直在尝试在一张工作表上对索赔进行分类,该工作表包含每天添加到同一工作表中的数据,因此最后一个活动单元格不断变化。例如,我对特定代码行的问题如下

Columns(“D:D”).Select
Selection.End(xlDown).Select
ActiveCell.Offset(1).Select
ActiveCell.Offset(0, 91).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Columns(“D:D”).Select
Selection.End(xlDown).Select
ActiveCell.Offset(1).Select
ActiveSheet.Paste
ActiveSheet.Range("$A$1:$EE$3000”).AutoFilter Field:=22, Criteria1:= Array( _
    "DUPLICATE PAID/CAPTURED CLAIM:MORE CURRENT REFILL EXISTS", _
    "REFILL TOO SOON:CLAIM ALREADY PROCESSED FOR STORE, RX, DOS", _
    "REFILL TOO SOON:DISPENSED TOO SOON"), Operator:=xlFilterValues
Columns(“A:A”).Select
Selection.End(xlDown).Select
Selection.Copy
ActiveCell.Offset(1).Select
ActiveSheet.Paste
但我现在认识到,将EndRange的值设置为$EE$2007是行不通的。EE的列将始终保持不变,但行会更改

第二部分与过滤有关。在一个单独的列中有大约56个不同的类别,然后在a列中用关键字标记。我已经能够完成筛选部分并从下一个单元格向上复制,但我无法将该关键字向下粘贴到下一个空白单元格并向下粘贴到最后一个活动行,同样,上面A列中所发生的一切就是我目前所知道的

这就是我被卡住的地方。我对这一切都不熟悉,我希望知道是否有更好的方法来解决这个问题

通过将$EE$2007的范围更改为$EE$3000,我可以进入第二部分,这导致我的数据更进一步,但这是可能的


提前谢谢。

你好,莉兹。请提供代码,因为它有助于理解您来自何方。嗨,Liz。请提供代码,因为它有助于理解您来自哪里。