VBA 判断单元格是否为公式，可用于数组

Function ISFORMULA(ByVal rg As Object) As Variant
      Dim temp As
Variant
      Dim i As Integer, j As Integer
      temp =
rg.Formula
     
      If IsArray(temp) Then
         For i = 1 To
UBound(temp, 1)
            For j = 1 To UBound(temp, 2)
              
temp(i, j) = IIf(InStr(temp(i, j), "=") > 0, True, False)
            Next
j
         Next i
      Else
         temp = IIf(InStr(temp, "=") >
0, True, False)
      End If
      ISFORMULA = temp
End Function