VBA宏：无法粘贴值

Question

我的语法运行流畅。但是，可悲的是它无法粘贴价值。我已经尝试过了：

  

.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

谢谢。

Answer 1

SrcRng.Copy .Cells(LRDest + 1, 2)这将不会仅粘贴值。它将粘贴格式和其他内容。

尝试以下方法。

方法（使用PasteSpecial）

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