2016-07-13 11 views
1

私はこれをgoogleで探していますが、運はありません。私はExcelのワークブックに複数のシートがあり、「要約」ページには1枚あります。私は他のシートのデータをサマリーページで更新したい。誰かが行を追加したり、新しいデータを追加したりすると、要約ページにそのデータが流れてほしいと思います。1枚のシートから別のシートにデータをコピーするには

つまり、私はSheet ASheet B、およびSheet Cです。 Sheet Dにすべてのデータを表示し、Sheet ASheet B、またはSheet Cが変更されると、Sheet Dが更新されるようにします。

enter image description here

これは可能ですか?

+0

シートDのすべてのシートのデータをORG化するにはどうすればよいですか? – EBH

+0

ちょうどお互いに積み重ねて、シートA、B&Cのようにすべてのコンテンツを互いに重ねて表示する必要があります – user3151956

答えて

0

更新:この回答は、間違った質問に基づいています。

ことが可能です:Sheet1が同じExcelファイル内の別のシートである

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

これはSUMの最も単純な例です。

thisチュートリアルをご覧ください。

+0

こんにちは、ありがとうございました。申し訳ありませんが、私はより明確にすべきでした。他のデータシートにある数値だけではなく、内容も同様です。したがって、数字、テキスト、日付の組み合わせが1つの行にまたがっています。そのデータをシートDに表示させるだけです – user3151956

+0

このリンクはどうですかhttp://answers.microsoft.com/en-us/office/forum/office_2007-excel/how-do-i-mirror-worksheets- i-change-one/4a64f964-a9a7-4ca9-b7a2-df4765b92e36?auth = 1? – mtb

+0

残念なことに、その解決策はうまくいかず、私はスレッドを通過し、別のファイルの別々のExcelシートで動作するように見えます。私は文字通りシートA、B、およびCの内容を取ってシートDのすべての内容を表示し、シートA、B、およびCが更新された場合の更新を反映するものを探しています – user3151956

0

私はきれいではありませんが、あなたがSheetD A1でこれを使用してドラッグすることができます。 =if(SheetA!A1="","",SheetA!A1)

セルが空白の場合は、何も表示されません。それに何かが含まれている場合は、それが表示されます。

シートが互いに対して「競合する」かどうか、または異なるものが表示されているかどうかは不明です。つまり、SheetA A1SheetB A1の値がありますか?それが事実なら、どのように反応させたいのですか?

+0

ありがとう、あなたのコメント。残念ながら、それはトリックをやっていないようでした。私はそれを試しましたが、私が必要としているのは、文字通りシートAとシートBとシートCのすべての内容を取って、それらをシートDの上に重ねて表示するものです。シートA、B、およびCの内容をお互いに積み重ねています。シートAに別の行を追加する場合は、シートDに行を追加すると理想的でしょう。 – user3151956

+0

はい、私はそのための解決策があります。しかし、私が投稿する前に、あなたはA1の位置にすべてのシートに値がある場合、シートD A1で何を見たいですか? – Nickstoy

+0

次の例で結果をどのようにしたいか教えてください。https://snag.gy/JApZ1L.jpg – Nickstoy

0

あなたは、この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をコピーしています、BC後1シートD以外

これは容易に変更することができる2つの基本的な仮定がありますシートの名前はABCDある

  1. を。私はこれが真実ではないと思うので、Sheets("A").Selectのようなすべての行をSheets("NameOfSheet").Selectで置き換えてください。
  2. すべてのシートのデータはセルA2で開始されます。そうでない場合は、Range("A2").Selectのようなすべての行をデータの最も左上の正しいセルに置き換えます。

一つの前提は簡単変更することはできません - すべてのシート上のデータが(同じ順序で、同じ数の列)だけで同じように見えること。

関連する問題