![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?a65a0e2)
No.5ベストアンサー
- 回答日時:
#1です。
Excelの機能「区切り位置」でできました。EXCELのバージョンは何ですか?
2003までなら、メニューの[データ]>[区切り位置]
2007以降なら[データ]>[データツール]グループの[区切り位置]
バージョンに合わせて読み替えてください。
セルB2~セルF5には何も無い状態から始めるものとしますよ。
1)セルA2~A5を選択して「コピー」
2)セルB2に「貼り付け」
3)そのままの状態で、上記の方法で[区切り位置]を起動
4)「カンマやタブなどの・・(後略)」を選んだ状態で「次へ」
5)「区切り文字」の「その他」にチェック(レ点)付ける
6)「その他」の右隣のボックスをクリックしてCtrl+Jキー押下
(何も入力されないように見えるが、下にある「データのプレビュー」が変化する)
7)「完了」ボタンをクリック
No.4
- 回答日時:
B2セルに次の式を入力して右横方向にオートフィルドラッグしたのちに下方向にもオートフィルドラッグします。
=TRIM(MID(SUBSTITUTE($A1,CHAR(10),REPT(" ",100)),(COLUMN(A1)-1)*100+1,100))
No.3
- 回答日時:
こんばんは!
VBAでの一例です。
画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面が出ますので
↓のコードをコピー&ペーストしてマクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
とりあえず1セルに10行あっても対応できるようにしてみました。
Sub test() 'この行から
Columns(1).Insert
Dim i, j As Long
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
Cells(i, 1) = Cells(i, 2)
For j = 3 To 12
If WorksheetFunction.Find(Chr(10), Cells(i, 1)) Then
On Error Resume Next
With Cells(i, j)
.Value = Mid(Cells(i, 1), 1, WorksheetFunction.Find(Chr(10), Cells(i, 1)))
.WrapText = False
End With
With Cells(i, 1)
.Value = Replace(Cells(i, 1), Cells(i, j), "")
.WrapText = True
End With
End If
Next j
Cells(i, Columns.Count).End(xlToLeft).Offset(, 1) = Cells(i, 1)
Next i
Columns(1).Delete
End Sub 'この行まで
こんな感じではどうでしょうか?m(__)m
No.2
- 回答日時:
関数を使用して行う場合には、次の様な関数をB2セルに入力してから、B2セルをコピーして、B2~F5の範囲に貼り付けて下さい。
(それ以上の範囲に貼り付けても正常に動作します)=IF(OR($A2="",COLUMNS($B:B)>LEN($A2)-LEN(SUBSTITUTE($A2,CHAR(10),))+1),"",REPLACE(REPLACE($A2,FIND("゛",SUBSTITUTE($A2&CHAR(10),CHAR(10),"゛",COLUMNS($B:B))),LEN($A2),),1,FIND("゛",SUBSTITUTE(CHAR(10)&$A2,CHAR(10),"゛",COLUMNS($B:B)))-1,))
No.1
- 回答日時:
今、EXCELを動かせる環境にないので未検証ですが。
セル内データを「ある文字を区切り記号と解釈してセルを分割する」機能があります。
データ>区切り位置です。区切り文字を指定すると、右方向に分割してくれます。
(そのためには、右側にデータがあってはいけない)
この機能で、区切り文字「その他」で任意の文字を指定できます。
セル内改行文字は Ctrl+Jキー押下で指定できるはず。
未検証ですが、シートをコピーするなどした上でお試しください。
> ちなみにデータには改行されていない(学校名が一つだけ)のデータもあります。
この場合は、そのまま残ります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Visual Basic(VBA) 特定の文字を条件に指定範囲のデータを貼り付けるVBA 3 2023/01/15 06:14
- その他(Microsoft Office) VBAで横データを縦データに変換する方法を教えて下さい。 4 2023/06/25 21:12
- Excel(エクセル) 名前と日付が一致する箇所にフラグを立てる関数が知りたいです 4 2022/08/11 02:24
- Excel(エクセル) [オートフィルター]機能について 3 2023/02/04 14:32
- Excel(エクセル) 【Excel】指定した文字列に該当する行を重複しないようにリスト 3 2022/03/30 12:27
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/04/21 08:59
- Excel(エクセル) 結合セルのソートについて 5 2022/04/22 11:57
- Excel(エクセル) Excel 同一セル内 年、日 入れ替え 5 2022/04/09 01:48
- Visual Basic(VBA) Excel VBA 書式変更で困ってます。 オートフィルターの日付フィルターを用いて データの絞り込 2 2022/07/26 22:16
このQ&Aを見た人はこんなQ&Aも見ています
-
あなたの「必」の書き順を教えてください
ふだん、どういう書き順で「必」を書いていますか? みなさんの色んな書き順を知りたいです。 画像のA~Eを使って教えてください。
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
今の日本に期待することはなんですか?
目まぐるしく、日本も世界も状況が変わる中、あなたが今の日本に期待することはなんですか?
-
洋服何着持ってますか?
洋服を減らそうと思っているのですが、何着くらいが相場なのかわかりません。
-
今から楽しみな予定はありますか?
いよいよ2025年が始まりました。皆さんには、今から楽しみにしている予定はありますか?
-
Excel マクロ VBA 毎回範囲が変わるセル内改行を分割したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
同一セルに日時があるものを日...
-
Excelで指定した条件と一致する...
-
EXCELでCSVファイル保存すると...
-
1年分のデータから特定の月分...
-
OFFSET関数を使用した印刷範囲...
-
COUNTIFの反対の関数はあるので...
-
エクセルVBAで、複数セルのデー...
-
1つのセルにまとまっている情報...
-
EXCELで年月日の表記から日付部...
-
【VBA】指定フォルダに格納中の...
-
webクエリのurlの変更方法
-
エクセルで数字、文字列混在の...
-
複数のシートの日付データを、...
-
色なしセルの合計値の出し方に...
-
エクセル
-
Excel 空白セルの掛け算で答え...
-
エクセルで特定の行を除いて計...
-
Excelのシートごとの日付の追加
-
エクセル 特定の条件で特定の...
-
5つとびのセルの集計
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
同一セルに日時があるものを日...
-
1年分のデータから特定の月分...
-
EXCELでCSVファイル保存すると...
-
Excelで指定した条件と一致する...
-
エクセルVBAで、複数セルのデー...
-
COUNTIFの反対の関数はあるので...
-
ドロップダウンリストで空白の...
-
エクセルでセルを一括で右詰に...
-
OFFSET関数を使用した印刷範囲...
-
1つのセルにまとまっている情報...
-
EXCELで年月日の表記から日付部...
-
excelで平均差を出したい
-
Excelで連続データを行飛ばしで...
-
エクセルで数字、文字列混在の...
-
Excelのシートごとの日付の追加
-
色なしセルの合計値の出し方に...
-
エクセルVBA オートフィルの最...
-
エクセル数式・等間隔ごとの範...
-
エクセル
-
エクセルで特定の行を除いて計...
おすすめ情報