Skip to content

Instantly share code, notes, and snippets.

@7shi
Created October 12, 2015 17:35
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save 7shi/0e7659d58ca2686af85d to your computer and use it in GitHub Desktop.
Save 7shi/0e7659d58ca2686af85d to your computer and use it in GitHub Desktop.
[VBA]マクロン変換(Excel)
Sub マクロン変換()
Dim R As Range
For Each R In Selection
R = Replace(Replace(Replace(Replace(Replace(R, _
"a-", ChrW(&H101)), _
"e-", ChrW(&H113)), _
"i-", ChrW(&H12B)), _
"o-", ChrW(&H14D)), _
"u-", ChrW(&H16B))
Next R
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment