140517

Excelのシートにおいて、数式を含んでいるか調べる。

セル(1,1)からセル(100,100)までのシートの保護のかかっていない

セルについて、数式を含んでいるかを調べ、

数式を含んでいるセルは数式と表示する。

Sub 数式()

For i = 1 To 100

For j = 1 To 100

  If Cells(i, j).Locked = False Then

    If Cells(i, j).HasFormula Then

      Cells(i, j).Value = "数式"

    End If

  End If

Next

Next

End Sub