'================================================================================= Sub 指定条件を満たすセルを選択する() Worksheets("SSS").Activate 'シートをアクティブにする ※1 Range("A1").SpecialCells(xlCellTypeBlanks).Select '空白セル ※2、3 Range("A1").SpecialCells(xlCellTypeVisible).Select '可視セル ※2、3 Range("A1").SpecialCells(xlCellTypeLastCell).Select '最後のセル ※2、3 Range("A1").SpecialCells(xlCellTypeFormulas, 1).Select '数式セル ※2、