excel-vba - 复制值而不是公式

有人可以帮我稍微调整一下，以便它仅将值复制并粘贴到单元格中，而不粘贴到公式中吗？

Set copyRange = wsInfoFrom.Range("A1:A" & lastrow)
copyRange.SpecialCells(xlCellTypeVisible).Copy wsInfoTo.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Worksheets("View").Activate

问候，
米尔斯

最佳答案

首先选择源范围
然后选择目标范围
将copy设置为sc并将pastespecial设置为目标范围，然后就可以了：D

Set copyRange = ActiveSheet.Range("A1:A" & lastrow)
copyRange.SpecialCells(xlCellTypeVisible).Copy
ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Worksheets("View").Activate