>>641 こんな方法があるようで。 Sub SelectZeroSumCells() Dim ws As Worksheet Dim cell As Range Dim formulaString As String Dim selectionRange As Range Set ws = ActiveSheet ' アクティブなシートを取得 Set selectionRange = Nothing ' 選択範囲を初期化 For Each cell In ws.UsedRange ' シート内の各セルをチェック If Left(cell.Formula, 4) = "=SUM" Then ' セルの数式がSUM関数かどうかを確認 formulaString = Mid(cell.Formula, 2) ' セルの数式を取得（=を除く） If Evaluate(formulaString) = 0 Then ' 数式を計算し、合計が0の場合はセルを選択 If selectionRange Is Nothing Then ' 初めて該当するセルが見つかった場合 Set selectionRange = cell Else Set selectionRange = Union(selectionRange, cell) ' 2つ目以降の該当するセルが見つかった場合、既存の選択範囲に追加 End If End If End If Next cell If Not selectionRange Is Nothing Then ' 該当するセルを選択 selectionRange.Select End If End Sub
