在Excel中，如何使用VBA写函数公式？

把提取字符的公式写入sheet2单元格
Sub aa()
Sheet2.Range("A1").Formula = "=left(sheet1!A1,5)"
End Sub
直接把结果写入sheet2单元格
sub aa()
sheet2.range("A1").value=left(sheet1.range("A1").value,5)
end sub

一、利用单元格公式返回值
Sub t5()
Range("d16") = Evaluate("=SUMIF(A2:A6,""b"",B2:B6)") '宏表函数直接把公式表达式转化为数值
Range("d9") = Evaluate("=SUM(B2:B6*C2:C6)")
End Sub

二、借用工作表函数
Sub t6()
Range("d8") = Application.WorksheeFunction.CountIf(Range("A1:A10"), "B")
End Sub'

三、利用VBA函数
Sub t7()
Range("C20") = VBA.InStr(Range("a20"), "E")
End Sub

1、示例代码：

Sub test1()
    Dim x As Long
    x = WorksheetFunction.SumIf(Range("A2:A9"), Range("C2").Value, Range("B2:B9"))
    Range("D2").Value = x
End Sub

2、如下图：

3、以上代码的作用是：调用工作表函数SUMIF，求A2:A9范围内符合C2单元格条件，对应的B2:B9范围内数值之和，结果输出到D2单元格。

Function dxl(Rng As Range)
     Dim Result(1 To 7) As Double
     ...................
     'ActiveCell.Resize(1, 7) = Result
     dxl=Result
end function

直接最后第二句改改就好了。直接就是变量的赋值语句。

最后一个弄成循环的，
for i=1 to ubound(Result)
Activecell.offset(1,i).value=Result(i)
next i

定义为函数不如定义为过程好~因为函数只有一个返回值，而过程虽然没有返回值，但是可以将多个值赋给多个对象~
Sub dxl(Rng As Range)
Dim Result(1 To 7) As Double
...................
for i=1 to 7
cells(i,1) = Result (i)
next i
end Sub

注：
cells(i,j)表示当前工作表的第i行第j列相交的单元格~
sheets("表名").cells(i,j)则表示 名为“表名”的工作表中相应的单元格

所谓函数，就是有一个输入输出的过程，你输入是Rng，但是输出没有定义dxl，这样是不对的。
就像你说的，如果写了“dxl=result 只在相应单元格中输出result（1）。 ”

其实你需要的是一些操作的合集，并不需要函数。你在sheet里面插入一个按钮，在按钮的click事件里面编写代码，就可以方便地把结果输出到7个单元格了