Excel Replace Items

Hi Experts,

Can someone please tell me if it possible to replace more than one item in excel?

For example, if I wanted to replace the numbers 5,4,3,2,1 with 1,2,3,4,5 can I do that in one shot?

At the moment, I would have to replace 5, with 1, then go back in and replace 4 with 2 etc...


Cheers

Carlton
cpatte7372Asked:
Who is Participating?
 
SiddharthRoutConnect With a Mentor Commented:
Ok Here is the sample. Please note that for realistic situation, you will have to change the code. The logic that I am using is to replace the values of the numbers with their ASCII values and then doing a final replace. I also took the liberty to create multiple sample data i.e I pasted 1-5 multiple times.

Hope this is what you wanted?

Sid

Code Used

Option Explicit

Private Sub CommandButton1_Click()
    Dim rng As Range, aCell As Range, bCell As Range
    Dim ws As Worksheet
    Dim ReplaceChar As Long, i As Long, j As Long
    Dim ExitLoop As Boolean
    
    Set ws = Sheets("Sheet1")
    
    Set rng = ws.Range("A1:A15")
    
    For Each aCell In rng
        aCell.Value = Asc(aCell.Value)
    Next
    
    j = 53
    For i = 49 To 53
        ReplaceChar = Chr(j)
        j = j - 1
        Set aCell = rng.Find(What:=i, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
                    SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
        
        ExitLoop = False
        If Not aCell Is Nothing Then
            Set bCell = aCell
            aCell.Value = ReplaceChar
            Do While ExitLoop = False
                Set aCell = rng.FindNext(After:=aCell)
                If Not aCell Is Nothing Then
                    If aCell.Address = bCell.Address Then Exit Do
                    aCell.Value = ReplaceChar
                Else
                    ExitLoop = True
                End If
            Loop
        End If
    Next i
End Sub

Open in new window



Sample.xls
0
 
Rory ArchibaldCommented:
No you can't. And doing it one at a time will be tricky since you'll end up replacing items multiple times - e.g. you convert 5 to 1, then later you convert all 1s to 5s!
0
 
Neil RussellTechnical Development LeadCommented:
Your problem will come when you get past 3.....

Replace all 5 with 1
Replace all 4 with 2
3 = 3 anyway
Replace all 2 with 4 !!

Hold on!! All the ones that were 4 became 2! Now you dont know what 2 is a 2 and what used to be 4!

Needs a bit more thinking behind this one.
0
Cloud Class® Course: Microsoft Azure 2017

Azure has a changed a lot since it was originally introduce by adding new services and features. Do you know everything you need to about Azure? This course will teach you about the Azure App Service, monitoring and application insights, DevOps, and Team Services.

 
SiddharthRoutCommented:
>>>>Can someone please tell me if it possible to replace more than one item in excel?

Yes it is possible via VBA Code. Let me create a sample for you.

Sid
0
 
nettek0300Commented:
If the numbers are in a single cell, they you can do a find and replace.  Type 5,4,3,2,1 in the find and 1,2,3,4,5 in the replace field.  You can do each one individually by clicking replace, or all at one time with replace all.
0
 
cpatte7372Author Commented:
Sid,

That is exactly what I wanted.

You've come through again.

Cheers man.
0
 
SiddharthRoutCommented:
Glad to be of help :)

Sid
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.