Skip to content

Instantly share code, notes, and snippets.

@kimsama

kimsama/substitute.vba

Created March 24, 2015 08:05
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save kimsama/c898fe37589e73f209bb to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save kimsama/c898fe37589e73f209bb to your computer and use it in GitHub Desktop.
Download ZIP
Excel VBA script which substitute the given data in the ranged multiple cells
Raw
substitute.vba
Sub MultipleSubs()
Dim rng As Range
Dim cell As Range
Set rng = Sheets("CardDataTable").Range("K2:K323")
For Each cell In rng
cell = WorksheetFunction.Substitute(cell, "_base", "")
Next
Application.ScreenUpdating = True
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment