Excel　株を抜いて並べ替え

締切済

質問者：automne08
質問日時：2008/11/17 16:36
回答数：5件

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

通報する

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

質問の本文を隠す

回答 (5件)

最新から表示
回答順に表示

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)のように使う。式の複写も出来る。

- 0
- 件

通報する

この回答へのお礼

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

通報する

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

No.4

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

No.3です。

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

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

- 0
- 件

通報する

この回答へのお礼

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

通報する

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

No.3

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

作業列を作りましょう。

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

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

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