想将工作簿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.CountFor Each b In Workbooks(1).Sheet1.Range("E137:E180")
y = b.Rows.CountIf 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)
请各位大佬救救萌新