如何新列添加到现有的表与第一列

Question

如何现有薄片与杉杉列的部分添加新列的一部分VBA

假设我有以下数据：

Test 12212 
Test 6588476 
Something 4125 
What is this 1254 

而且我想这样做：

Column1  Column2 
Test   Test 12212 
Test   Test 6588476 
Something Something 4125 
What   What is this 1254 

任何帮助表示赞赏。

问候，

西蒙

Answer 1

创建一个模块，在这个函数：

Public Function GetFirstWord(sFull As String) As String 
    GetFirstWord = Split(sFull, " ")(0) 
End Function 

然后你可以使用它你的公式是这样的：

=GetFirstWord(B1)