'行の表示 Rows("6:8").EntireRow.Hidden = False '行の非表示 Rows("7:7").EntireRow.Hidden = True