这个宏代码是做什么用的？怎么使用？

Function 得出结果(c As Range)
p = c.Text
For j = 1 To Len(p)
F:
If (Mid(p, j, 1) = "[") Then
For i = j + 1 To Len(p)
If (Mid(p, i, 1) = "]") Then
j = i + 1
Exit For
End If
Next
End If
If (Mid(p, j, 1) = "[") Then
GoTo F
End If
r = r + Mid(p, j, 1)
Next
If (r <> "") Then
得出结果 =Application.Evaluate("(" & r & ")")
Else
得出结果 = ""
EndIf
End Function

判断一个格、一段文字，是否有[]括起来的算式，如果有，计算、返回

得出结果(【2】【4】【5】【6】【7】【8】) 返回2+4+5+6+7+8

代码如下： sub 插入行() ' ' 宏1 宏 ' '   '定义两个动态数组存放b、c两列的数据     dim a(), b()     '定义一个整数存放现有的数据行数     dim m as integer     '获取现有数据的行数     m = activesheet.usedrange.rows.count     '重新定义数组的大小     redim a(m), b(m)     '将b、c两列的数据赋值到a()、b()两个数组中     for i = 1 to m         a(i) = cells(i, 2)         b(i) = cells(i, 3)     next     '选中第二行整行     rows("2:2").entirerow.select     '开始空行的插入和单元格数据的填入     for i = 1 to m         for j = 1 to a(i)             '插入新的一行             selection.insert shift:=xldown, copyorigin:=xlformatfromleftorabove             '将c列的值赋予新插入行的首个单元格             activecell.value = b(i)             '活动单元格下移一行             activecell.offset(1, 0).rows("1:1").entirerow.select         next         '活动单元格下移一行         activecell.offset(1, 0).rows("1:1").entirerow.select     next end sub --------------------------------------------------------------------------------------- 感觉可以，记得采纳哦！