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

最新推荐文章于 2023-07-10 15:36:50 发布

weixin_34315189

最新推荐文章于 2023-07-10 15:36:50 发布

阅读量423

点赞数 2

原文链接：http://www.cnblogs.com/lbnnbs/p/4784926.html

版权

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

转载于:https://www.cnblogs.com/lbnnbs/p/4784926.html