VBAなのですが、B列にカタカナが入っているとする場合、C列にローマ字を自動入力したい。

質問

【質問】
Excel（VBA）で下のようにデータがある場合、C列のローマ字の場所とD列の英字の場所へ、B列のフリガナを参照して自動入力したいのですが、どのようにすればよいのでしょうか。
欲を言うと、ローマ字・英字の先頭の文字は大文字が良いです。
--------------------------------------------------
　名前　　　　　フリガナ　　　　　ローマ字　　英字
--------------------------------------------------
相田　章　　アイダ　ショウ
飯田　香　　イイダ　カオリ
石狩　鍋　　イシカリ　ナベ
石川　梓　　イシカワ　アズサ
渡　哲也　　ワタリ　テツヤ
--------------------------------------------------
VB初心者なのでよろしくおねがいします。

回答No.1

kerorin9999

こんにちは。
スマートな方法かどうかは置いといて・・・（汗
こんなんでどうでしょうか？

Sub main()

　Dim a As String
　Dim baff As String
　Dim i As Integer
　Dim strName

　strName = ""

　a = "アイダ　ショウ"
　For i = 1 To Len(a)

　　baff = Left(a, 1)
　　a = Right(a, Len(a) - 1)
　　strName = strName & ascii(baff)
　　If i = 1 Then
　　　　strName = UCase(strName)
　　End If
　Next

End Sub

Function ascii(strBaff As String) As String

　　Select Case strBaff

　　　Case "ア"
　　　　ascii = "a"
　　　Case "イ"
　　　　ascii = "i"
　　　　　　　　・
　　　　　　　　・
　　　　　　　　・
　　　Case "ン"
　　　　ascii = "nn"
　　　End Select

End Function

動作保証はしてませんので（汗
名前はループを付け足してもらえれば良いかと思います。

もっと良い案がある方は是非。