我有这个代码,但我需要它来复制粘贴数据作为值。我知道它可能很简单,但我没有使用过 .Paste 函数,所以我不知道如何转换它。我处于非常初级的水平。提前谢谢了!
Sub Movetabletototal()
Dim Count As Integer
Dim copyRng As Range, pasteRng As Range
Dim totalWS As Worksheet, mixerWS As Worksheet
Set totalWS = Worksheets("TOTAL")
Set mixerWS = Worksheets("MIXER TOTAL")
Set copyRng = mixerWS.Range("P3:Q" & mixerWS.Cells(mixerWS.Rows.Count, 17).End(xlUp).Row)
Dim newRow As Long
newRow = totalWS.Cells(totalWS.Rows.Count, 1).End(xlUp).Row
If newRow > 1 Then newRow = newRow + 1
copyRng.Copy totalWS.Range(totalWS.Cells(newRow, 1), totalWS.Cells(newRow + copyRng.Rows.Count, copyRng.Columns.Count))
End Sub
您需要PasteSpecial
在代码中使用。将最后一行更改为:
'.
'. Your code will be the same till here
'.
copyRng.Copy
Set pasteRng = totalWS.Range(totalWS.Cells(newRow, 1), _
totalWS.Cells(newRow + copyRng.Rows.Count, copyRng.Columns.Count))
pasteRng.PasteSpecial xlPasteValues
End Sub
或者您可以使用如下值(设置范围如上):
pasteRng.Value = copyRng.Value
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句