Skip to main content

Trim string from sentence,Use of Trim in different Ways in excel

Trim string from sentence in excel


 Public Function trimtwo(ByVal r As Range) As String  
 Dim str As String  
 str = r(1, 1)  
 Dim Flag As Boolean  
 Flag = False  
 Dim indexof As Integer  
 indexof = InStr(str, "Shri")  
 If indexof Then  
 str = Mid(str, indexof + 4, Len(str))  
 Flag = True  
 End If  
 indexof = InStr(str, "SHRI")  
 If indexof Then  
 str = Mid(str, indexof + 4, Len(str))  
 Flag = True  
 End If  
 indexof = InStr(str, "Smt.")  
 If indexof Then  
 'str = Mid(str, 1, 1) & Mid(str, indexof + 5, Len(str))  
 str = Mid(str, indexof + 5, Len(str))  
 Flag = True  
 End If  
 indexof = InStr(str, ",")  
 If indexof Then  
 str = Mid(str, 1, indexof - 1)  
 End If  
 str = Trim(str)  
 If Flag Then  
 indexof = InStr(str, " ")  
 If indexof Then  
 str = Mid(str, 1, indexof - 1) & Mid(str, indexof + 1, Len(str))  
 End If  
 End If  
 trimtwo = str  
 End Function  
 Public Function trimone(ByVal r As Range) As String  
 Dim str As String  
 str = Mid(r(1, 1), 1, 1)  
 trimone = str  
 End Function  
 Use of Trim in excel in different ways  
 Public Function trimone(ByVal r As Range) As String  
 Dim str As String  
 str = Trim(Mid(r(1, 1), 1, 1))  
 trimone = str  
 End Function  
 Public Function trims(ByVal r As Range) As String  
 Dim str As String  
 str = r(1, 1)  
 Dim Flag As Boolean  
 Flag = False  
 Dim indexof As Integer  
 str = Trim(str)  
 str = WorksheetFunction.Substitute(str, ". ", ".")  
 str = Trim(str)  
 indexof = InStr(str, "shri")  
 If indexof = 1 Then  
 str = WorksheetFunction.Substitute(str, "shri", "")  
 End If  
 str = Trim(str)  
 indexof = InStr(str, "Shri")  
 If indexof = 1 Then  
 str = WorksheetFunction.Substitute(str, "Shri", "")  
 End If  
 str = Trim(str)  
 indexof = InStr(str, "SHRI")  
 If indexof = 1 Then  
 str = WorksheetFunction.Substitute(str, "SHRI", "")  
 End If  
 str = Trim(str)  
 indexof = InStr(str, "Smt")  
 If indexof = 1 Then  
 str = WorksheetFunction.Substitute(str, "Smt", "")  
 End If  
 str = Trim(str)  
 indexof = InStr(str, "SMT")  
 If indexof = 1 Then  
 str = WorksheetFunction.Substitute(str, "SMT", "")  
 End If  
 str = Trim(str)  
 indexof = InStr(str, "Shree")  
 If indexof = 1 Then  
 str = WorksheetFunction.Substitute(str, "Shree", "")  
 End If  
 str = Trim(str)  
 indexof = InStr(str, "Mr")  
 If indexof = 1 Then  
 str = WorksheetFunction.Substitute(str, "Mr", "")  
 End If  
 str = Trim(str)  
 indexof = InStr(str, "KUM")  
 If indexof = 1 Then  
 str = WorksheetFunction.Substitute(str, "KUM", "")  
 End If  
 str = Trim(str)  
 indexof = InStr(str, "ben")  
 If indexof Then  
 str = WorksheetFunction.Substitute(str, "ben", "")  
 End If  
 str = Trim(str)  
 indexof = InStr(str, "BEN")  
 If indexof Then  
 str = WorksheetFunction.Substitute(str, "BEN", "")  
 End If  
 str = Trim(str)  
 indexof = InStrRev(str, ",")  
 If indexof Then  
 str = Mid(str, 1, indexof - 1)  
 End If  
 str = Trim(str)  
 str = WorksheetFunction.Substitute(str, ",", "")  
 str = Trim(str)  
 indexof = InStr(str, ".")  
 If indexof = 1 Then  
 str = Mid(str, indexof + 1, Len(str))  
 End If  
 str = Trim(str)  
 indexof = InStrRev(str, ".")  
 If indexof = Len(str) Then  
 str = Mid(str, 1, Len(str) - 1)  
 End If  
 str = Trim(str)  
 trims = str  

Popular posts from this blog

Resolved : Power BI Report connection error during execution

Getting Below Power BI Report connection error during execution . Error: Something went wrong Unable to connect to the data source undefined. Please try again later or contact support. If you contact support, please provide these details. Underlying error code: -2147467259 Table: Business Sector. Underlying error message: AnalysisServices: A connection cannot be made. Ensure that the server is running. DM_ErrorDetailNameCode_UnderlyingHResult: -2147467259 Microsoft.Data.Mashup.ValueError.DataSourceKind: AnalysisServices Microsoft.Data.Mashup.ValueError.DataSourcePath: 10.10.10.60;T_CustomerMaster_ST Microsoft.Data.Mashup.ValueError.Reason: DataSource.Error Cluster URI: WABI-WEST-EUROPE-redirect.analysis.windows.net Activity ID: c72c4f12-8c27-475f-b576-a539dd81826a Request ID: dfb54166-c78f-4b40-779f-e8922a6687ad Time: 2019-09-26 10:03:29Z Solution: We found report connection not able to connect to SQL Analysis service so tried below option. Re

Song- Khamoshiyan Piano keyboard Chord,Notation and songs Lyrics

All songs notation and chords at one place

Song : O Saathi Re Film : Mukhathar Ka Sikkandhar Uses : C D D# E G A Note : The numbers at the end of the lines indicate line numbers. Pallavi: O saathi re, tere binaa bhi kya jina, tere binaa bhi kya jina A- C D D#....,D D C DD E...C..CA-...,D D C DD E...CC.......1 Play line 1 again phulon men khaliyon men sapnom ki galiyon men GGG...GAGE.. GGG G A G E.................................................2 tere bina kuchh kahin naa E A G E D C D D#.......................................................................3 tere binaa bhi kya jina, tere binaa bhi kya jina D D C DD E....C..CA-..., D D C DDE....CC.............................4 Charanam: har dhadkan men, pyaas hai teri, sanson men teri khushboo hai CCC C D C A-, CCC C D C A-, DDD DED CD EE.. CCCC......................5 is dharthi se, us ambar tak, meri nazar men tu hi tu hai CCC C D C A-, CCC C D C A-, DDD DED CD EE.. CCCC......................6 pyaar yeh tute naa GGG... GAG D#......E.........................