' Similar(refs as 検索範囲, ref as 検索対象, deg as 類似度) Function Similar(refs As Range, ref As Range, deg As Long) As Boolean Dim r As Range For Each r In refs If (r.Address <> ref.Address) And (Len(r.Value) > 0) Then If SimilarStrings…

Function 式(c As Range) As String Dim s As String, a As String, i As Long, j As Long, r As Range s = c.Formula For i = 2 To Len(c.Formula) 'i:Midの開始位置 1文字目の「=」は飛ばす For j = Len(c.Formula) - i + 1 To 1 Step -1 'j:Midの文字数 a…