多次复制表格并粘贴的问题

完美交易88

小白请老师帮忙，我需要将表sheet1内，用按钮将从第6行开始到最后一行的内容复制到sheet2中，并且多次复制的时候，sheet2的内容是累加的，不能复盖，我想到是用数组，但不知道怎么不复盖，多谢了

迷途羊羔

你sheet1的内容都是引用的sheet2的啊，你复制过去做什么呢?想达到什么效果？

sxbjzjf110

不知道对不对，请参考。

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, iRow&
   
    ar = Range("A6", Cells(Rows.Count, "A").End(3)).Resize(, 2)
    With Sheets(2)
        iRow = .Cells(Rows.Count, "A").End(3).Row + 1
         .Cells(iRow, 1).Resize(UBound(ar), 2) = ar
        .Activate
    End With
   
    Beep
End Sub

gwjkkkkk

请参考附件。。。

完美交易88

gwjkkkkk 发表于 2023-2-23 19:30
请参考附件。。。

非常感谢！

完美交易88

sxbjzjf110 发表于 2023-2-23 17:38
不知道对不对，请参考。

对的，非常感谢！

完美交易88

sxbjzjf110 发表于 2023-2-23 17:38
不知道对不对，请参考。

老师你好，再帮忙看看我写程序，在销售表格内输入书号，如果书号在参展内有记录，会关联出书名，然后将上方的信息输入到下方对应的单元格内，目前数据能够关联出，但有的记录显示会很快，有的特别慢，不知道有什么方法可法快速显示出信息，里面有个我操作的视频，第一条显示可以，第二条就太慢了，先谢了。

完美交易88

sxbjzjf110 发表于 2023-2-23 17:38
不知道对不对，请参考。

老师帮忙看看程序，怎么能显示的快一些，现在等待时间比较长，里面有个视频，记录了操作过程，先谢了

完美交易88

sxbjzjf110 发表于 2023-2-23 17:38
不知道对不对，请参考。

老师帮忙看看程序，怎么能显示的快一些，现在等待时间比较长，先谢了