Question

有人可以帮我稍微调整一下，这样它只会将值复制并粘贴到单元格而不是公式吗？

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

此致密耳

Answer 1

这样的事情应该有效

Sheets("Sheet1").Columns(1).Copy
Sheets("Sheet2").Columns(2).PasteSpecial xlPasteValues

目前我没有excel可用，但我相信你会在你的例子中使用像这样的PasteSpecial：

wsInfoTo.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

Answer 2

您可以选择源范围然后选择目标范围将副本设置为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

复制值而不是公式

2 个答案: