我想做个EXCEL的VBA，详细要求如下：用VBA代替一个数据公式

Private Sub iCul(c As Range, Optional SL As Boolean = False) 'SL：true为面积，false为周长 Dim a, d, dL, i, Fz, s, s1$, sa, tmp Fz = Split("=,+,*,(,)", ",") s = c.Text With Worksheets("Sheet2")