从文本VBA拆分日期

Question

我的列中包含以下格式的数据

dd/mm/yyyy text text

我试图删除留下日期的文字。在VBA中，我正在尝试以下代码片段：

Range("D2:D" & Lastrow).Formula = "=LEFT(C2,FIND("_",C2)-1)"

当我运行代码时遇到错误。我相信这取决于＆＃39; Find＆＃39;功能，但我不确定如何解决它。