只有当行有多个数据时，Excel才会运行自动填充

在我的W行上，有一个计算要划分L列和D列。

我正在使用VBA代码：

Dim LR As Long LR = Range("B666666").End(xlUp).Row Range("W2").AutoFill Destination:=Range("W2:W" & LR) 

但是，如果只有一行数据（不包括标题），代码就会中断并给出

Range类的自动填充方法失败。

所以即时通讯想知道是否有可能运行自动填充代码只有当列W上有多个数据？

Answer 1

尝试添加一个If条件来检查LR > 2 。

 Dim LR As Long LR = Range("B666666").End(xlUp).Row If LR > 2 Then '< -- check that there are more than 2 rows Range("W2").AutoFill Destination:=Range("W2:W" & LR) Else ' do nothing ? End If 

Answer 2

 Dim LR As Long LR = Range("B666666").End(xlUp).Row If LR > 1 Then Range("W2").AutoFill Destination:=Range("W2:W" & LR) 

将> 1更改为所需的值。