Question

以下代码段的自动填充方法可以正常工作，如果有多于1行但是失败并且在仅有1行的情况下给出运行时错误1004，请建议所需的更改。

Lastrow = ws3.Cells(Rows.Count, "B").End(xlUp).Row
ws1.Range("A2").FormulaR1C1 = _
    "=TEXT(RC[6],""000000000000"")&""-""&TEXT(RC[7],""0000"")"
ws1.Range("A2").AutoFill Destination:=ws1.Range("A2:A" & Lastrow), Type:=xlFillDefault

Answer 1

这是一个非常快速的解决方法：

lastrow = Cells(Rows.Count, "B").End(xlUp).Row
Range("A2").FormulaR1C1 = "=TEXT(RC[6],""000000000000"")&""-""&TEXT(RC[7],""0000"")"
If lastrow > 2 Then
    Range("A2").AutoFill Destination:=Range("A2:A" & lastrow), Type:=xlFillDefault
End If

一般情况下，它会起作用。并且它给你一个错误，因为它的长度为1而且它不能用它AutoFill。

如果只有1行，则应用自动填充方法的Vba代码

1 个答案: