VBA宏:无法粘贴值 [英] VBA Macro: Can't Paste Value
本文介绍了VBA宏:无法粘贴值的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我的语法运行流畅.但是,可悲的是它无法粘贴价值.我已经尝试过了:
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屋!
查看全文