excel vba 中如何实现拷贝复制单元格的值,而不拷贝单元格内的公式

最新推荐文章于 2024-09-05 17:21:52 发布

HD243608836

最新推荐文章于 2024-09-05 17:21:52 发布

阅读量1.4w

点赞数

分类专栏： excel 文章标签： excel vb 单元格值公式

原文链接：https://bbs.csdn.net/topics/260015571

版权

excel 专栏收录该内容

7 篇文章

订阅专栏

在Excel中，使用CurrentRegion.Copy时可能会导致公式和值一起复制，造成不一致。为确保仅复制单元格的值，可以采用两种方式：1) 范围拷贝，如Sheets(1).[a1].CurrentRegion.Copy，然后粘贴为值；2) 单列拷贝，如Sheets(2).[a1].PasteSpecial Paste:=xlPasteValues。这两种方法能避免复制公式，确保表2数据与表1一致。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

问题：

目前要实现将表1中的部分数据拷贝到表2中
用了sheets(1).[a1].CurrentRegion.Copy sheets(2).[a1]

现在出现一个现象, 有的时候表2的数据和表1是一致的, 有的时候是不一致

表1中有的单元格用的是公式, 在复制到表2的时候, 有时是复制这个公式的结果, 有时是复制公式, 所以会出错

现在不知道如何解决这个问题

currentregion.copy 这个函数带什么参数后可能实现只拷贝单元格的值

答案

把语句改成

方式一：范围拷贝：Sheets(1).[a1].CurrentRegion.Copy
方式二：单列拷贝：Sheets(2).[a1].PasteSpecial Paste:=xlPasteValues

例如：

Sheets("汇总数据").Select
    Range("N1:N3").Copy
    Sheets(1).Select
    Range("A" & Rows.Count).End(xlUp).Offset(2, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues