VBA宏:无法粘贴值 [英] VBA Macro: Can't Paste Value

问题描述

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

I have syntax that run smoothly. But, sadly it can't paste value. I've tried :

.PasteSpecial xlPasteValues

.PasteSpecial xlPasteValues

.PasteSpecial Paste:= 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)这不会仅粘贴值.它将粘贴格式和其他内容.

SrcRng.Copy .Cells(LRDest + 1, 2) This will not paste just values. It will paste formats and other stuff as well.

尝试以下方法.

方法(使用PasteSpecial)

Way One Using 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

这篇关于VBA宏:无法粘贴值的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！