Vba 如何提取所需的文本

我有一个列，其中包含日期值和具有特定文件扩展名的文本。我将文件名分为3列，其中一列有这些日期和文本

示例：13.04.26.xls（日期）或v1.xls（文本）

我想要一个公式来提取13.04.26和v1。

---

我尝试使用“Right”公式，但由于我有两种不同的文本，因此数字计数不同。

假设A1单元格中有

13.04.26.xls

，并且希望B2单元格得到正确的结果，只需将以下公式放入B1即可：

=MID(A1,1,SEARCH(".xls",A1)-1)

试试这个

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

---

在C1中添加此公式

=替换（B1，“.”，“-”

，以获取C1中的数据语法。您需要复制C1结果的粘贴值，使用

文本将其转换为列

，最后获得数据类型值。使用UDF可能会更容易；）你是说用宏？我正在尝试编写一个宏来转换为日期

=DATEVALUE（替换为（B1，“.”，“-”）

@maybeWeCouldStealAVan，请将其添加为答案。KazJaw回答了您的问题，我刚刚对后续内容发表了评论。