文字列中の空白を削除 : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク





Excel VBA シートコード

'文字列中の空白を削除
Private Sub ExDelSpace()
    Dim s0 As String
    Dim s1 As String
    Dim s2 As String
    Dim i As Integer
    
    '元の文字列
    s1 = Range("B8")
    s2 = ""
    
    For i = 1 To Len(s1)
        '1文字づつチェック
        s0 = Mid(s1, i, 1)
        
        If Not (s0 = " " Or s0 = " ") Then
            '空白でない場合
            s2 = s2 & s0
        End If
    Next
    '結果をセルに表示
    Range("B9") = s2
End Sub

'コマンドボタン クリック イベント
Private Sub CommandButton1_Click()
    ExDelSpace
End Sub

スポンサーリンク





Excel実行結果

「B8」の文字から空白を削除した結果が、「B9」に表示されています。

スポンサーリンク






Excel Tipsメニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved