質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

4274閲覧

Excelセル内の連続した改行以降の文字列を削除したい

poponta

総合スコア12

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2019/02/21 05:32

あああ
いいい

ううう
えええ

・・・というようにセル内に文字列が入っているときに、
連続した改行以降の「うううえええ」を削除して、

あああ
いいい

・・・とセル内に残るようにしたいです。

下記のように連続した改行が複数ある場合は、
最初の連続した改行以降をすべて削除したいです。

かかか
ききき

くくく

けけけ
こここ

↓↓↓

かかか
ききき

VBAもしくはExcelの関数で実現したいと考えております。

ご教示よろしくお願いします。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

対象がA1の場合。

EXCEL

1=MID(A1,1,SEARCH(CHAR(10)&CHAR(10),A1,1))

投稿2019/02/21 05:45

ttyp03

総合スコア16996

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

poponta

2019/02/21 06:09

素早いご回答ありがとうございました。 助かりました。 ttyp03さんの回答により連続した改行の判定の仕方が分かりました。 回答をもとにVBAで動くように作ってみました。 Cells(i, j).Value = Mid(Cells(i, j).Value, 1, InStr(Cells(i, j).Value, Chr(10) & Chr(10)))
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問