复制并粘贴到空行，直到其他列为空

Question

我正在尝试将A8：P8复制并粘贴到Blank Rows（如下图所示），直到Q列中的数据为空 - 是否有可以执行此操作的VBA？我需要在多个标签上执行此操作，以便行号可变。

Answer 1

虽然您可以使用VBA完成此操作，但您是否尝试过使用单元格公式？

例如，在A列的第一个空单元格中放置：

=$A$8

然后对于行中的每个其他单元格相同，更改列字母。

然后选择具有公式的所有单元格并双击自动填充句柄，该句柄将公式复制到相邻列中包含数据的最后一行。