Excel仅在行具有多个数据

Question

在我的行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