我有运行顺利的语法。但是,遗憾的是它不能粘贴价值。我试过了 :
.PasteSpecial xlPasteValues
.PasteSpecial Paste:=xlPasteValues
这是我的语法...
Sub CopasToPenalty()
Dim LRSrc As Long, LRDest As Long, SrcRng As Range
With Sheets("RAW_DATA_PENALTY")
LRSrc = .Cells(.Rows.Count, 1).End(xlUp).Row
Set SrcRng = .Range("A2:F" & LRSrc)
End With
With Sheets("PENALTY")
LRDest = .Cells(.Rows.Count, 2).End(xlUp).Row
SrcRng.Copy .Cells(LRDest + 1, 2) 'NOT YET PASTE VALUE
End With
End Sub
谢谢你。
SrcRng.Copy .Cells(LRDest + 1, 2)
这不会只粘贴值。它也会粘贴格式和其他东西。
试试下面的。
使用 PasteSpec 的方法一
SrcRng.Copy
.Cells(LRDest + 1, 2).PasteSpecial xlPasteValues
使用调整大小的方法二
Dim destRng As Range
Set destRng = .Cells(LRDest + 1, 2)
destRng.Resize(SrcRng.Rows.Count, SrcRng.Columns.Count).Value = SrcRng.Value
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句