如何用<em>VB</em>A在<em>Excel</em>中写入公式

前一句写入数组公式，zhidao后一句公式向下专填充，最后用循环清除0值的单元格数据

代码如属下

Sub tt()
    Range("BE2").FormulaArray = "=INDEX(B:B,SMALL(IF(MATCH($B$1:$B$337,$B$1:$B$337,0)=ROW($1:$337),ROW($1:$337),65536),ROW(2:2)))"
    AutoFill Destination:=Range("BE2:BE337")
    For x = 2 To 337
        If Range("BE" & x) = 0 Then Range("BE" & x).ClearContents
    Next x
End Sub

用VBA在Excel中写入公式的方法：

把提取字符的公式写入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

VBA主要能用来扩展Windows的应用程序功能，特别是Microsoft Office软件。它也可说是一种应用程式视觉化的 Basic 脚本。

扩展资料：

VBA的相关要求规定：

1、VBA是基于Visual Basic for Windows 发展而来的。与传统的宏语言不同，传统的宏语言不具有高级语言的特征，没有面向对象的程序设计概念和方法。而VBA 提供了面向对象的程序设计方法，提供了相当完整的程序设计语言。

2、VBA 易于学习掌握，可以使用宏记录器记录用户的各种操作并将其转换为VBA 程序代码。这样用户可以容易地将日常工作转换为VBA 程序代码，使工作自动化。

3、VB是独立的开发工具，不需要依附于7a686964616fe78988e69d83334任何其他应用程序，有自己完全独立的工作环境和编译、链接系统。VBA却没有自己独立的工作环境，必须依附于某一个主应用程序，VBA专门用于Office的各应用程序中，如Word、 Excel、 Access等。在 Access中，可以通过VBA编写模块来满足特定的需要。

参考资料来源：百度百科-VBA

cells(1,1)="=sum(B1:B10)"  '在单元格A1中写入求和公式

 你要的是数组公式是吧

cells(1,1).FormulaArray ="你的数组公式"