| 
    
     |  | こんにちは。こうちゃんさん ありがとうございます。
 試してみます。
 
 
 ▼こうちゃん さん:
 >遠藤さん、こんにちは
 >
 >>すでにピボットテーブルが作成されているワークシートと元となっている
 >>ワークシートがあります。
 >>元データのワークシートは、増減します。(ほかからコピーされてきます。)
 >>その元データが変化した際、ピボットテーブルの元データをVBA上から変更したいのですが、やり方がわからなくて困っています。
 >>どなたか経験のある方教えてください。m(__)m
 >
 >レスがつかないようなので、つなぎに・・
 >A列からC列のデータで、同一シートのF1以降にピボットテーブルがあり、A列をキーとしてデータが増減する場合の、データ範囲の変更ならこんな感じ・・
 >質問ではシートが違うようなので、適当にシート指定してみてくださいね。
 >
 >Sub Test()
 >
 >  Range("F1").Select
 >  ActiveSheet.PivotTableWizard SourceType:=xlDatabase, _
 >    SourceData:="Sheet1!R1C1:R" & _
 >    Range("A65536").End(xlUp).Row & "C3"
 >  ActiveSheet.PivotTables("ピボットテーブル1").RefreshTable
 >
 >End Sub
 
 
 |  |