PasteSpecial only values

我想複製粘貼到目標工作表的單元格範圍，但只有他們的值，而不是格式。不幸的是，我的代碼也粘貼了格式。我正在爲此提供代碼行。（我知道如何粘貼特殊值，但是我想，如果可能的話，將這種方法應用於這種複製粘貼方法。通常，我使用不同的複製粘貼方法，爲此我知道如何粘貼特殊粘貼方法，但爲此我希望保持宏的長度儘可能小）。PasteSpecial only values

ws1.Range("C2:C" & lastrow2).Copy ws2.Range("A2")

來源

2017-10-16 Pericles Faliagas

會建議：

ws2.Range("A2:A" & lastrow2).Value = ws1.Range("C2:C" & lastrow2).Value

來源

2017-10-16 15:13:43 Cyril

好棒！我會用這個:) –

@Jeeped謝謝;只是快速輸入它像一個傻瓜...仍然在想xlPasteValues – Cyril

嘗試直接價值轉移。

with ws1.Range("C2:C" & lastrow2) 
    ws2.Range("A2").resize(.rows.count, .columns.count) = .value 
end with 

'alternately, 
ws2.Range("A2").resize(ws1.Range("C2:C" & lastrow2).rows.count, ws1.Range("C2:C" & lastrow2).columns.count) = ws1.Range("C2:C" & lastrow2).value

來源

2017-10-16 15:14:53 Jeeped

非常感謝你的朋友！它是一個很好的解決方案，但我通常使用這個，所以我會盡量避免它由於長度問題..不過，再次感謝你！ –

只要記住，這個方法不依賴源和目標源於同一行，而另一個答案。 – Jeeped

是的，我知道:)所以，我們不可能說我的最初的代碼行添加一個xlValues，以便工作，因爲我試圖使它工作？如果可能的話，我想讓它在一行中工作..另一個解決方案解決了我的問題，但仍然像你說的必須有相同的行！ –

PasteSpecial only values

回答

相關問題