清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

    Sheet1.Range("A2:B9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheet2.Select
    Range("B3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False
    Application.CutCopyMode = False