Macro to remove Brackets from Column

[Alvaroro84]

I'm often using a data base to download data and this database downloads all numbers like this [1611653651] in multiple columns. I want to create a macro that would help me instantly remove all those brackets. I would use the replace command on excel but I have over 1,000,000 rows so it takes a long time.

 

[6StringJazzer]

The macro won't be any faster. In fact it could be slower. Built-in features are hella fast. Doing anything to a million rows is going to take a while.

Public Sub RemoveBrackets()

    AcitveSheet.Cells.Replace What:="[", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, _
        FormulaVersion:=xlReplaceFormula2
    ActiveSheet.Cells.Replace What:="]", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, _
        FormulaVersion:=xlReplaceFormula2

End Sub

 

[Alvaroro84]

The macro won't be any faster. In fact it could be slower. Built-in features are hella fast. Doing anything to a million rows is going to take a while.

Public Sub RemoveBrackets()

    AcitveSheet.Cells.Replace What:="[", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, _
        FormulaVersion:=xlReplaceFormula2
    ActiveSheet.Cells.Replace What:="]", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, _
        FormulaVersion:=xlReplaceFormula2

End Sub

Couldn't have said it any better my self Jeff. Thank you for the help!

 

[Alvaroro84]

The macro won't be any faster. In fact it could be slower. Built-in features are hella fast. Doing anything to a million rows is going to take a while.

Public Sub RemoveBrackets()

    AcitveSheet.Cells.Replace What:="[", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, _
        FormulaVersion:=xlReplaceFormula2
    ActiveSheet.Cells.Replace What:="]", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, _
        FormulaVersion:=xlReplaceFormula2

End Sub

I ran it against 1,200,000 rows with 5 full columns full of brackets it ran 7 minutes and works like a charm!

 

[6StringJazzer]

I guess the advantage to the macro is it is only one operation so you can start it, go have a cup of coffee, and it's finished, rather than having to do two separate Find and Replaces.