VBA，如何使公式成为macros

我有以下基本公式，

=LEFT(A1,FIND(".",A1)-1) 

我怎样才能把它变成一个macros，所以在我select的单元格上粘贴这个公式？ 而不是一遍又一遍地复制和粘贴它可能会更容易使这是一个macros的捷径。 这是什么东西，可以适用于任何公式？

谢谢

Answer 1

 Sub qwerty() ActiveCell.Formula = "=LEFT(A1,FIND(""."",A1)-1)" End Sub 

注意：

我们双引号的双引号！

Answer 2

您也可以创build自定义function：

  Function MyLeft(my_Cell_String) As String MyLeft = Left(my_Cell_String, InStr(1, my_Cell_String, ".") - 1) End Function 

那么你的单元格中的公式将是：

  =MyLeft(A1)