VBA，如何使公式成宏

Question

我有以下基本公式，

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

如何将其转换为宏，所以在我选择的单元格上粘贴此公式？只是不是一遍又一遍地复制和粘贴它可能更容易使它成为宏的快捷方式。这也是可以在任何公式之间应用的东西吗？

由于

Answer 1

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

注意：

我们加倍双引号！

Answer 2

您还可以创建自定义功能：

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

然后你在细胞中的公式将是：

     =MyLeft(A1)