エクセルVBAで氏名・名前を姓と名で自動的に分割する簡単な方法

Private Sub CommandButton1_Click()
Range(“B2:B9”).TextToColumns Destination:=Range(“C2”), DataType:=xlDelimited, Space:=True
End Sub

1. コマンドボタン１がクリックされたら
2. セルB2～B9の値をスペースの位置で分割して、セルC2を左上端に指定して分割してデータ入力をする
3. マクロ記録終了

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Range(“B2:B9”).TextToColumns Destination:=Range(“C2”), DataType:=xlDelimited, Space:=True
Application.DisplayAlerts = True
End Sub

Application.DisplayAlerts = False で、メッセージを非表示に設定をしてから、氏名分割をして、 Application.DisplayAlerts = True で非表示設定を表示設定に戻します。