如何用VBA在Excel中写入公式

Question

请教大家，有两个工作表，想把工作表1 里面A1的前5个字符提取出来，放置到工作表2的A1里面，想用VBA编写，请问大家如何写，谢谢

Answer 1

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

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

Answer 2

把提取字符的公式写入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本回答被提问者采纳

Answer 3

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

Answer 4

高效办公，可以考虑一下python，VBA在大规模数据下蛮踌躇的

Answer 5

 

 

Private Sub Workbook_Activate()

Sheets(2).Cells(1, 1).Value = Mid(Sheets(1).Cells(1, 1).Value, 1, 5)

End Sub