將Excel中的Excel數據復制到另一個工作表中

Question

我一直在谷歌搜索這個但沒有運氣。 我的excel工作簿中有多個工作表，一個工作表作為“摘要”頁面。 我希望其他工作表中的數據在我的摘要頁面中更新。 每當有人添加行或添加新數據時，我希望它能夠流向摘要頁面。

換句話說，我有工作Sheet A ，工作Sheet B和工作Sheet C 我希望它們的所有數據都顯示在工作Sheet D和工作Sheet D以便在工作Sheet A ，工作Sheet B或工作Sheet C更改時更新。

這可能嗎？

Answer 1

更新：這個答案是基於一個被誤解的問題。

有可能的：

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

Sheet1是同一個excel文件中的另一個Sheet。

這是SUM的最簡單示例。

您可以查看本教程。

Answer 2

我不會干凈，但如果你可以在SheetD A1使用它並拖動它。 =if(SheetA!A1="","",SheetA!A1)

如果您的單元格為空白，則不會顯示任何內容。 如果它包含任何內容，它將顯示出來。

不確定紙張是否相互“競爭”，或者它們是否顯示不同的東西。 換句話說， SheetA A1和SheetB A1是否有值？ 如果是這樣的話，你希望它如何反應？

Answer 3

您可以使用此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

它有兩個基本假設，可以輕松更改：

1. 表的名稱是A ， B ， C和D 我想這不是真的，所以只需替換Sheets("A").Select等所有行Sheets("A").Select Sheets("NameOfSheet").Select 。
2. 所有工作表中的數據都從單元格A2開始。 如果沒有，只需替換Range("A2").Select等所有行Range("A2").Select正確的數據最左上角的單元格。

一個假設不能輕易改變 - 所有工作表上的數據看起來都是一樣的（相同數量的列，按相同順序）。

試試這個並告訴我它是否對你有幫助;）