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

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




【VBA】名前を姓と名に分割するマクロを作成してみました。




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

 

今回はVBAで、名前を姓と名に分割するマクロを作成してみました。

 

<元データ>

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

 

<マクロ実行後>

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

 

ソースコード

Sub main()

Dim ws As Object
Set ws = ThisWorkbook.Worksheets(1)

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

Dim i As Long, tmp As Variant

For i = 2 To lastrow

tmp = Split(ws.Cells(i, 1), " ")

ws.Cells(i, 2) = tmp(0)
ws.Cells(i, 3) = tmp(1)

Next i

End Sub

 

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