テキストに縦に並んでいるデータを半角カンマで横に並べたい

解決済

質問者：sulu338
質問日時：2005/07/07 23:43
回答数：2件

例えば、
東京都
千葉県
大阪府
愛知県

などのデータを東京都,千葉県,大阪府,愛知県
という風に並べ替えたデータにしたいのですが、
データが膨大にあるため手作業ではなく、一括で
行いたい。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

このQ&Aに関連する最新のQ&A

「置換正規表現」に関するQ&A：正規表現？の置換方法について！（以降削除等）

さらに表示

「正規表現検索」に関するQ&A：正規表現検索

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： 2NN
回答日時：2005/07/07 23:47

Devasというフリーの置換ソフトを使い、

「普通の検索」を「正規表現検索」に変更し
改行をカンマに置き換えしてください。
http://www.vector.co.jp/soft/win95/util/se162621 …

改行は「\n」という記号で表すことができます。

例：
検索文字列： \n
置換文字列： ,

参考URL：http://www.vector.co.jp/soft/win95/util/se162621 …

- 0
- 件

通報する

この回答へのお礼

ありがとうございます。数秒で終わりました。

通報する

お礼日時：2005/07/07 23:54

No.2

回答者： buihyaku
回答日時：2005/07/07 23:51

テキストエディタで改行をカンマに置換すれば一発です。

たとえば秀丸だと"\n"を","に正規表現で置換します。

- 0
- 件

通報する

このQ&Aに関連する人気のQ&A

「置換正規表現」に関するQ&A： Excelで正規表現やワイルドカードなどを使って置換したいのですが…

さらに表示

「正規表現検索」に関するQ&A：正規表現でＡＮＤ検索はできるのでしょうか

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

専門家回答数ランキング

専門家

※過去一週間分の回答数ランキングです。

質問する（無料）

他の専門家の回答をチェック

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセルの表ををメモ帳などにカンマで区切って一列に表記

　はじめまして。よろしくお願いします。

　エクセルで、列に2項目、行が20行の表があります（セル：A1～B20）。
この表のそれぞれの行をカンマで区切って横並べしてテキスト表示
したいのですが、一括で行う方法はないでしょうか。
つまり
エクセル
A1　B1
A2　B2
・
・
・
A20　B20
で表されたものを以下のようにテキスト表記したいのです。
A1　B1，A2　B2，・・・，A20　B20

Aベストアンサー

Wordにコピーしてから編集してはいかがでしょう？
Excelで範囲を選択してコピー
Wordで[形式を選択して貼り付け]－[貼り付ける形式=(テキスト)]を選択して貼り付け
[置換]－[オプション]－[特殊文字]
検索する文字列＝[段落記号]
置換後の文字列＝[，]　で１回目の置換
検索する文字列＝[タブ文字]　に変更して２回目の貼り付け
お望みの形式になると思いますので
[名前を付けて保存]－[ファイルの種類]＝(書式なし(*.txt))]
officeのバージョンで上記と違うかもしれません。

他の回答も見る

Q縦並びデータを横並びに加工(Excel、CSV)

以下のようなCSVデータがあります。
県名,品物名,購入者
青森,りんご,西田さん
青森,りんご,斉藤さん
青森,りんご,山田さん
愛媛,キウイ,島田さん
愛媛,みかん,石川さん
愛媛,みかん,佐藤さん
愛媛,みかん,田中さん
愛媛,みかん,小林さん
・
・
・

これを以下のように加工したいです。

県名,品物名,購入者1,購入者2,購入者3,購入者4・・・・・購入者100
青森,りんご,西田さん,斉藤さん,山田さん
愛媛,みかん,石川さん,佐藤さん,田中さん,小林さん
愛媛,キウイ,島田さん
・
・
・

要は、品物名でグループ化し、購入者の値を横並びにして項目名は連番にしたいです。
(項目名の連番は最後に手作業でも問題なし)
エクセルの手作業でならできましたが、品物名が500を超える場合があり、
購入者の数も100近くになるため、毎週こういうことはできないため、
エクセルやアクセスでなるべく簡単にできたらいいと思います。
スマートな方法のアイデアがあったらご教授ください。

Aベストアンサー

こんにちは！
VBAになってしまいますが、一例です。
Sheet1のデータをSheet2に表示するようにしてみました。

Alt＋F11キー　→　メニュー　→　挿入　→　標準モジュール　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1() 'この行から
Dim i As Long, endRow As Long, wS1 As Worksheet, wS2 As Worksheet
Set wS1 = Worksheets("Sheet1") '←「Sheet1」は実際のSheet名に！
Set wS2 = Worksheets("Sheet2") '←「Sheet2」も実際のSheet名に！
Application.ScreenUpdating = False
wS2.Cells.ClearContents
endRow = wS1.Cells(Rows.Count, "A").End(xlUp).Row
wS1.Range("A1").Resize(, 2).Copy wS2.Range("A1")
wS1.Range("A:A").Insert
With Range(wS1.Cells(1, "A"), wS1.Cells(endRow, "A"))
.Formula = "=B1&C1"
.Value = .Value
.AdvancedFilter Action:=xlFilterInPlace, unique:=True
End With
endRow = wS1.Cells(Rows.Count, "A").End(xlUp).Row
Range(wS1.Cells(2, "B"), wS1.Cells(endRow, "C")).Copy wS2.Cells(2, "A")
With wS1
.ShowAllData
.Range("A:A").Delete
End With
For i = 2 To wS2.Cells(Rows.Count, "A").End(xlUp).Row
With wS1.Range("A1").CurrentRegion
.AutoFilter field:=1, Criteria1:=wS2.Cells(i, "A")
.AutoFilter field:=2, Criteria1:=wS2.Cells(i, "B")
endRow = .Cells(Rows.Count, "A").End(xlUp).Row
Range(.Cells(2, "C"), .Cells(endRow, "C")).Copy
wS2.Activate
ActiveSheet.Cells(i, "C").Select
Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
End With
Next i
For i = 3 To wS2.UsedRange.Columns.Count
wS2.Cells(1, i) = wS1.Cells(1, "C") & i - 2
Next i
Application.ScreenUpdating = True
wS1.AutoFilterMode = False
End Sub 'この行まで

こんなんではどうでしょうか？m（_ _）m

他の回答も見る

Qエクセルで横並びの複数データを縦の一本のデータにしたい

こんにちは。宜しくお願い致します。

　　　Ａ　　　Ｂ　　Ｃ
1　静岡　埼玉　
2　福島　東京　愛媛
3　青森　
4　長崎　徳島　愛媛
5　東京　千葉　
6　秋田　兵庫　大阪
.
.
.

例えばこういう形で好きな都道府県の上位3つの解答がそれぞれあったとします。（1個の人もいるし、2個の人もいます）

これを別のシート（同じシートの違う場所でも構いません）に縦並び1本で出したいときどうしたらいいでしょうか。

★こういう風にしたい★

静岡
福島
青森
長崎
東京
秋田
埼玉
東京
愛媛
徳島
愛媛
千葉
兵庫
大阪
.
.

※好きな県などが人によって重複していても構いません、また順不同でもいいです。（縦並びのデータに東京が20個あってもよいということ）

形式を選択して貼り付けで行列を入れ替えるではうまくいかないです。

宜しくお願い致します。

Aベストアンサー

ＶＢＡで、もっと簡単に。
下記をＶＢＥの標準モジュールにコピーし貼りつけ。
元データのあるシートで、データのある範囲を範囲指定して（空白セルが範囲内にあっても結構）、下記を実行。
Sub ichiretu()
Dim cl As Range
p = 1
For Each cl In Selection
If cl <> "" Then
Worksheets("sheet3").Cells(p, "A") = cl
p = p + 1
End If
Next
End Sub
Sheet3のＡ列に並びます。

他の回答も見る

Qエクセルで縦に並んだデータを横に並び替えたい

エクセルで↓　のようなデータがあります

　｜　A　｜　B　｜　C　｜　D
1｜A店｜りんご｜　2　｜
2｜A店｜みかん｜　3　｜
3｜A店｜バナナ｜　4　｜
4｜B店｜りんご｜　3　｜
5｜B店｜バナナ｜　2　｜

これを以下のようなかたちにしたいのですが、一つずつ移動する以外に方法はありますか？

　｜　A　｜　B　｜　C　｜　D　｜　E　｜　F　｜　G　｜
1｜A店｜りんご｜　2　｜みかん｜　3　｜バナナ｜　4　｜
2｜B店｜りんご｜　3　｜バナナ｜　2　｜

100以上データがあり、手作業で移すのは大変です。
ちなみにVBAなどはほとんど理解できません。

何か解決策があればと質問させていただきたました。
よろしくお願いします。

Aベストアンサー

E列に店名リストを作成する
(なければフィルタオプションの設定で重複するレコードを無視するを使うとよい)

F1セルに 1 右へ連番
N2セルに =COUNTIF(A:A,E2) 下へオートフィル
F2セルに
=IF(F$1>$N2*2,"",INDEX($B:$C,MATCH($E2,$A:$A,0)+F$1/2,1))
G2セルに
=IF(F$1>$N2*2,"",INDEX($B:$C,MATCH($E2,$A:$A,0)+G$1/2-1,2))
F2:G2セルを選択して、右へオートフィル、そのまま下へオートフィル

E:N列を選択して切り取り別シートへ貼り付け

他の回答も見る

Qカンマを改行に変換する方法

テキストファイルの中にあるカンマ(,)を改行に変換する方法を教えてください。

具体的には次のようなCSVファイルがあります。
A,B
C,D
E,F
これを
A
B
C
D
E
F
と変換したいのです。

EXCELを使ってもかまいません。よろしくおねがいします。

Aベストアンサー

EmEditorというテキストエディタを使って
「検索」－「置換」を選択し
検索する文字列： ,
置換後の文字列： \n
と入力して、
「エスケープシーケンスを使用する」にチェックマークが入っているのを確認した後、「すべて置換」を実行するとご要望通りの処理が出来ると思います。

なお、EmEditorをお持ちでない場合は、
以下のURLからダウンロード出来ます。

参考URL：http://www.nifty.ne.jp/forum/femsoft/

他の回答も見る

Q文字列として"(ダブルコーテーション)を表示させる方法

こんにちは。文字列として、ダブルコーテーションを表示させるには、どうすればよいのか教えてください。m(__)m

例えば、
あいうえお

というタグの「あいうえお」の部分が、セルA1にあった場合、

=""&A1&""という表示にしたいのです。

"2"のダブルコーテーションも文字列として表示させるには、どうすればよろしいのでしょうか。

教えてください。よろしくお願い致します。

Aベストアンサー

こんにちは～

表示形式は「標準」のままで、
ダブルコーテーションを、ダブルコーテーションで囲んでください。

""2""

=""&A1&""

としてみてください。

他の回答も見る

Qexcelデータをコンマ付きテキストで出力したい

おはようございます。
excelデータをコンマ付きテキストで出力したいのですが、その方法を教えてください。

Aベストアンサー

CSVなら
名前をつけて保存で
ファイルの種類でCSV（カンマ区切り）
を選ぶ

他の回答も見る

Qメモ帳（テキストデータ）をExcelにセルに分けて貼り付ける方法は？

例えば、以下のようなメモ帳（.txt)のデータをExcelに貼り付ける際に、スペースが空いているもの単位で、セル別に貼り付ける方法はございますでしょうか？

（データ例）
100 150 130
200 200 230

このデータについては、100→A1、150→B1などセル毎に貼り付けたいと考えております。

A1 B1 C1
A2 B2 C2

Aベストアンサー

Excelのシートを開いた状態で、
データ→外部データの取り込みでファイル名（Txtファイル）を指定し、
スペースによって右・・の欄にチェックを入れ、読み込めば出来ます。

他の回答も見る

QExcel:複数のセルの内容を、ひとつのセルにすべて移したい。

たとえばA.B.Cのセルがあって、この内容をDのセルに
すべて移すにはどうしたらいいんでしょうか？

A.B.Cの内容をコピー貼り付けだと、
どうしてもDひとつだけでなく、その隣のセルに
内容をコピーしてしまいます。

Aベストアンサー

コピーしたいセルを選択してCtl+C

全部を貼り付けたいセルをダブルクリック

Ctl+Vではなく、オフィスクリップボードから貼り付け

他の回答も見る

Qエクセルで数式の結果が反映されない（自動計算になっているのに）

すいません、教えてください。

エクセル（XP）で数式が自動計算されなくなって
しまいました。

　　※ツールのオプションはちゃんと自動計算に
　　　なっているのに全く反映されません。

今まで全く問題なく作業できていたので
原因が分からず困っています。

数式等のエラーだとは考えにくいです。
と言うのも数式のあるセルをダブルクリックして
選択し、そのままEnterキーを押すと計算結果が
反映されます。
ただ、今まで全て自動計算されていたのが
全く動かなくなってしまったんです。

同じようなトラブルを経験された方、又は
詳しい方、どうかよろしくお願いします。

Aベストアンサー

原因は分からずじまいになってしまいましたが
同じことがありました。

「Officeの救急隊」を試してみましょう。
ボタン一発で全ての設定が元に戻ります。
http://www.vector.co.jp/soft/win95/util/se247118.html
（ツールバーなども初期状態に戻ります）

私の場合はコレで直ってしまいました^^

参考URL：http://www.vector.co.jp/soft/win95/util/se247118.html

他の回答も見る

ページトップ