'カラム幅の自動調整 ActiveWorksheet.Cells.Columns.AutoFit '高さを自動調整 ActiveWorksheet.Rows("1:5").EntireRow.AutoFit