粘贴到平行行中的填充单元格

Question

老实说，我对VBA很新鲜，可能在这里很容易丢失一些东西。我一直在阅读有关不同类型的循环以及如果一个单元格是空的那么结束整个宏的方法，但我没有把这些想法结合在一起。

基本上，我的代码中有一部分选择范围，副本然后选择向下粘贴。这刚刚炸毁了我的电脑，让它永远消失。我希望找到一种方法来使这个只复制下来，因为在第1列的并行行中有一些项目。

我想我可以让它在运行粘贴功能之前只选择x行数，或者我可以在粘贴每一行之前运行一个检查第1列的循环。我有多远？

yarn link ngrok

Answer 1

从下往上查看A列中最后一行填充的行。

dim lr as long
with worksheets("sheet1")
    lr = .cells(.rows.count, "A").end(xlup).row
    .range("AA2:AE" & lr).filldown
end with

我通过从.Copy＆amp;中切换到.FillDown为您节省了一个操作。 。糊。