自动填充留下空白的空白单元格

Question

我浏览了该站点以寻找以下问题的答案（无济于事）：

我只想使用格式自动填充。

在单元格T3中我有以下公式 =IFERROR(AVERAGEIF(K3:S3;"<>0");" ")

我想从 T3 快速填充到 Dim LastRow（工作变量）。我试过复制公式，然后我得到 error 1004，字符太多；

我试过了

Range("T3").Select Selection.AutoFill Destination:=Range("T3:T" & LastRow)

留下未填充（空）的单元格

最后

Dim dest As Range, source As Range

Set dest = WsStam.Range("T4:T" & LastRow)
Set source = WsStam.Range("T3")

source.AutoFill Destination:=dest, Type:=xlFlashFill

这也会留下空单元格。（编辑当我尝试上面的操作时我得到 "Autofill method of range class failed"

有什么解决办法吗？非常感谢您的帮助。

Answer 1

题目中的公式

=IFERROR(AVERAGEIF(K3:S3;"<>0");" ")

似乎有分号 (;)，这可能是问题的原因。您需要将其替换为逗号。

=IFERROR(AVERAGEIF(K3:S3,"<>0")," ")

如果您已经这样做了，IFERROR 可能会根据条件返回空白。

Answer 2

已解决问题。与代码和 IfError 以及它相关的位置有关（这些字段为空，因此没有显示值。

填充的代码是：

WsIjk.Range("J3").AutoFill Destination:=WsIjk.Range("J3:J" & LastRow)

自动填充留下空白的空白单元格

Autofill leaves blank blank cells

excel

vba

autofill