运行Copy出错

imyushu

我自己从网页自动抓取了数据放到表2，每隔几分钟数据刷新一次
然后我想从表2中提取出表1没有的数据放到表1
我设置的宏第一次可以运行，第二次就会报错，请大神帮看看是哪里有问题。

每次都是标黄色的部分有问题，怎么改都是这样。

Sub 提取()
upA = Sheets("Sheet1").[A1048576].End(xlUp).Row '第一个表最后一行的行号
cellb = Sheets("Sheet1").Cells(upA, 1) '第一个表最后一行的序号
cellb2 = Sheets("Sheet2").Cells(1, 1) '第二个表第一个序号
x = cellb - cellb2
Select Case x
Case Is < 0 '表一和表二之间有数据遗漏
    MsgBox "请手动提取数据！"
    Exit Sub
Case Is <= 15 '表一的序号包含在表二中时
    fndB = Sheets("Sheet2").Range("A1:A16").Find(cellb, , , lookat:=xlWhole).Row
    Sheets("Sheet2").Range(Cells(fndB + 1, 1), Cells(16, 3)).Copy
    Sheets("Sheet1").Cells(upA + 1, 1).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Exit Sub
Case Is < 200 '表二没刷新，数据比表一手动更新的慢
    MsgBox "请手动提取数据！"
    Exit Sub
End Select
End Sub

liulang0808

Sheets("Sheet2").Range(Sheets("Sheet2").Cells(fndB + 1, 1), Sheets("Sheet2").Cells(16, 3)).Copy
这样修改看看吧

imyushu

liulang0808 发表于 2018-7-20 07:39
Sheets("Sheet2").Range(Sheets("Sheet2").Cells(fndB + 1, 1), Sheets("Sheet2").Cells(16, 3)).Copy
这 ...

还是不行。我试了一下，手动选中这个表的其它单元格，再选回去，又可以运行了。

liulang0808

见截图，运行没有问题的

DevilW

Sub 提取()

Set Sa = Sheet1     '表1
Set Ss = Sheet2     '表2

upA = Sa.[A1048576].End(3).Row  '表1最后一行行号
cellb = Sa.Cells(upA, 1)        '表1最后一行的序号
cellb2 = Ss.Cells(1, 1)         '表2第一个序号
x = cellb - cellb2

Select Case x
Case Is < 0                      '表一和表二之间有数据遗漏
    MsgBox "请手动提取数据！"
Case Is <= 15                    '表一的序号包含在表二中
    fndB = Ss.Range("A1:A16").Find(cellb, , , lookat:=xlWhole).Row
    Ss.Cells(fndB + 1, 1).Resize(16, 3).Copy Sa.Cells(upA + 1, 1)
Case Is < 200                    '表二没刷新，数据比表一更新慢
    MsgBox "请手动提取数据！"
End Select

End Sub