1

我在两步问题上遇到了一些麻烦。

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

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

但我现在认识到将结束范围设置为 $EE$2007 的值是行不通的。EE 的列将始终保持不变，但行会发生变化。

第二部分与过滤有关。在一个单独的列中大约有 56 个不同的类别，V 然后在 A 列中用关键字标记。我已经能够进行过滤部分并从下一个单元格向上复制，但我有麻烦将该关键字粘贴到下一个空白单元格并向下粘贴到最后一个活动行，这一切都发生在A列中。以上是我到目前为止所拥有的。

这就是我卡住的地方。我对这一切都很陌生，我希望了解是否有更好的方法来解决这个问题。

通过将范围从 $EE$2007 更改为 $EE$3000，我能够进入第二部分，这导致我的数据走得更远，但这是有可能的。

提前致谢。

4

0 回答 0