改行コード削除」という検索キーワードでのアクセスに気が付きました。Rangeオブジェクトに用意されているReplaceメソッドを使って、セル内の改行を削除するには、どのようなコードを書けばいいのかを探していらしたのでしょう。[スポンサードリンク]Range.Replaceメソッドでセル内改行を削除する以下のSubプロシージャを実行すると、アクティブシート上の、全セルのセル内改行を削除できます。SubRange.Replaceメソッドの引数Whatに、Excelのセル内改行コードを意味するvbLfを指定し、引数Replacementに空白文字列を指定すれば、セル内改行を削除できます。マクロ記録も使ってみましょうExcelの[検索と置換]ダイアログボックスで、セル内改行を検索するには、[Ctrl]+[J]キーを押すという、裏技的操作が割と知られています。この裏技的操作を使って、セル内改行を削除する操作をマクロ記録してみると、以下のようなコードが作られます。_LookAt:=xlPartです。Replaceメソッドの挙動はFindメソッドの挙動と似ているRange.Replaceメソッドは、検索を行うRange.Findメソッドと、結構似ています。引数名を注意深く読んでいただければ、ReplaceメソッドとFindメソッドの引数は、ほとんど同じです。Excel側で検索・置換を行ったときの条件の影響を受けるという点でも同じです。上記のSubプロシージャでは、引数What・Replace・LookAtだけを指定していますが、Excel側で複雑な条件指定で検索・置換を行う可能性があるのなら、他の引数も指定しましょう。Officeの使い方などを紹介し続け(2012年頃からはVBA関連記事が多め)、毎日5万人の方にご覧いただいています。