定期的に、ピボットテーブルをマクロで作成したくなることがある。そこで試しにマクロの記録で作ってみて、少し整理すると、このような記述になる。 Sub Test() Dim Tb As ListObject Set Tb = ActiveSheet.ListObjects(1) Dim Sh As Worksheet Sheets.Add S…