'表修正'カウントした値をインデックス番号として修正対象の表を指定'表に記載されている直近8日間の値を週始めのセルから順に転記WithpptSld.Shapes(Table).TableForj=1To7ForCopyCol=10To17.Cell(j,CopyCol).Shape.TextFrame.TextRange.CopyPasteCol=CopyCol-7.Cell(j,PasteCol).Shape.TextFrame....