EXCEL2000 VBA 選択範囲の文字列からスペースを取り除く 実験

EXCEL2000 VBA  選択範囲の文字列からスペースを取り除く　実験

再生できない場合、ダウンロードは🎥こちら

 

 

Sub 選択範囲の文字列からスペースを取り除く()

'選択範囲の文字列からスペースを取り除く

    Dim myR As Range

        For Each myR In Selection

            myR = Replace(myR, " ", "")             '半角スペースを””にReplaceで置換

            myR = Replace(myR, "　", "")            '全角スペースを””に

        Next myR

End Sub

 

表示を止めて高速化

 

Public Sub スペースを取り除く()

'選択範囲の文字列からスペースを取り除く

    Dim myR As Range

 

    '画面の描画を停止

        Application.ScreenUpdating = False

 

        For Each myR In Selection

            myR = Replace(myR, " ", "")             '半角スペースを””にReplaceで置換

            myR = Replace(myR, "　", "")            '全角スペースを””に

        Next myR

 

    '画面の描画

        Application.ScreenUpdating = True

End Sub

タグ：Excel2000 VBA