我有一个宏,它可以从一张表复制一个范围并将其粘贴到另一张表中。
工作表名称 - MAIN 范围 - C4 - D26 日期工作表 - 数据
然后,当您输入新数据并使用宏时,它会将数据复制到“数据表”并将其粘贴到原始数据下方。
我试图将数据粘贴为值,而不是复制包含公式的数据
以下是我正在使用的宏......请帮忙
Range("c4:d26").Copy Sheets("DATA").Range("A1048576").End(xlUp).Offset(1, 0)
Range("C4:c26").Select
Selection.ClearContents
Range("C4").Select
ActiveWorkbook.Save
答案1
尝试这样做:
Option Explicit
Public Sub CopyMainToData()
Dim wsMain As Worksheet
Dim wsData As Worksheet
Dim rngSource As Range
Set wsMain = ThisWorkbook.Worksheets("MAIN")
Set wsData = ThisWorkbook.Worksheets("DATA")
Set rngSource = wsMain.Range("C4:D26")
rngSource.Copy
wsData.Range("A1048576").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
rngSource.ClearContents
rngSource.Cells(1, 1).Select
End Sub