求大神解释一下为什么会出错？

penguincc · 发表于 2018-9-25 17:37

Sub 导入数据()
Dim u%, i%, o%
Dim ans As Variant
ans = MsgBox("确认保存数据并继续?", vbOKCancel + vbDefaultButton1)
If ans = vbOK Then
Application.Calculation = xlManual
For o = 2 To 140
With Worksheets(Sheets(o).Name)
For u = 4 To 30
For i = 3 To 33
If .Cells(u, i) <> "" Then
arr = Array(.Cells(i, 3), Sheets(o).Name, .Cells(2, u), .Cells(u, i))
Worksheets("洗涤数量库").[a100000].End(3).Offset(1, 0).Resize(1, 4) = arr ‘要求对象，错误424
End If
Next
Next
End With
Next
End If
Application.Calculation = xlAutomatic
End Sub

复制代码

penguincc · 发表于 2018-9-25 17:57

版本的问题，兼容03版的只支持46000行

alstar · 发表于 2018-9-25 18:30

Worksheets("洗涤数量库").Cells(Rows.Count, "a").End(xlUp).Row.Offset(1, 0).Resize(1, 4) = arr

lsc900707 · 发表于 2018-9-25 19:01

建议上传附件。。。。。。

penguincc · 发表于 2018-9-27 11:21

alstar 发表于 2018-9-25 18:30
Worksheets("洗涤数量库").Cells(Rows.Count, "a").End(xlUp).Row.Offset(1, 0).Resize(1, 4) = arr

谢谢，这个是万金油

		自动登录	找回密码
密码			免费注册

[求助] 求大神解释一下为什么会出错？