vba - 从文本中提取姓名

Question

这是一个单元格中包含的示例数据:

2014/08/19 12:59 John Doe
add sample@hotmail.com

我需要提取文本中的名称。我知道它总是放在日期时间戳之后。

我的想法是找到“:”的位置并添加4从而得到名字第一个字母的位置:

colonLoc = InStr(sampleData, ":")
firstLetterLoc = colonLoc + 4

之后我怎样才能得到名字和姓氏？

Answer 1

这是一个实现您想要的目标的衬垫。

debug.print Mid(Split(Split(Range("A1").Value, Chr(10))(0), ":")(1), 3)

编辑:

实际上您不需要 VBA。您也可以使用 Excel 公式

=MID(A1,FIND(":",A1)+3,FIND(CHAR(10),A1)-(FIND(":",A1)+3))