VBA中使用FOR循环调用单元格数据出现错误438

想将工作簿2中与工作簿1中相同的ID的进行数据合并,但运行到第3行的时候报错

Dim a As Range, b As Range, c As Range, d As Range
Dim x%, y%,
For Each a In Workbooks(2).Sheet1.Range("E2:E132")
x = a.Rows.Count
For Each b In Workbooks(1).Sheet1.Range("E137:E180")
y = b.Rows.Count
If a = b Then
Workbooks(1).Sheet1.Range("GK" & y) = Workbooks(2).Sheet1.Range("E" & x)
Workbooks(1).Sheet1.Range("GL" & y).Resize(, 11) = Workbooks(2).Sheet1.Range("FS" & x & ":GC" & x)
End If

```Next



![图片说明](https://img-ask.csdn.net/upload/202002/12/1581520816_554305.jpg)
![图片说明](https://img-ask.csdn.net/upload/202002/12/1581520891_674056.jpg)



请各位大佬救救萌新
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问

相似问题

0
vba判断某单元格是否有边框时,返回错误的结果。
2
如何通过VBA获得EXCEL中的页数
1
VBA 读取CSV文件并将相关数据填入工作表的指定单元格内。
0
VBA读取Excel单元格数据,处理后再写入该表中的其他位置,怎么实现?
1
VBA 怎么设置表格中部分单元格可编辑,其他单元格不可编辑?
2
如何用VBA批量操作数据透视表
1
为什么VBA用变量代表某单元格值,程序运行失败呢 代码如下
1
vba 中怎么样才能将字符串控件转成实际控件?
1
VBA调用 setupapi.dll里面SetupDiEnumDeviceInterfaces函数在office365没有返回
1
VBA如何实现利润最大化
0
Excel VBA中把多个Excel数据的某一列导入到另一个新的Excel的sheet中(导入的列在一个sheet里)。VBA小白 谢谢大家
0
vba 中MsChart图表中,在任意一个数据上添加一条十字标示线的做法?
1
vba 在word 中如何让文本控件获得焦点?setFocus用不了。出现“对象不支持该属性或方法”
1
excel2016 64bit的vba中使用API函数RegisterClass注册窗体类就Excel就崩溃
0
如何用VBA代码更新access中的表记录,我的其中一段代码出现了问题(更新操作 .AddNew)
1
VBA中对变量进行赋值,但是变量未接收 ,不能执行if里的内容,却执行Else中的内容
1
excel vba中调用SQLConfigDataSource函数时返回值总是FALSE,是哪里出错了?请高手指教!
1
如何使用VBA实现判断:①某个excel表中是否含有另一excel中相关内容②如果没有,将此另一excel的数据填入此excel中的相应位置
0
在VBA中同时启用了两个钩子,但只能释放一个怎么回事?
0
VBA 用循环法对数值赋值不成功,如何解决?