{"id":685,"date":"2019-05-31T23:08:10","date_gmt":"2019-05-31T23:08:10","guid":{"rendered":"http:\/\/www.vbastring.com\/blog\/?p=685"},"modified":"2019-05-31T23:28:07","modified_gmt":"2019-05-31T23:28:07","slug":"how-to-use-the-vba-trim-and-split-functions-to-parse-names","status":"publish","type":"post","link":"https:\/\/vbastring.com\/blog\/2019\/05\/31\/how-to-use-the-vba-trim-and-split-functions-to-parse-names\/","title":{"rendered":"How To Use The VBA Trim And Split Functions To Parse Names"},"content":{"rendered":"

In column A we have a list of random names<\/p>\n

\"\"<\/a><\/p>\n

Our task is to divide the list of names into first and last names<\/p>\n

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.<\/p>\n

We will use a custom vba function to facilitate this task:<\/p>\n

\"\"<\/a><\/p>\n

Remember that customized functions need to be placed in modules!<\/strong><\/p>\n

\"\"<\/a><\/p>\n

Function GetFName(WholeName) As String\r\n    Dim strTemp As String\r\n    Dim varParts As Variant\r\n        \r\n    varParts = Split(WholeName, \" \")\r\n    \r\n    strTemp = varParts(0)\r\n    \r\n    strTemp = Trim(strTemp)\r\n\r\n    GetFName = strTemp\r\n    \r\nEnd Function\r\n\r\n\r\nFunction GetLName(WholeName) As String\r\n    Dim strTemp As String\r\n    Dim varParts As Variant\r\n    \r\n    varParts = Split(WholeName, \" \")\r\n    \r\n    strTemp = varParts(1)\r\n    strTemp = Trim(strTemp)\r\n    \r\n    GetLName = strTemp\r\n    \r\nEnd Function\r\n<\/pre>\n
Now watch how it’s done:<\/p>\n