过滤一列并将值插入所有已过滤行的另一列

Question

我可以制作一个VBA来选择一列中所有已过滤的单元格并向右侧的下一列中添加一个值吗？

即，我有一个工作人员及其小时数的加班清单（L列）。 我想将L列过滤为> 10，然后在M列显示的每个单元格中插入“ 1”（因此，对于加班超过10小时的每个人，我都会得到“ 1”）。

当前我有

    Selection.AutoFilter
ActiveSheet.Range("A1").AutoFilter Field:=12, Criteria1:=">10", _
    Operator:=xlAnd

这是过滤器的一部分，但我不知道如何选择M列中的单元格并将值插入其中。

非常感谢您的帮助。

Answer 1

Selection.SpecialCells(xlCellTypeVisible).Offset(,1).Value = 1

顺便说一下，您几乎总是不需要任何选择，并且可以更安全地使用完全限定的（最多为工作表对象）范围引用