将一个 Excel 文件中的总和复制到另一个 Excel 文件

发布于 2024-12-11 06:26:55 字数 366 浏览 0 评论 0原文

我有一个文件（第 1 册），其中有一列数字和一个对它们进行求和的公式。我需要将该总和从 Book 1 复制到 Book 2、Book 3 等中的单元格。我最终复制并移动了公式，而不是总和本身。

Sub CopyInfo()
    experiment1.Range("F7").Value = experiment2.Range("I5").Value
    experiment1.Range("F7").Copy
    experiment2.Range("I5").Paste
    Application.CutCopyMode = False
End Sub

我正在尝试从“experiment1”复制到“experiment2”。

原文

I have one file (Book 1) with a column of numbers and a formula to sum them up. I need to copy that sum from Book 1 to a cell in Book 2, Book 3, etc. I end up copying the formula and moving it, not the sum itself.

Sub CopyInfo()
    experiment1.Range("F7").Value = experiment2.Range("I5").Value
    experiment1.Range("F7").Copy
    experiment2.Range("I5").Paste
    Application.CutCopyMode = False
End Sub

I'm trying to copy from "experiment1" to "experiment2".

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

为人所爱 2024-12-18 06:26:55

不要使用粘贴，而是使用 PasteSpecial，如下所示：

experiment2.Range("I5").PasteSpecial xlPasteValues

这将粘贴计算值而不是公式。

Instead of Paste, use PasteSpecial like this:

experiment2.Range("I5").PasteSpecial xlPasteValues

This will paste the calculated value instead of the formula.

回复收藏 0 原文

白首有我共你 2024-12-18 06:26:55

做一个过去的特别节目，这样你就会：

dim wkb1 as workbook, wkb2 as workbook
Dim r1 as range, r2 as range

set wkb1=workbooks("wkb1")
set wkb2=workbooks("wkb2")
set r1=wkb1.worksheets("whatever").range("A1")
set r2=wkb2.worksheets("whatever2").range("A1")
r1.copy
r2.PasteSpecial xlPasteValues

Do a past special, so you would have:

dim wkb1 as workbook, wkb2 as workbook
Dim r1 as range, r2 as range

set wkb1=workbooks("wkb1")
set wkb2=workbooks("wkb2")
set r1=wkb1.worksheets("whatever").range("A1")
set r2=wkb2.worksheets("whatever2").range("A1")
r1.copy
r2.PasteSpecial xlPasteValues

回复收藏 0 原文

~没有更多了~