范围上的PasteSpecial方法失败

我正在尝试在另一个工作表中粘贴一系列单元格。 这是我到目前为止所提出的：

For i = 1 To MyCount wbk.Activate Set Criteria = Sheets(IGMSheet).Cells(i, 1) Sheets(IGMSheet).Range(Cells(i, 2), Cells(i, 4)).Copy 'this copies the 3 cells I need w.Activate If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData 'remove autofilter Selection.AutoFilter Range("$A$1:$BM$204").AutoFilter Field:=2, Criteria1:=Criteria.Value Range("$BC$1:$BE$204").SpecialCells(xlCellTypeVisible).PasteSpecial Next i 

如果我只是更新范围内的值然后它的工作，但粘贴单元格不。

友善的build议。

Answer 1

除了我上面的评论，试试这个…

 Dim rng As Range For i = 1 To MyCount wbk.Activate Set Criteria = Sheets(IGMSheet).Cells(i, 1) Set rng = Sheets(IGMSheet).Range(Cells(i, 2), Cells(i, 4)) w.Activate If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData 'remove autofilter Selection.AutoFilter Range("$A$1:$BM$204").AutoFilter Field:=2, Criteria1:=Criteria.Value rng.Copy Range("$BC$1:$BE$204").SpecialCells(xlCellTypeVisible).PasteSpecial Next i 

我注意到其他几件事情。 例如使用。 .Activate和不合格的单元格Range(Cells(i, 2), Cells(i, 4))

你可能也想看到这个