vba - 删除字符右侧所有内容的代码会出错

Question

我厌倦了删除所有内容，包括 . . 的右侧例如 aaaaa.ntuthuh我得到 aaaaa
如果我粘贴 = Left(A1, Find(".", A1) - 1)在工作表的单元格中，公式可以正常工作，但在宏中我收到错误 Sub or Function not defined和 Find突出显示

谢谢

Sub Split()
    Dim fName As String

    fName = Left(A1, Find(".", A1) - 1)
    ActiveSheet.Range("B1").Value = fName

    ' have also tyred: Range("A1").Value = "=Left(A1, Find(".", A1) - 1)"  and: Range("A2").Formula = "=Left(A1, Find(".", A1) - 1)" but throws error "." is highlighted a "Expected end of statement"

End Sub

Answer 1

这是第三种选择:

Sub Splitt()
    Dim fName As String
    fName = Split(Range("A1").Value, ".")(0)
    ActiveSheet.Range("B1").Value = fName
End Sub