Adding a Cell Value to the Another Cell based on Conditon

[madhuchelliah]

Hello Folks, i have data in cell D4. Data is consists of alpha, numeric and symbols. I want to find the single alpha character in the cell D4 and i have to insert the alpha character from C4 in front of that without space. Alpha character is always single but mingled with numeric and symbols. If already alpha character is present with 2 alphas together then no need to add. Please go through the example for better clarity. Data shown in the row 4 is actual data. Row 5 is expected result. wherever single alpha is available alpha value from C4 is added before that. Where 2 alpha(BA) already exist C4 value should not be added. Thank you.

Book1
	C	D
4	A	2154-255 254B, 5545E, D454-D444 258BA454
5		2154-255 254AB, 5545AE, AD454-AD444 258BA455
Sheet1

 

[mabbutt]

Hi Madhuchelliah,

This works but might not be the best streamlined code as I am not an expert:

Sub LoopThroughString()

    Dim outputString, chrString, chrString2, TempString As String
    Dim strPos, strPos2 As Integer
    
    inString = ActiveSheet.Range("E4").Value
    
    For strPos = 1 To Len(inString)
        strPos2 = strPos + 1
        chrString = Mid(inString, strPos, 1)
        chrString2 = Mid(inString, strPos2, 1)
        If chrString Like "[a-zA-Z]" Then
        
            If Not chrString2 Like "[a-zA-Z]" Then
        
                TempString = outputString & ActiveSheet.Range("D4").Value & chrString & chrString2
                outputString = TempString
                            
            End If
                
            If chrString2 Like "[a-zA-Z]" Then

                TempString = chrString & chrString2
                outputString = outputString + TempString
                
            End If
            
            strPos = strPos + 1
            strPos2 = strPos2 + 1
            
        End If
        
        If Not chrString Like "[a-zA-Z]" Then
        
            outputString = outputString + chrString
        
        End If
                        
    Next
    
    ActiveSheet.Range("E6").Value = outputString
    MsgBox outputString

End Sub