Excel - 宏 - 使用值复制数据

Excel - 宏 - 使用值复制数据

我有一个宏,它可以从一张表复制一个范围并将其粘贴到另一张表中。

工作表名称 - 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

相关内容