ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【Excel VBA】フルネームから苗字と名前、フリガナを取得するマクロ。




どうも、ゴリラストロングです。

 

今回は、フルネームから苗字と名前、フリガナを取得するマクロを作成しました。

 

<元データ>

f:id:gorilla-strong:20200301144912p:plain

<マクロ実行後>

f:id:gorilla-strong:20200301145022p:plain

 

 

スポンサーリンク

 

ソースコード

Sub お名前マクロ()

Dim macro As Object
Set macro = Workbooks("ゴリラストロングの雑記帳3.xlsm").Worksheets("お名前マクロ")


macro.Range("B3").Formula = "=LEFT(A3,FIND("" "",A3)-1)"
macro.Range("C3").Formula = "=RIGHT(A3,LEN(A3)-FIND("" "",A3))"



Dim lastrow As Long
lastrow = macro.Cells(Rows.Count, 1).End(xlUp).Row



macro.Range("B3").AutoFill Range(Cells(3, 2), Cells(lastrow, 2)), xlFillCopy
macro.Range("C3").AutoFill Range(Cells(3, 3), Cells(lastrow, 3)), xlFillCopy

For i = 3 To lastrow

macro.Cells(i, 4) = Application.GetPhonetic(macro.Cells(i, 1))

Next




End Sub

 

 

macro.Range("B3").Formula = "=LEFT(A3,FIND("" "",A3)-1)"

macro.Range("C3").Formula = "=RIGHT(A3,LEN(A3)-FIND("" "",A3))"

上記コードの「”” ””」の部分、全角スペースの処理をどうするかでかなり時間がかかりました。

 

 

以上、ゴリラストロングでした。

 

 

 スポンサーリンク