如何解决仅自动填充活动细胞
我在正确编码时遇到了麻烦。它会保持从第一个活动单元格一直到最后一行的自动填充。问题在于它也会自动填充隐藏的单元格。
我想要做的是在T列和AF列中过滤单词“ H”,如果包含H,则写DELETE。然后将其复制到过滤器的其余部分。
Sub MACRO2()
'
' MACRO2 Macro
'
LastRow = Range("A1").End(xlDown).Row
'
Windows("WORKLIST TEMPLATE.xlsx").Activate
Range("A1").Select
' FILTER COL CD H
Selection.AutoFilter
ActiveSheet.Range("$A:$AQ").AutoFilter Field:=20,Criteria1:="H"
Range("AF1").Select
ActiveCell.Offset(1,0).Select
Do Until ActiveCell.EntireRow.Hidden = False
ActiveCell.Offset(1,0).Select
Loop
ActiveCell.FormulaR1C1 = "DELETE"
ActiveCell.AutoFill Destination:=Range(ActiveCell.Address & ":AF" & LastRow)
Range("A1").Select
我需要一种编码方式,因此它不仅限于列AF,因为我需要过滤并向下复制多个列。任何帮助表示赞赏。
我一直在搜索google,但似乎找不到能使我将代码用于多列的解决方案。例如,我将需要对S列进行过滤,然后在AF列中写入DELETE。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。