|
'文字列中の空白を削除
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
|
|
