ひらがな氏名を一瞬でローマ字に！Excelを使って手軽にひらがなをローマ字に変換

'明示的な変数宣言を有効にするためのオプション。変数を事前に宣言しないとエラーが発生する。
Option Explicit

'ひらがなをローマ字に変換するためのサブルーチンの開始
Sub ひらがなをローマ字に変換()

    '対象のワークシートを格納するための変数の宣言
    Dim ws As Worksheet
    '変換対象のセル範囲を指定するための変数の宣言
    Dim inputRange As Range
    '各セルにアクセスするための変数の宣言
    Dim cell As Range
    'ひらがなを格納するための変数の宣言
    Dim hiragana As String
    'ローマ字変換結果を格納するための変数の宣言
    Dim romajiResult As String
    'ループ変数の宣言
    Dim i As Integer
    
    '変換元のひらがなを格納するための変数の宣言
    Dim Henkanmoto As String
    '対応するローマ字を格納するための変数の宣言
    Dim Henkansaki As String
   
    '対象のワークシートを指定します。ここでは "Sheet1" という名前のワークシートを指定しています
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    'E5からH14までのセル範囲の内容をクリア
    Range("E5:E14").ClearContents

    '変換対象のセル範囲を指定
    Set inputRange = ws.Range("C5:C14") ' 範囲を適切なものに変更
    
    '変換対象のセル範囲内の各セルについてループを開始
    For Each cell In inputRange
        '現在のセルのひらがなを取得
        hiragana = cell.Value
　　　　'romajiResult変数の内容をクリア
        romajiResult = ""

        '2から250までの範囲でループを開始
        For i = 2 To 250
          'Sheet2" ワークシートのi行目の2列目のセルの値を変換元ひらがなとして取得     
          Henkanmoto = Worksheets("Sheet2").Cells(i, 2).Value
          'Sheet2" ワークシートのi行目の3列目のセルの値を対応するローマ字として取得
          Henkansaki = Worksheets("Sheet2").Cells(i, 3).Value
          'ひらがなを対応するローマ字に置換
          hiragana = Replace(hiragana, Henkanmoto, Henkansaki)
        '次の行に移動   
        Next
        
        '最終的にローマ字になったひらがなを変数romajiResultにセット
        romajiResult = hiragana
        
        'ローマ字を現在のセルの右隣の2つ目のセルに出力
        cell.Offset(0, 2).Value = romajiResult

     'セル範囲内の次のセルに進みます
     Next cell

'サブルーチン終了
End Sub

ひらがな	ローマ字	
のうえ	noue
かのう	kano
もとお	motoo
ちのう	chino	
いっぽん	ippon
いっぴょう	ippyo
いっちょう	itcho
きょう	kyo
きゅう	kyu
しゅう	shu
しょう	sho
じょう	jo
しっち	shitchi
たっこう	takko
ちょう	cho
ひょう	hyo
ひゅう	hyu
えっちゅう	etchu
りゅう	ryu
りょう	ryo	
おお	o
おう	o
こう	ko
こお	ko
そう	so
そお	so
とう	to
とお	to
のお	no
ほう	ho
ほお	ho
もう	mo
もお	mo
ゆう	yu
よう	yo
よお	yo
ろう	ro
ろお	ro
ぐう	gu
ごう	go
ごお	go
ぞう	zo
そお	zo
どう	do
どお	do
ぼう	bo
ぼお	bo	
っか	kka
っき	kki
っく	kku
っけ	kke
っこ	kko
っさ	ssa
っし	sshi
っす	ssu
っせ	sse
っそ	sso
った	tta
っち	cchi
っつ	ttsu
って	tte
っと	tto
っは	hha
っひ	hhi
っふ	ffu
っへ	hhe
っぺ	ppe
っほ	hho
っま	mma
っみ	mmi
っむ	mmu
っめ	mme
っも	mmo
っや	yya
っゆ	yyu
っよ	yyo
っら	rra
っり	rri
っる	rru
っれ	rre
っろ	rro
っわ	wwa	
うぃ	wi
うぉ	wo
きゃ	kya
きぃ	kyi
きゅ	kyu
きぇ	kye
きょ	kyo
ぎゃ	gya
ぎぃ	gyi
ぎゅ	gyu
ぎぇ	gye
ぎょ	gyo
くゃ	qya
くぃ	qyi
くゅ	qyu
くぇ	qye
くょ	qyo
ぐゃ	gwa
ぐぃ	gwi
ぐゅ	gwu
ぐぇ	gwe
ぐょ	gwo
しゃ	sha
しぃ	shi
しゅ	shu
しぇ	she
しょ	sho
じゃ	ja
じゅ	ju
じぇ	je
じょ	jo
ちゃ	cha
ちぃ	chi
ちゅ	chu
ちぇ	che
ちょ	cho
ぢゃ	dya
ぢぃ	dyi
ぢゅ	dyu
ぢぇ	dye
ぢょ	dyo
でゃ	dha
でぃ	dhi
でゅ	dhu
でぇ	dhe
でょ	dho
つぁ	tsa
つぃ	tsi
つぇ	tse
つぉ	tso
てゃ	tha
てぃ	thi
てゅ	thu
てぇ	the
てょ	tho
とぁ	twa
とぃ	twi
とぅ	twu
どぅ	do
とぇ	twe
とぉ	two
にゃ	nya
にぃ	nyi
にゅ	nyu
にぇ	nye
にょ	nyo
ひゃ	hya
ひぃ	hyi
ひゅ	hyu
ひぇ	hye
ひょ	hyo
びゃ	bya
びぃ	byi
びゅ	byu
びぇ	bye
びょ	byo
ぴゃ	pya
ぴぃ	pyi
ぴゅ	pyu
ぴぇ	pye
ぴょ	pyo
ふぁ	fa
ふぃ	fi
ふぇ	fe
ふぉ	fo
みぃ	myi
ゔぁ	va
ゔぃ	vi
ゔぇ	ve	
あ	a
い	i
う	u
え	e
お	o
か	ka
き	ki
く	ku
け	ke
こ	ko
さ	sa
し	shi
す	su
せ	se
そ	so
た	ta
ち	chi
つ	tsu
て	te
と	to
な	na
に	ni
ぬ	nu
ね	ne
の	no
は	ha
ひ	hi
ふ	fu
へ	he
ほ	ho
ま	ma
み	mi
む	mu
め	me
も	mo
や	ya
ゆ	yu
よ	yo
ら	ra
り	ri
る	ru
れ	re
ろ	ro
わ	wa
を	wo
ん	n
が	ga
ぎ	gi
ぐ	gu
げ	ge
ご	go
ざ	za
じ	ji
ず	zu
ぜ	ze
ぞ	zo
だ	da
ぢ	ji
づ	zu
で	de
ど	do
ば	ba
び	bi
ぶ	bu
べ	be
ぼ	bo
ぱ	pa
ぴ	pi
ぷ	pu
ぺ	pe
ぽ	po
っ	t