怎么编写电子表格的函数？

=IF(A1=6,"六",COUNTA(INDIRECT("A"&LOOKUP(1,0/(A$1:A1=6),ROW(A$1:A1))&":A"&ROW(A1)))-1)

在E1单元格内（F1,H1,M1等等任何一个单元格都可以）输入"＝(d1-average(D:D10))",回车后，选中该单元格，点住单元格右下角向下拖曳至E10；
在一个空格单元中输入“=SQRT(SUM(E1:E10))”回车后，该单元立刻显示出你所需要的数值

一个函数(function)是一个可以从程序其它地方调用执行的语句块。以下是函数定义格式：

type name ( argument1, argument2, ) statement

说明：

type 是函数返回的数据的类型

name 是函数被调用时使用的名

argument 是函数调用需要传入的参量(可以声明任意多个参量)。每个参量(argument)由一个数据类型后面跟一个标识名称组成，就像变量声明中一样(例如，int x)。参量仅在函数范围内有效，可以和函数中的其它变量一样使用， 它们使得函数在被调用时可以传入参数，不同的参数用逗号(comma)隔开

statement 是函数的内容。它可以是一句指令，也可以是一组指令组成的语句块。如果是一组指令，则语句块必须用花括号{}括起来，这也是我们最常见到情况。其实为了使程序的格式更加统一清晰，建议在仅有一条指令的时候也使用花括号，这是一个良好的编程习惯。

示例：每一个C语言程序有且只有一个main函数，本身main就是一个函数。结合上面的格式，自己理解一下。

int main()
  {
   return 0;
  }

int
getdata(int
a,int
b)//括号是形式参数，前面int
是函数返回值类型
{

return
a;//返回值
}
是实现的代码。
自己看看书上的函数定义和实现形式很容易的。

做了一段VBA代码，需要抱走。是随机生成的三种，觉得不想要，就多点几次运行。

Sub 随机()

Dim q1%, q2%, q3%, q4%, q5%

Range("c2:c13")ClearContents

q1 = Range("b14")

q3 = q1

  For q2 = 2 To 13

      q5 = Int(q3 / Cells(q2, 2))

      If q5 = 0 Then

      ElseIf q5 <> 0 Then

          q4 = ApplicationRandBetween(1, q5)

          Cells(q2, 3) = q4

          q3 = q3 - q4 Cells(q2, 2)

      End If

  Next

End Sub

---