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

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][文字操作 文字空白削除と禁止有無]

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





Production Japan Import Application. Since 1998