Question

excel VBA中出现运行时错误"1004“：应用程序定义或对象定义错误，怎么解决

资产表通过3、4、5列与设备表匹配

Private Sub CommandButton1_Click()
Dim arr, brr, crr
Dim d, str
Dim i, m
Set Sh1 = Sheets("资产表")
Set Sh2 = Sheets("设备表")
Set Sh3 = Sheets("结果")
Set d = CreateObject("scripting.dictionary")
With Sh1
arr = .Range("a2:e" & .Cells(.Rows.Count, 1).End(3).Row)
End With
With Sh2
brr = .Range("a2:e" & .Cells(.Rows.Count, 1).End(3).Row)
End With
ReDim crr(1 To 10000, 1 To 5)
For i = 1 To UBound(arr)
str = arr(i, 3) & "/" & arr(i, 4) & "/" & arr(i, 5)
If Not d.exists(str) Then
m = m + 1
d(str) = m
crr(m, 1) = arr(i, 1)
crr(m, 3) = arr(i, 3)
crr(m, 4) = arr(i, 4)
crr(m, 5) = arr(i, 5)
Else
crr(d(str), 1) = crr(d(str), 1) & "/" & arr(i, 1)
End If
Next
For i = 1 To UBound(brr)

str = brr(i, 3) & "/" & brr(i, 4) & "/" & brr(i, 5)
If d.exists(str) Then
If crr(d(str), 2) <> "" Then
crr(d(str), 2) = crr(d(str), 2) & "/" & brr(i, 1)
Else
crr(d(str), 2) = brr(i, 1)
End If
End If
Next
With Sh3
.Range("a2:e10000").ClearContents
.Columns("a").NumberFormatLocal = "@"
.Columns("d").NumberFormatLocal = "@"
.Columns("a").HorizontalAlignment = xlLeft
.Columns("b").HorizontalAlignment = xlLeft
.Range("a2").Resize(m, 5) = crr
End With
MsgBox "ok!"
Set d = Nothing
End Sub

出现运行时错误"1004“：应用程序定义或对象定义错误。
错误定位在 .Range("a2").Resize(m, 5) = crr
求大神解答

Answer 1

.Range("a2").Resize(m, 5)这个是重新定义区域用的，不能值接给它赋值的

追问

那应该怎么改呢？谢谢！

追答

你是想要给这个区域赋同样的值，是不是这样呢？
你可以加一个循环，遍历一下这个区域中的每个单元格，各单元格分别赋值呗

Answer 2

.Range("a2").Resize(UBound(crr), 5) = crr
好像可以这样

追问

不行 还是1004

追答

我把你的代码弄过来，无数据执行是OK的，所以需要知道你的数据才好确定，可能的话邮箱发过来rufeng_00，是163的

 

追问

你好 我的数据就是前两张表，已发送，请帮忙看看，谢谢！

追答

你的文件我未做任何变动的情况下，运行是OK的。

有说要这样设置一下。

1.在VBE窗口中选择出错的VBA工程
2.在“工具”-->“引用”，打开引用对话框
3.查找带勾项中含“丢失...”、“找不到...”、“MISSING...”的条目，并取消勾选！
4一般情况下，用第3步即可解决，如问题依旧，请在“可用的引用”中查找并勾选与丢失的条目类似的引用（一般除版本号不同，其它名称相同，如有多个版本，请选择最高版本）
如果还不能解决，可能是电脑中缺少控件或对象库，需要下载控件并注册，后返回上面步骤解决！

借用别人的话