A 回答 (5件)
- 最新から表示
- 回答順に表示
No.5
- 回答日時:
関数でやるか、VBAでやるかがある。
前株、後株をSUBSTITUTE関数で空白にする関数を入れる列を作る。
=SUBSTITUTE(A1,"(株)","")
しかし(株)に類するものは沢山有る可能性が有る
株)、KK、(有)、カ)・・・
SUBSTITUTEのネストで出来るが
この場合式が長くなって、事実上不可能に近い。
あとフリガナであるが
A列 ーーーー B列ーーーーーーc列
(株)東西産業東西産業
C1で=PHONETIC(B1)
は空白になる。B1でフリガナ情報は切れるようだ。
=PHONETIC(A1)では
(カブ)トウザイサンギョウ
フリガナの方で、(カブ)等をを取り除く方がフリガナを生かすことではよいが、それも複雑になる要素を抱えている。
ーーー
それらを取り除いてVBAでフリガナを振ることも出来るが、実際の読みどおりとはならない場合があり、完全に近い精度のものは難しい。
ーー
100件程度なら人間がフリガナ作業や削除作業(置換)した方が
早く確実と思う。
ーー
標準モジュールに
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)のように使う。式の複写も出来る。
No.3
- 回答日時:
作業列を作りましょう。
会社名が入っているのがA列での場合、作業列(例えばB列)に↓の式を入れてやります。
=SUBSTITUTE(A1,"(株)",)
#(株)(株)が混在する場合は
=SUBSTITUTE(SUBSTITUTE(A1,"(株)",),"(株)",)
これで作業列には(株)抜きの社名が表示されますので、作業列をキーにして並べ替えます。
この回答への補足
回答ありがとうございます。急いでいたので、変換を間違えていてすみません。
前後の(株)抜きで社名は表示する事が出来ましたが、
並べ替えがうまくできません。
前(株)同士のかたまりになってしまいます。
うまく表現が出来なくてすみません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ランドという会社の株はなんで...
-
エクセルで文字化けしているセ...
-
風俗で貯金2000万円貯めました...
-
庭の「すずらん」が増えすぎて...
-
SONYの株主は50%超が外国で、外...
-
珍味「竹の実」料理
-
嵌め込み?
-
「はめ込み」って何ですか?
-
信用取引についてです
-
安い株を探したら、日本コーク...
-
未上場企業の株を売却する方法...
-
彼氏が株をやっているのですが…
-
スイカの育て方で、受粉をして...
-
投資判断での用語がわかりません
-
やからはじまってぷで終わる言...
-
新規建停止とは何ですか?
-
【株用語】セリクラとはどうい...
-
細菌の基準株、標準株、臨床分...
-
持株の見方を教えてください。
-
物欲のない妻へのプレゼント、...
おすすめ情報