将excel数据从一张工作表复制到另一张工作表中

我一直在谷歌上搜索这个，但运气不好。我的excel工作簿中有多张工作表，一张工作表作为“摘要”页面。我希望在我的摘要页面中更新其他工作表中的数据。无论何时有人添加行或添加新数据，我都希望这些数据流到摘要页面

换句话说，我有

表A

、

表B

和

表C

。我希望他们的所有数据都显示在

工作表D

上，并且

工作表D

在

工作表A

、

工作表B

或

工作表C

发生变化时更新

---

这可能吗？

更新：这个答案基于一个被误解的问题

有可能：

=SUM(B1:B8, Sheet1!B3:B8)

其中

Sheet1

是同一excel文件中的另一张工作表

这是求和的最简单例子

---

你可以看看教程。

更新：这个答案基于一个被误解的问题

有可能：

=SUM(B1:B8, Sheet1!B3:B8)

其中

Sheet1

是同一excel文件中的另一张工作表

这是求和的最简单例子

---

您可以查看教程。

我不会很干净，但如果您可以在

活页A1中使用它并拖动它<代码>=如果（SheetA！A1=“”，SheetA！A1）

如果你的手机是空白的，它不会显示任何内容。如果它包含任何内容，就会显示出来

---

不确定这些表是否相互“竞争”，或者它们是否显示不同的内容。换句话说，在

SheetA A1

和

SheetB A1

中是否有值？如果是这种情况，您希望它如何反应？

我不会干净，但如果您可以在

活页A1中使用它并拖动它<代码>=如果（SheetA！A1=“”，SheetA！A1）

如果你的手机是空白的，它不会显示任何内容。如果它包含任何内容，就会显示出来

---

不确定这些表是否相互“竞争”，或者它们是否显示不同的内容。换句话说，在

SheetA A1

和

SheetB A1

中是否有值？如果是这种情况，您希望它如何反应？

您可以使用以下VBA代码：

Sub copy_all()
'
' copy all sheets to D
'
    Dim rowCount As Integer

    Sheets("D").Select
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete
    Sheets("A").Select
    Range("A2").Select
    Range(Selection, Selection.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Sheets("D").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("B").Select
    Range("A2").Select
    Range(Selection, Selection.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Sheets("D").Select
    rowCount = Cells(Rows.Count, 1).End(xlUp).Row 'column A has a value of 1
    Cells(rowCount + 1, 1).Select
    ActiveSheet.Paste
    Sheets("C").Select
    Range("A2").Select
    Range(Selection, Selection.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Sheets("D").Select
    rowCount = Cells(Rows.Count, 1).End(xlUp).Row 'column A has a value of 1
    Cells(rowCount + 1, 1).Select
    ActiveSheet.Paste
End Sub

每次运行此宏时，它都会删除工作表

D

中除列标题以外的所有内容，并将工作表

A

、

B

和

C

依次复制到工作表

D

它有两个基本假设，很容易改变：

工作表的名称为

A

、

B

、

C

和

D

。我想这不是真的，所以只需将所有行替换为

Sheets（“A”）。选择
by
Sheets（“NameOfSheet”）。选择

所有工作表中的数据从单元格

A2

开始。如果没有，只需替换所有行，如

Range（“A2”）。选择数据最左上角的正确单元格

一个假设不能轻易改变——所有工作表上的数据看起来都一样（相同的列数，相同的顺序）

---

试试这个，告诉我它是否对你有帮助；）

您可以使用以下VBA代码：

Sub copy_all()
'
' copy all sheets to D
'
    Dim rowCount As Integer

    Sheets("D").Select
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete
    Sheets("A").Select
    Range("A2").Select
    Range(Selection, Selection.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Sheets("D").Select
    Range("A2").Select
    ActiveSheet.Paste
    Sheets("B").Select
    Range("A2").Select
    Range(Selection, Selection.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Sheets("D").Select
    rowCount = Cells(Rows.Count, 1).End(xlUp).Row 'column A has a value of 1
    Cells(rowCount + 1, 1).Select
    ActiveSheet.Paste
    Sheets("C").Select
    Range("A2").Select
    Range(Selection, Selection.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Sheets("D").Select
    rowCount = Cells(Rows.Count, 1).End(xlUp).Row 'column A has a value of 1
    Cells(rowCount + 1, 1).Select
    ActiveSheet.Paste
End Sub

每次运行此宏时，它都会删除工作表

D

中除列标题以外的所有内容，并将工作表

A

、

B

和

C

依次复制到工作表

D

它有两个基本假设，很容易改变：

工作表的名称为

A

、

B

、

C

和

D

。我想这不是真的，所以只需将所有行替换为

Sheets（“A”）。选择
by
Sheets（“NameOfSheet”）。选择

所有工作表中的数据从单元格

A2

开始。如果没有，只需替换所有行，如

Range（“A2”）。选择数据最左上角的正确单元格

一个假设不能轻易改变——所有工作表上的数据看起来都一样（相同的列数，相同的顺序）

---

试试这个，告诉我它是否对你有帮助；）

你好，谢谢你的回复。对不起，我应该说得更清楚些。其他数据表中不仅有数字，还有内容。因此，我们有一个数字、文本和日期的组合横跨一行。我们只是希望所有这些数据都显示在Sheet DHow中，关于这个链接：？不幸的是，这个解决方案不起作用，我通过了这个线程，看起来它适用于不同文件中的单独excel工作表。我正在寻找的东西，将字面上采取的内容表A，B和C，并显示所有的内容表D，并反映任何更新，如果表A，B和C是更新的HI那里，感谢您的回复。对不起，我应该说得更清楚些。其他数据表中不仅有数字，还有内容。因此，我们有一个数字、文本和日期的组合横跨一行。我们只是希望所有这些数据都显示在Sheet DHow中，关于这个链接：？不幸的是，这个解决方案不起作用，我通过了这个线程，看起来它适用于不同文件中的单独excel工作表。我正在寻找一种东西，它可以将A、B和C表中的内容显示在D表中，如果A、B和C表被更新，它可以反映出任何更新。所有表中的数据应该如何组织在D表中？只需要彼此堆叠，并像A、B和C表中那样显示所有内容，如何将所有工作表中的数据组织到工作表D中？只需彼此堆叠并显示所有内容，如工作表A、B和C中的内容，彼此重叠。嘿，谢谢你的评论。不幸的是，这似乎不起作用。我试过了，但我需要的是一种东西，它可以把A表、B表和C表的所有内容，在D表中一个接一个地显示出来，所以D表的内容就是