Question

VBA运行find出现错误1004

Set x = Sheets("2").Range("A" & i)
Sheets("1").Select
Cells.Find(What:=x, After:=ActiveCell).Activate
到最后一句出错了，怎么解？
Sheets("2").Select
y = 1202
For i = 2 To y
Range("A" & i).Select
a1 = ActiveCell.Row
Set x = Sheets("2").Range("A" & i)
Sheets("1").Select
Cells.Find(What:=x, After:=ActiveCell).Activate‘到这停的，怎么解决？
a2 = ActiveCell.Row
Set L = Sheets("1").Range("B" & a2)
Sheets("2").Select
Range("E" & a1) = L
Next i

Answer 1

运行未发现错误，如上。

注意：工作表的名称应该有 1、2，而不是 Sheet1、Sheet2

如果用序号（第几个）来选定表，应该用  Sheets(1)  、Sheets(2)  ，即不加引号

Answer 2

i = Range("b65536").End(xlUp).Row - 9 '在已使用区域最末一行添加
是这一行的问题.
如果Range("b65536").End(xlUp).Row 小于或等于9 的话. i 就小于=0 了
这样 对于下面的 Cells(i, 2).EntireRow.Insert 来说 就会产生错误.
因为cells对象要求的行和列参数必须是大于 0 的.

Answer 3

cells前面要加上 那个表

追问

不用加吧，加了还要定义什么的
前面已经选了工作表，可以不加吧

不用加吧，加了还要定义什么的
前面已经选了工作表，可以不加吧