![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?08b1c8b)
No.5
- 回答日時:
こんばんは!
A列にあるデータをB列に表示するようにしてみました。
VBAになってしまいますが・・・一例です。
データは1行目からあるとします。
画面左下にある操作したいSheet見出し上で右クリック → コードの表示 → VBE画面が出ますので
↓のコードをコピー&ペーストしてマクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
Sub test() 'この行から
Dim i, k As Long
Dim str, buf As String
Application.ScreenUpdating = False
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 2) = WorksheetFunction.Substitute(Cells(i, 1), Chr(10), ";") & ";"
For k = 1 To Len(Cells(i, 2))
str = Mid(Cells(i, 2), k, 1)
buf = buf & str & ","
Next k
Cells(i, 2) = buf
buf = ""
Next i
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For k = 1 To Len(Cells(i, 2))
str = Mid(Cells(i, 2), k, 3)
If str = ",;," Then
Cells(i, 2) = Replace(Cells(i, 2), str, ";")
End If
Next k
Next i
Application.ScreenUpdating = True
Columns(2).AutoFit
End Sub 'この行まで
こんな感じではどうでしょうか?m(_ _)m
No.4
- 回答日時:
一例です。
仮にA:C列にデータが入力、空き列(仮にE列)に変換します。
(1)E1に=A1&","&B1&","&C1&";"&A2&","&B2&","&C2&";"&A3&","&B3&","&C3&";"
(2)E1:E3範囲を選択した状態でデータ最終行までコピー→Ctrl+Gキー押下→セル選択→空白セルを選択→Crtl+-(ハイフン)キー押下→上方向にシフトを選択→OK
因みにデータとする場合は、E列を選択してコピー→形式選択して貼り付け→値を選択→OKとして下さい。
No.3
- 回答日時:
正規表現を持ち出さなくても
エクセルのシートデータを名前を付けてCSVで保存する。
メモ帳で見ると
1,2,3
4,5,6
7,8,9
カンマはこれで要望どおりのはず。
この各行の終わりの改行は改行コードがここに入っている。
この改行コードを;に置き換えれば仕舞い。しかしメモ帳で改行コードの指定の約束がわからない(知っている人が居るかも)
それでメモ帳で(編集ー置換のメニューはあるが)置換は出来ない。
テキストエディタによっては、出来るものも多いだろう。
ーー
そこで「ワード」に、このCSVファイルを読み込ませて、置換で
検索する文字列 ^p <-注
置換後の文字列 ;
で変換し、またCSVファイルで保存する。メモ帳で見ると1行データになるだろう。
(注)ワードの「検索と置換」のダイアロウグ画面で、「あいまい検索」をはずすと、「特殊文字」のボタンが使えるので、クリックして、出てくる画面で、「段落記号」を選ぶと良いと思う。
正規表現を持ち出さなくても
エクセルのシートデータを名前を付けてCSVで保存する。
メモ帳で見ると
1,2,3
4,5,6
7,8,9
.....
ここから先が進めなく困っていたのでとても参考になります。ありがとうございます。
No.1
- 回答日時:
正規表現で置換のできるテキストエディタ(秀丸エディタなど)で簡単にできますよ。
方法
1~9までのセルを選択してコピーします。
テキストエディタにペーストする。
そうすると、
1[タブ]2[タブ]3
4[タブ]5[タブ]6
7[タブ]8[タブ]9
という状態になります。(※[タブ]は見えません。長いスペースの様な表示になると思います)
そこで、正規表現で置換します。
1回目の置換
置換元 「¥t」
置換先 「,」
2回目の置換
置換元 「¥n」
置換先 「;」
¥t は、タブ。 ¥n は、改行を意味します。
他に、あらかじめカンマ区切り( .csv )で保存しておくと1回目の置換が不要になり、もっと簡単になります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAで出力したCSVファイルの先頭にカンマを挿入したい 5 2022/10/14 12:20
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Excel(エクセル) 文字化け。メモ帳でUTF-8に変換後、エクセルへ貼り付けたいです。 3 2022/08/14 07:21
- Excel(エクセル) エクセルに代わる 表入力ツールについて 3 2022/12/21 21:19
- Excel(エクセル) エクセル データの入力規制について 3 2022/03/30 17:16
- Excel(エクセル) セルの上書き禁止について 5 2022/04/02 10:09
- Excel(エクセル) 単価シートから単価をエクセル関数で自動取得する方法 1 2023/07/02 22:00
- Visual Basic(VBA) VBAでエクセルをtxtに変換するとエクセルでカンマを含む文字数字がtxtでは「""」付にならないよ 1 2022/08/27 12:17
- Excel(エクセル) エクセルで、例えばAのセルの値次第で、Bのセルの値を自動入力する方法を教えてください。 2 2022/08/02 12:10
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
このQ&Aを見た人はこんなQ&Aも見ています
-
今年はじめたいことは?
今年はこれをはじめたい!ということを教えてください!
-
歳とったな〜〜と思ったことは?
歳とったな〜〜〜、老いたな〜〜と思った具体的な瞬間はありますか?
-
モテ期を経験した方いらっしゃいますか?
一生に一度はモテ期があるといいますが、みなさんどうですか? いまがそう! という方も、「思い返せばこの頃だったなぁ」という方も、よかったら教えて下さい。
-
この人頭いいなと思ったエピソード
一緒にいたときに「この人頭いいな」と思ったエピソードを教えてください
-
集中するためにやっていること
家で仕事をしているのですが、布団をはじめ誘惑だらけでなかなか集中できません。
-
カンマを改行に変換する方法
Excel(エクセル)
-
エクセルで複数のデータをセミコロンで繋げる方法
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・【大喜利】【投稿~1/31】『寿司』がテーマの本のタイトル
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・【大喜利】【投稿~1/20】 追い込まれた犯人が咄嗟に言った一言とは?
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・【大喜利】【投稿~1/9】 忍者がやってるYouTubeが炎上してしまった理由
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで文字の入力がセルの...
-
Excelで、半角スペースをTABに...
-
Excelからテキストへのコ...
-
多数の計算セルに一括で同一の...
-
エクセルのセルの中の,よりも前...
-
VBAでセルの右端一文字を置換す...
-
EXCEL 縦の式を横にコピー
-
別シートのリストから置換する方法
-
エクセルの関数で、記号などを...
-
Excelの空文字セルの削除方法を...
-
Excelで特定の文字の前だけに空...
-
Excelのシートにある1行...
-
excelで可視セルのみ置換
-
小数点を消す方法
-
エクセル カッコ()がマイナ...
-
エクセル郵便番号で「000-0000...
-
エクセルの文字列を数式に変換...
-
メモ帳の数字を任意の数字を足...
-
csvファイル内の特定の空白をカ...
-
Excelのアポストロフィーの削除
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで文字の入力がセルの...
-
多数の計算セルに一括で同一の...
-
Excelで、半角スペースをTABに...
-
Excelからテキストへのコ...
-
エクセルのセルの中の,よりも前...
-
Excelのシートにある1行...
-
excelで可視セルのみ置換
-
小数点を消す方法
-
Excelの空文字セルの削除方法を...
-
【エクセル】ピボットテーブル...
-
Excelの入力済みセルに一括で、...
-
置換機能を使わずに先頭に「'」...
-
エクセルでセル内の一部分だけ...
-
一括でダブルクリックした状態...
-
Excelで特定の文字の前だけに空...
-
Excelのアポストロフィーの削除
-
Excelのmatch関数エラー原因が...
-
別シートのリストから置換する方法
-
エクセルでセルを文字列設定し...
-
エクセルの関数で、記号などを...
おすすめ情報