VBA comma separated cells, needt last entry only

by

I can’t see your image but after your explanation, you are looking for the following function:

Function Remove_last_part(StrCommaSeparated As String) As String

    Dim arr() As String
    Dim i As Integer

    arr = Split(StrCommaSeparated, ",") ' make an array out of the comma separated string

    ReDim Preserve arr(UBound(arr) - 1) ' Remove the last array element, by redimensioning the array to it's total elements minus 1

    Remove_last_part = Join(arr, ",")  ' make a comma separated string out of the redimensionned array

End Function

Example on how to use it :

Public Sub TestIt()

    Dim strTest As String

    strTest = "anything,anywhen,anyhow,New York"

    Debug.Print "BEFORE -->" & strTest
    Debug.Print "AFTER  -->" & Remove_last_part(strTest)

End Sub

Will output :

BEFORE -->anything,anywhen,anyhow,New York
AFTER  -->anything,anywhen,anyhow

More Related Contents:

  1. How to color all the rows based on the cell values
  2. How to get MS Excel to list files in a folder with their metadata (in particular, the tags created for the files)?
  3. Excel – opening file stuck on 100%, until VBA code finishes
  4. Function to convert column number to letter?
  5. Read/Parse text file line by line in VBA
  6. How do I find the last column with data?
  7. Better way to find last used row
  8. Excel VBA: Answer gets “stuck”
  9. 2 Dimensional array from range [closed]
  10. filter out multiple criteria using excel vba
  11. Excel VBA autofilter all but three
  12. Cells.Find() Raises “Runtime Error 91: Object Variable or With Block Not Set”
  13. Using Google Chrome in Selenium VBA (Installation Steps)
  14. Dir() function not working in Mac Excel 2011 VBA
  15. Excel VBA code to copy a specific string to clipboard
  16. How to use workbook.saveas with automatic Overwrite
  17. Range limit conundrum
  18. How do you run a .exe with parameters using vba’s shell()?
  19. Excel VBA – Range.Copy transpose paste
  20. How to use FindWindow to find a visible or invisible window with a partial name in VBA
  21. How do you get a Range to return its Name?
  22. Passing variable from Form to Module in VBA
  23. Excel VBA: Convert a date string to a Unix timestamp
  24. excel to pdf ignores print area and calls printer
  25. In Excel, can I use a hyperlink to run vba macro?
  26. Excel VBA – exit for loop
  27. Best way to protect Excel VBA code? [closed]
  28. VBA: Remove duplicates fails when columns array is passed using a variable
  29. excel vba how to copy the value of multiple non-contiguous ranges into an array
  30. How does one restore default case to a variable in VBA (Excel 2010)?

Leave a Comment