Home » エクセルマクロ・Excel VBAの使い方 » ユーザー定義関数 » 複数の連続する改行を2個の改行にする正規表現を使ったユーザー定義関数-RegExpオブジェクト

複数の連続する改行を2個の改行にする正規表現を使ったユーザー定義関数-RegExpオブジェクト

対象:Excel2003, Excel2007, Excel2010

Excelで、連続する複数の改行を一つにまとめるために、正規表現を使ったユーザー定義関数をご紹介しました。

実務上は、複数の改行が1個になるのではなく、2個以上の連続する改行を2個の改行にしたいという要望のほうがよくあるかもしれません。

[スポンサードリンク]

先日のユーザー定義関数とほとんど同じですがご紹介しておきます。


▼複数の連続する改行を2個の改行にするユーザー定義関数

Function Replace_連続する改行を2個の改行に(文字列 As String)
 With CreateObject("VBScript.RegExp")
  .Global = True
  .Pattern = "\n{2,}"
  Replace_連続する改行を2個の改行に = .Replace(文字列, vbLf & vbLf)
 End With
End Function

先日の1個の改行にまとめるユーザー定義関数と違うのはWithステートメント内
  .Pattern = "\n{2,}"
の「{2,}」で2回以上の「\n」改行コードを
  Replace_GT2LF_to_2LF = .Replace(文字列, vbLf & vbLf)
で、元の文字列から「\n{2,}」を「vbLf & vbLf」と改行2個に置換した文字列を、ユーザー定義関数・Replace_GT2LF_to_2LFの戻り値に指定しているところです。

[スポンサードリンク]

Home » エクセルマクロ・Excel VBAの使い方 » ユーザー定義関数 » 複数の連続する改行を2個の改行にする正規表現を使ったユーザー定義関数-RegExpオブジェクト

TrackBack:1

TrackBack URL
連続したスペースを改行に置換するユーザー定義関数 from インストラクターのネタ帳
対象:Excel2003, Excel2007, Excel2010 スペースを改行にするために、TRIM関数やSUBSTITUTE関数などを使った数式...

Home » エクセルマクロ・Excel VBAの使い方 » ユーザー定義関数 » 複数の連続する改行を2個の改行にする正規表現を使ったユーザー定義関数-RegExpオブジェクト

「ユーザー定義関数」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.