如何解决从 ActiveCell 自动填充公式直到其他列的最后一个单元格有数据
我叫普拉提克。如果这个问题已经得到回答,我想道歉。我在互联网上的任何地方都没有找到任何关于此的信息。所以发在这里。请协助。
所以我正在编写这段代码,其中我的宏在 E2 中编写了一个公式(范围 A 到 D 已经有数据)。然后代码自动自动填充 E 列中的公式,直到 D 列有数据的最后一行。 代码如下:
范围("E2").选择 ActiveCell.FormulaR1C1 = '我的公式 范围(“E2”)。选择 Selection.AutoFill Destination:=Range("E2:E" & Range("D" & Rows.Count).End(xlUp).Row)
然后它过滤掉 E 列,其中单元格以“#Value”结尾,因为公式没有其他条件。
选择.自动过滤 ActiveSheet.Range("A:E").AutoFilter Field:=5,Criteria1:="#VALUE!"
代码再次使用不同的标准编写公式以减少“#Value”计数。现在显然会有隐藏的单元格,因为自动过滤器已经按照公式过滤掉了数据。
现在我需要一个代码来帮助我选择 E1 之后的 ActiveCell,可能是 E3、E7 等等......然后编写我的公式并再次将数据自动填充到 D 列中存在数据的最后一行.这一直持续到“#Value”完全消失。不要担心公式。我已经涵盖了。我只是在寻找引用活动单元格并在每次过滤数据时应用公式,直到“#Value”计数减少到 0
任何帮助将不胜感激。提前致谢。
请注意,我没有编程知识,这只是一个基本项目,您用 Leman 语言解释我将对我的学习非常有帮助。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。