Skip to content

Instantly share code, notes, and snippets.

@ndthanh

ndthanh/RemoveDupeWords2.bas Secret

Created July 11, 2021 06:00
Show Gist options
  • Save ndthanh/3acb8f5548fcb54204e174d55699d635 to your computer and use it in GitHub Desktop.
Save ndthanh/3acb8f5548fcb54204e174d55699d635 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
RemoveDupeWords2.bas
Public Sub RemoveDupeWords2()
Dim cell As Range
For Each cell In Application.Selection
cell.Value = RemoveDupeWords(cell.Value, ", ")
Next
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment