中文字幕理论片,69视频免费在线观看,亚洲成人app,国产1级毛片,刘涛最大尺度戏视频,欧美亚洲美女视频,2021韩国美女仙女屋vip视频

Sub text()

Dim rngs1, rngs2, rngs3 As Range

ActiveSheet.Range("A1").AutoFilter Field:=1, Criteria1:="2001"

Set rngs1 = [a1].CurrentRegion

rngs1.Copy Range("A10")         '速度最慢，將rngs1內(nèi)容復(fù)制到A10

'Application.CutCopyMode = False    '連續(xù)兩次copy出錯(cuò)，提示無法釋放剪貼板空間

'rngs1.Copy rngs2               '連續(xù)兩次copy出錯(cuò)，提示無法釋放剪貼板空間

Range("a15").PasteSpecial xlPasteFormulas

ActiveSheet.Range("A1").AutoFilter Field:=1, Criteria1:="5001"

Set rngs2 = [a1].CurrentRegion

rngs2.Copy

Set rngs3 = rngs2

rngs3.Copy

Range("a20").PasteSpecial xlPasteFormulas

End Sub