B7からC15までを画像のように2行表示になっているセルがあれば、一つスペースを空けて1列表示にしたいんですが、VBAのコードを教えてください。

画像

Visual Basic | Excel37閲覧

ベストアンサー

0

ThanksImg質問者からのお礼コメント

いつもありがとうございます。 今回も出来ました。

お礼日時:10/22 10:51

その他の回答(2件)

0

わざわざ マクロでなくても 添付のように 検索文字列の欄に CTRL+Jを 入力 表示は 何もしません 置換後の文字列の欄に スペースを 一つ これも 表示しませんが これで OKとすれば シート全体が 改行記号は スペースに 置換されます。 特定の範囲のみ 変更したい場合は まず その範囲を選択後 実行してください。

0

Sub sbk() Dim rc As Range For Each rc In Range("B7:C15") rc.Replace What:="" & Chr(10) & "", Replacement:=" " Next rc End Sub しかし、マクロでなくても 検索と置換で 「検索する文字列」に Ctrl+J(何も表示されない)を入力し 「置換後の文字列」にスペースを入力して、全て置換 したほうが早いような。