Left$

選択範囲の名字を取り出す

 選択している範囲の生徒の名字を取り出したい。そのような時のマクロです。
 ※名字と名前の間に半角・全角スペースといった文字列がある場合に限ります。

サンプルコード

選択範囲がセルでない場合はエラーになります。

Sub Get_SurName() '選択範囲データの名字を取り出す
    '定数
    Const conSpace As String = " " '名字と名前の間にある文字列
    '変数
    Dim lngI As Long
    Dim objRange As Range

    With Application
        .ScreenUpdating = False
        For Each objRange In .Selection
            lngI = InStr(1, objRange.Value, conSpace, vbTextCompare)
            If 0 < lngI Then
                With objRange
                    .Value = Left$(.Value, lngI - 1)
                End With
            End If
        Next
        .ScreenUpdating = True
    End With
End Sub

 ・「名字と名前の間にある文字列」
  名字と名前の間の文字列を表します。「半角スペース」か「全角スペース」はここで指定します。

 マクロは「元に戻す」ことが出来ないため、気をつけて下さい。

Excel Tips for Teachers

Copyright (C) 2009- 坂江 保 All Rights Reserved.