VBA Filldown 在只有一行数据时复制 header

Question

正如标题所说，当我有超过 2 行数据时，填充在 VBA 中工作正常，但是当我只有一行时，它会复制 header，为什么要这样做？

PASsht.Range("I" & LastRow1 & ":I" & AftLastRow).FillDown

LastRow1 是数据所在的第一行，AftLastRow 是数据所在的最后一行。

提前致谢。

Answer 1

虽然 MS Help FillDown 方法*) 中没有提示，但在单个数据行的情况下（即第一个数据行等于最后一个数据行），FillDown 方法将抓取上面的内容并将其填充到该单元格。

为了避免复制例如上面的标题，您可以编写如下代码（注意更改的变量名称firstDataRow和lastDataRow ）：

If firstDataRow <> lastDataRow Then PASsht.Range("I" & firstDataRow & ":I" & lastDataRow).FillDown

*)如上所述，帮助仅说明：

“从指定范围内的顶部单元格或单元格向下填充到范围的底部。范围顶行中的一个或多个单元格的内容和格式被复制到该范围内行的 rest 中。”