Excel 株を抜いて並べ替え

前に(株)がついたものと後に(株)がついたものを混在でな食べ変えたい場合はどのようにすれば良いですか？

No.1 回答者： CoalTar 回答日時： 2008/11/17 16:40

phonetic関数でふりがなを抜き出し、

数式の結果→値にしてから置換機能などで編集、
そのふりがなで並べ替えてはどうですか？

No.2 回答者： magician_1 回答日時： 2008/11/17 16:49

関数を使用し、（株）を取り除いた物を作成する。

（株）と(株)が混在していると、関数が面倒です。

No.3 回答者： mt2008 回答日時： 2008/11/17 16:54

作業列を作りましょう。

会社名が入っているのがA列での場合、作業列(例えばB列）に↓の式を入れてやります。
=SUBSTITUTE(A1,"(株)",)

＃(株)（株)が混在する場合は
=SUBSTITUTE(SUBSTITUTE(A1,"(株)",),"(株)",)

これで作業列には(株)抜きの社名が表示されますので、作業列をキーにして並べ替えます。

この回答への補足

回答ありがとうございます。急いでいたので、変換を間違えていてすみません。
前後の(株)抜きで社名は表示する事が出来ましたが、
並べ替えがうまくできません。
前(株)同士のかたまりになってしまいます。
うまく表現が出来なくてすみません。

補足日時：2008/11/17 23:54

No.4 回答者： mt2008 回答日時： 2008/11/18 09:56

No.3です。

> 並べ替えがうまくできません。
> 前(株)同士のかたまりになってしまいます。

との事ですが、(株)付きの会社名で並び替えていませんか。
並び替えたい列を全て選択して（株無しの作業列も含める）、メニューの[データ]-[並び替え]で最優先されるキーを、(株)無しにした作業列にして並び替えてみてください。

この回答へのお礼

お礼が大変遅くなり申し訳ありませんでした。ありがとうございました。

お礼日時：2008/12/10 21:19

No.5 回答者： imogasi 回答日時： 2008/11/21 20:03

関数でやるか、VBAでやるかがある。

前株、後株をSUBSTITUTE関数で空白にする関数を入れる列を作る。
=SUBSTITUTE(A1,"（株）","")
しかし（株）に類するものは沢山有る可能性が有る
株）、KK、（有）、カ）・・・
SUBSTITUTEのネストで出来るが
この場合式が長くなって、事実上不可能に近い。
あとフリガナであるが
A列　ーーーー　B列ーーーーーーｃ列　　　　　　　　
（株）東西産業東西産業
C1で=PHONETIC(B1)
は空白になる。B1でフリガナ情報は切れるようだ。
=PHONETIC(A1)では
（カブ）トウザイサンギョウ
フリガナの方で、（カブ）等をを取り除く方がフリガナを生かすことではよいが、それも複雑になる要素を抱えている。
ーーー
それらを取り除いてVBAでフリガナを振ることも出来るが、実際の読みどおりとはならない場合があり、完全に近い精度のものは難しい。
ーー
１００件程度なら人間がフリガナ作業や削除作業（置換）した方が
早く確実と思う。
ーー
標準モジュールに
Function kakko(A)
If InStr(A, "（") = 0 Then
kakko = A
Exit Function
Else
kakko = Mid(A, InStr(A, "）") + 1, Len(A) - InStr(A, "（"))
End If
End Function
と入れて（・・）を取り除く関数をつくるのもよいかも知れない。
（ユーザー関数）
前株などに限り（カブ）（ユウ）（ゴウ）（カブシキガイシャ）などが取り除ける。
=kakko(D1)のように使う。式の複写も出来る。

この回答へのお礼

お礼が遅くなり申し訳ありません。ありがとうございました。

お礼日時：2008/12/16 23:28