复制并粘贴公式，直到Excel-VBA中满足条件

Question

我想创建一个宏来复制公式的第一行并继续将其放在工作表中，直到上一行中的一个公式返回空白。

这是我的代码：

Range("C8:V8").Select
Selection.Copy
Do
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Past
Loop Until ActiveCell.offest(-1, 15) = ""

有关我为什么一直收到错误的想法？

Answer 1

如果要检查所有单元格是否有空白，可以使用VBA版本的COUNTBLANK。

Loop Until Application.CountBlank(ActiveCell.Offset(-1).Resize(,15)) > 0

需要调用Resize才能获得包含所有15列的所有单元格的范围。