求助在编写出库自动服装保存时代码报错

auto737

菜鸟一枚，求问各位大咖，编写出库自动复制保存时，一二列有数据时正常运行，一二列任意一列为空，出现报错！代码如下：


Sub 复制()
Dim i
i = Sheet2.Range("a1").End(xlDown).Row + 1
Sheet2.Cells(i, 1).Resize(6, 4).Value = Sheet1.Cells(3, 2).Resize(6, 4).Value
Dim b
b = Sheet2.Range("d1").End(xlDown).Row - Sheet2.Range("e1").End(xlDown).Row
Sheet2.Cells(i, 5).Resize(b, 1).Value = Sheet1.Cells(1, 2)
Sheet2.Cells(i, 6).Resize(b, 1).Value = Sheet1.Cells(1, 4)
Sheet2.Cells(i, 7).Resize(b, 1).Value = Sheet1.Cells(1, 6)
MsgBox ("保存成功！")
End Sub

难道是i = Sheet2.Range("a1").End(xlDown).Row + 1的问题，A1不能为空？但A2可以为空啥！为啥A2为空也报错！求解！

白菜饺子

前天我也遇到这个问题
试试看忽略错误值
屏蔽错误提示，在第一行加入
On Error Resume Next

chxw68

白菜饺子 发表于 2018-7-12 22:03
前天我也遇到这个问题
试试看忽略错误值
屏蔽错误提示，在第一行加入

呵呵，On Error Resume Next就像麻醉药，止痛不治病！