ようこそ ゲスト さん、新規登録（無料）して気になる疑問を解決しませんか？
はじめての方へ｜ヘルプ｜FAQ

質問
質問者：ganchan59 Excelのシートにある全文字列を拾い出す
困り度：
  • 困っています
 Excelのシートに表（50列×50行）があり、その中のセルは任意に結合され、そのセルの中に文字列（単語）が入力してあります。
今回、その用語の索引をExcelで作りたく、その全文字を縦１列に拾い出したいのですが、効率的な方法を教えて下さい。
Excelは２００３です。
質問投稿日時：08/07/04 12:03
質問番号：4150371
この質問に対する回答は締め切られました。
最新から表示｜回答順に表示｜良回答のみ表示

回答

 
回答者：noname#70958 間に合わなかったかもしれませんが…。

●ふりがな情報を保持したまま矩形データを一列に並べる

手際次第ですが、３分くらいはかかってしまうかもしれません。

１．Ctrl + N
２．Ctrl + G ＞ A1:AX2500　と入力 ＞ Enter
３．数式バーに　=IF(COLUMN()<(ROW()-1)/50,"",0)　と入力 ＞ Ctrl + Enter
４．問題の表をコピー ＞ AY1セルを選択 ＞ 貼り付け
５．セルの結合を解除
６．（問題の表全体(AY1:CV50)を選択した状態で）右下隅の■をダブルクリック
７．Ctrl + Home ＞ Ctrl + G ＞ セル選択 ＞ 数式 ＞ 数値のチェックを外す ＞ OK
８．Ctrl + - (マイナス) ＞ Enter

AY列がご要望のリストとなります。
種類：アドバイス
どんな人：一般人
自信：参考意見
回答日時：08/07/07 20:57
回答番号：No.4
この回答へのお礼回答ありがとうございます。
他の方法で対処しましたが、今後のために参考にさせていただきます。

回答

良回答20pt
回答者：imogasi 例データ
大阪 bb 京都(C1とD1は結合）
大藤 奈良 伊勢 大東
標準モジュールに
Sub test01()
Dim cl As Range
k = 2
For Each cl In Range("A1:D3")
If cl <> "" Then
Cells(k, "K") = cl
Cells(k, "L") = Application.GetPhonetic(Cells(k, "K"))
k = k + 1
End If
Next
End Sub
ーー
結果
K列　　　L列
大阪 オオサカ
bb ｂｂ
京都 キョウト
dd ｄｄ
奈良 ナラ
伊勢 イセ
大東 ダイトウ
フリガナは代表的な読みになってしまうが、使えるかどうか。
ーー
下記にすると
Sub test01()
Dim cl As Range
k = 2
For Each cl In Range("A1:D3")
If cl <> "" Then
cl.Copy
Cells(k, "K").Select
ActiveSheet.Paste
'Cells(k, "L") = Application.GetPhonetic(Cells(k, "K"))
k = k + 1
End If
Next
End Sub
だと入力時の読みを引き継ぐようだ。
大東ーオオヒガシ
並べ替えで、オプションの「フリガナを使う」、に使えると思う。
ーー
参考
​http://kokoro.kir.jp/excel/furigana.html​
種類：アドバイス
どんな人：一般人
自信：参考意見
回答日時：08/07/07 00:03
回答番号：No.3
この回答へのお礼この回答にお礼をつける(質問者のみ)

回答

良回答10pt
回答者：mu2011 安直ですが、次の方法は如何でしょうか。
（１）対象範囲をコピー→ワードファイルに貼り付け
（２）編集→置換で特殊文字から検索文字列欄に「タブ」と置換文字列欄に「任意指定の行区切り」を選択→全て置換
　　　参考．秀丸エディタならtab（\t）を改行（\n）に置換
（３）ワードファイルの変換範囲をコピー→形式を選択して貼り付け→テキストを選択
種類：アドバイス
どんな人：一般人
自信：参考意見
回答日時：08/07/04 12:59
回答番号：No.2
この回答へのお礼早速の回答ありがとうございます。
ご説明のようにやって、なんとかテキストデータは取り出せました。
ありがとうございました。
質問で言葉たらずでしたが、索引を作りたいので、このテキストデータが”あいうえお”順に並ぶとさらによいのですが、テキストにした時に”ふりがな”のデータがなくなっているようですが？
何かよい方法はありませんでしょうか？（漢字もありますので）
追加の質問で申し訳ありません。

回答

 
回答者：grumpy_the_dwarf 「コピー」→テキストエディタにペースト→タブを改行に置換→
「コピー」→Excelにペースト

十数秒で終わりますね。
種類：アドバイス
どんな人：経験者
自信：参考意見
回答日時：08/07/04 12:44
回答番号：No.1
この回答へのお礼この回答にお礼をつける(質問者のみ)
最新から表示｜回答順に表示｜良回答のみ表示
このページのトップへ