Free for PREMIUM members
Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium
Dim lngLastRow As Long
Dim lngRow As Long
Dim strParts() As String
Const DATA_COL = "A"
lngLastRow = Range(DATA_COL & "65536").End(xlUp).Row
For lngRow = 1 To lngLastRow
strParts = Split(Cells(lngRow, DATA_COL).Value, ",")
If UBound(strParts) > 0 Then
Cells(lngRow, DATA_COL).Value = strParts(1) & " " & strParts(0)
Open in new window
Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
I find that it leaves a zero...
Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.