改行処理(改行を削除する)

改行処理(改行を削除する)
'■改行処理
'目に見えない特殊改行を削除する
Dim KaiSak, strPattern As String, KisSak_i As Range
Set KaiSak = CreateObject("VBScript.RegExp")
strPattern = vbCr '削除対象改行コード( vbCr / vbLf / vbCrLf )
With KaiSak
.Pattern = strPattern
.IgnoreCase = True '大文字と小文字の区別
.Global = True '文字列全体を対象
For Each KisSak_i In ActiveSheet.UsedRange
If .test(KisSak_i.Formula) Then
'KisSak_i.Interior.ColorIndex = 9 '検索条件にあてはまったセルに色をつける
KisSak_i.Replace KaiSak.Pattern, "" '改行コードを削除する
End If
Next KisSak_i
End With
Set KaiSak = Nothing

'通常改行を削除する
Cells.Replace What:="" & Chr(10) & "", Replacement:="", LookAt:=xlPart

スポンサーリンク

スマホのみ下に表示