excel - vba 索引匹配错误运行时错误“424”需要对象
问题描述
我有这段代码,但似乎无法解决问题,
Sub IndMat()
Dim wh1 As Worksheet
Dim wh2 As Worksheet
Set wh1 = Sheets("SAS")
Set wh2 = Sheets("Sheet1")
Dim y As VariantDim x As LongDim lr1 As Long
Dim lr2 As Long
Dim rng1 As Range
Dim rng2 As Range
lr1 = wh1.Cells(Rows.Count, 5).End(xlUp).Row
lr2 = wh2.Cells(Rows.Count, 2).End(xlUp).Row
Set rng1 = wh2.Range("a2:a25")
Set rng2 = wh2.Range("b2:b25")
For i = 2 To lr1
y = application.Index(rng1, Application.Match(wh1.Cells(i, 5), rng2, 0))
Next i
End Sub
错误在运行时暴露
y = application.Index(rng1, Application.Match(wh1.Cells(i, 5), rng2, 0))
解决方案
推荐阅读
- spring-boot - 有没有办法弃用移动到另一个前缀的属性?
- php - 在 mysql 中求和 2 个值以制作排行榜
- sequelize.js - 在sequelize中,如何使用findAndCountAll获取联结表行数?
- python - 无法将函数并行映射到 tarfile 成员
- cucumber - 通过 Cucumber 场景控制两个 chrome 实例,由 Watir Webdriver 驱动
- node.js - 无法读取未定义 Discord.js 的“执行”
- asp.net-mvc - 如何在一个表单中处理多个文件而不知道它们的数量?
- google-cloud-platform - Google Speech API - POST URL 中的“位置”是什么?
- ocr - 为什么 tesseract 忽略图像的右侧部分?
- spring - 可以选择将错误事件发送到其他主题吗?