In column A we have a list of random names
Our task is to divide the list of names into first and last names
We are going to parse (divide) the names by using the VBA “split” function. Then we will use the VBA Trim function to remove the excess spaces.
We will use a custom vba function to facilitate this task:
Remember that customized functions need to be placed in modules!
Function GetFName(WholeName) As String Dim strTemp As String Dim varParts As Variant varParts = Split(WholeName, " ") strTemp = varParts(0) strTemp = Trim(strTemp) GetFName = strTemp End Function Function GetLName(WholeName) As String Dim strTemp As String Dim varParts As Variant varParts = Split(WholeName, " ") strTemp = varParts(1) strTemp = Trim(strTemp) GetLName = strTemp End Function
Now watch how it’s done:
Let me know if you have any questions.
****************************************************
|