如何在 VBA 中选择当前选定单元格下方的所有空单元格,直到第一个非空单元格

如何在 VBA 中选择当前选定单元格下方的所有空单元格,直到第一个非空单元格

我正在尝试编写一个宏,复制当前单元格并将文本粘贴到其下方的每个空单元格中,直到到达第一个非空单元格。

因此,如果我在单元格 B2 中输入“Apple”,在单元格 B8 中输入“Orange”,在单元格 B11 中输入“Banana”,则当我选择 B2 并运行宏时,单元格 B3:B7 将填充“Apple”,而当我选择 B8 运行宏时,单元格 B9:B10 将填充“Orange”。

答案1

您确定要使用宏来完成这项简单的任务吗?请尝试以下操作,看看它是否适合您:

  • C在样本表中插入一个新列,其中包含“苹果”、“橙子”和“香蕉”
  • 输入=IF(B2<>"",B2,C1)公式C2
  • 选择C2并向下拖动/填充公式,以获得所需的行数

相关内容