Excel VBA – 使用variables粘贴代码后取消select范围

我写了一个macros来筛选，复制并粘贴到不同的工作簿过滤标准。 我无法弄清楚如何取消在工作簿中粘贴的范围。 我试过“.range（”A1“）。select”，“application.cutcopymode = false”。 我不知道还有什么要尝试..这里是我的代码 – 任何洞察力将有所帮助

Dim i As Long Dim market As Variant, arrbooks() As Workbook Application.ScreenUpdating = False Application.DisplayAlerts = False Sheet1.AutoFilterMode = False market = Array(... ReDim arrbooks(0 To UBound(market)) 'create workbooks For i = 0 To UBound(market) Set arrbooks(i) = Workbooks.Add Next 'retrieve data by autofilter With Sheet4 For i = 0 To UBound(market) .Range("H:H").AutoFilter field:=1, Criteria1:=market(i) .Range("H1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Workbooks(arrbooks(i).Name).Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteAll **workbooks(arrbooks(i).name).sheets(1).application.cutcopymode = false** Next End With 'save workbooks For i = 0 To UBound(market) **workbooks(arrbooks(i).name).sheets(1).application.cutcopymode = false** Workbooks(arrbooks(i).Name).SaveAs "insert save path" Workbooks(arrbooks(i).Name).Close Next 'clean up Application.ScreenUpdating = False Sheet4.ShowAllData Sheet4.AutoFilterMode = False Application.DisplayAlerts = True Sheet4.Activate Sheet4.Range("A1").Select 

由于合规性问题，我无法透露我正在过滤的名称

谢谢！

编辑：**表示我试图插入.application.cutcopymode = false

Answer 1

好吧，我现在看到你正在尝试做什么。 它与目的地的select有关，而不是CutCopyMode 。 尝试

 Application.Goto workbooks(arrbooks(i).name).sheets(1).Range("A1") 

OTOH， CutCopyMode删除源的“点”select，以便您不能再手动粘贴它。

Answer 2

看到这个， 粘贴数据后取消select列，我结束了select“A1”，以从select区域删除merquri