Function ExtractCharacters(ByVal s As String, blnNums As Boolean) Application.Volatile With CreateObject("vbscript.regexp") .Global = True .IgnoreCase = True .Pattern = IIf(blnNums, "\D", "\d") ExtractCharacters = .Replace(s, vbNullString) End With End Function
= ExtractCharacters(A1,1)
= ExtractCharacters(A1,0)
Užitočné (2) | Jaroslavzatko, ivka70 |
vzostupne zoradenie v exceli 1,3,6,8A,9,12C...