Excelで可能な機能かご教示下さい。 例えば、長文の文章で、 ☆あいうえお☆かきくけこ☆さしすせそ

Excelで可能な機能かご教示下さい。

例えば、長文の文章で、

☆あいうえお☆かきくけこ☆さしすせそ☆たちつてと☆なにぬねの☆はひふへほ

という文章を、コピーしてExcelに貼り付けると

☆あいうえお
☆かきくけこ
☆さしすせそ
☆たちつてと
☆なにぬねの
☆はひふへほ

と☆を文字の始めにさて改行することはExcelで可能でしょうか。Excelの本を読んでも、それらしいものが見当たらない為、質問致しました。

No.6 ベストアンサー 回答者： komugi3333 回答日時： 2019/05/23 10:01

Wordやテキストエディタだと、「☆」を「改行＋☆」に置換するというのはダメでしょうか？

改行は、置換後の文字列の指定の先頭に点滅カーソルを置いて、Ctrlキーを押しながらJキーを押すといいみたいです。
改行コードのぶんの表示はされませんが、一括置換すると改行されます。
セル内での改行となりますので、
・その内部で改行されたセルをクリックしたのちF2キーを押すなどした後に、
・「文字だけ」をコピーして、
・また別のセルをクリックして貼り付ければ、
セル単位に分かれもさせられます。

この回答へのお礼

とてもわかりやすかったです。ありがとうございます！

お礼日時：2019/05/23 11:02

No.5 回答者： sorun2 回答日時： 2019/05/23 09:28

一例として

1.原文の　☆　を　☆○　に変換する。
2.データの区切り位置で　☆を指定すると
　☆が消えて、○あいうえお　○かきくけこ
　○付き単語のセルが列に分割される
3.↑をコピー、行/列を入れ替えて貼り付ける。
4.○を☆に変換する。
以上

この回答へのお礼

質問が言葉足らずですみません。1のような作業せず素早く改行したいのです。解答ありがとうございます！

お礼日時：2019/05/23 11:04

No.4 回答者： rukaandkaito 回答日時： 2019/05/23 09:14

改行というのが下のセルに移動なのかセル内での改行なのかが不明ですが、ＶＢＡを使えば出来ますよ。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim intR As Integer
Dim intL As Integer
Dim strBuf As String

strBuf = ""
If Target.Row = 2 And Target.Column = 1 Then
intR = 3
For intL = 1 To Len(Cells(2, 1).Value)
If Mid(Cells(2, 1).Value, intL, 1) = "☆" Then
intR = intR + 1
Cells(intR, 1).Value = strBuf
strBuf = "☆"
Else
strBuf = strBuf & Mid(Cells(2, 1).Value, intL, 1)
End If
Next intL
End If
End Sub
とりあえずセル改行するパターンの一例です

この回答へのお礼

やってみます！ありがとうございます！

お礼日時：2019/05/23 11:04

No.3 回答者： zongai 回答日時： 2019/05/23 09:13

コピーした内容に対して、

2文字目以降の「☆」の前に改行を挿入し貼り付け

というようのマクロを組めば可能です。

この回答へのお礼

やってみます！ありがとうございます。

お礼日時：2019/05/23 11:05

No.2 回答者： 噛めんサイダー 回答日時： 2019/05/23 08:41

マクロを組めばできますね。

この回答へのお礼

可能なのですね！ありがとうございます。

お礼日時：2019/05/23 11:05

No.1 回答者： くんこば 回答日時： 2019/05/23 08:20

replace関数でできるかな。

とは言え、数式になっちゃうけど。
他には
一括置換で、☆→☆改行にするとかかな。

この回答へのお礼

やってみます！ありがとうございます。

お礼日時：2019/05/23 11:05