如何新列添加到現有的表與第一列

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)