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

这也留下空单元格。（编辑，当我尝试以上操作时，我得到＆＃34;范围类的自动填充方法失败＆＃34;

任何解决方案？非常感谢您的帮助。

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)

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

2 个答案: