毎日更新されたピボットテーブルデータをテーブルの新しいセルに自動的に追加する

Question

Velin Georgievのtutorialに続いてExcelレポートを自動化しようとしています。

毎日更新されているピボットテーブルと標準テーブルが同じワークシートにあり、毎日更新されるピボットテーブルの合計値を新しいセルに追加するテーブルがあります。

標準テーブルの列日は「今日」の日付と合計は、ピボットテーブルからデータを取得含まれています。毎日この表が1行増えます。これまでのところ、それは手動で行われていた

。それはVBAとそれを行うことは可能ですか？

ご協力いただければ幸いです。

Answer 1

あなたのケースは、情報のブロックの下端までExcelで広範なアイデアを適用しているようです。いくつかの異なる方法（要約here）があり、それぞれ独自の長所と短所があります。

あなたのケースで最もシンプルなものはおそらく.Endです。 、あなたは小計を持っている場合 - 私はあなたのシートの正確な構造を知らないが、以下の

Range("A" & Cells(Rows.Count, "A").End(xlUp).Row - 1).Copy 

のようなものは、単に「TOTAL」の前に、あなたのテーブルの列A（の最後から二番目の行のセルをコピーしますそれを-2にするなど）。その後

、

「F」は第二あなたのテーブルの列（またはどこでもそれをペーストしたい）である

Range("F" & Cells(Rows.Count, "F").End(xlUp).Row + 1).PasteSpecial xlPasteValues 

ような何かを、あなたの標準テーブルにコピーします。

Answer 2

私は問題（インターネットでそれらに類似の質問&ソリューションを投稿人々に多くのおかげで）解決してきた方法は次のとおりです。

Sub VlookupFunction() 

    Dim S_Name As String 
    Dim Lookup_Range As Range 
    Dim S_Value As Single 

    Dim c As Long 'column 
    Dim r As Long 'row 

    S_Name = "OpenState" 
    Set Lookup_Range = Range("A1:B10") 

    S_Value = Application.WorksheetFunction.VLookup(S_Name, Lookup_Range, 2, False) 

With Sheet1 

    r = .Columns(3).Find(what:="", after:=.Cells(14, 3)).Row 
    .Cells(r, 3) = Date 'today 

    r = .Columns(4).Find(what:="", after:=.Cells(14, 4)).Row 
    .Cells(r, 4) = S_Value 

End With 

End Sub