文字操作 文字空白削除と禁止有無

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。


Sub 文字空白削除と禁止有無()
'*******************************************************************************
'文字空白削除と禁止有無
'*******************************************************************************
Dim sht As Worksheet, a As Long, b As Long, c As Long, d As String, e As String

Set sht = ThisWorkbook.Worksheets("Sheet2")

With sht
    b = Fnc最終行(sht)
    For a = 1 To b
        For c = 1 To 16
            d = .Cells(a, c).Value
            e = Fnc文字内空白(d)
            .Cells(a, c).Value = e
            If Fnc文字内禁止有無(e) = False Then
            MsgBox e, vbCritical, "ERRR "
            End If
        Next c
    Next a
End With

End Sub

 

 

 

2000年01月01日|[VBサンプルコード]:[文字操作]