アンダーバーの後の文字を大文字に変えたい

締切済

質問者：nivelung
質問日時：2012/07/05 11:29
回答数：2件

エクセルの関数について質問です。
アンダーバー_の後の文字を大文字に変えて、
アンダーバー自体は消去したいのですが、作り方がわかりません
たとえば、abc_def_ghiの場合ですとabcDefGhiのようなかんじです。
アンダーバーが何個出現するかは一定ではありません。
0個の場合もあります。

ご存知でしたらご教授ください。

通報する

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

質問の本文を隠す

回答 (2件)

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

No.2

回答者： maron--5
回答日時：2012/07/05 12:46

B1=REPLACE(SUBSTITUTE(PROPER(A1),"_",),1,1,LEFT(A1))

- 2
- 件

通報する

この回答へのお礼

できました！
早速のご回答ありがとうございました。

通報する

お礼日時：2012/07/05 13:11

No.1

回答者： keithin
回答日時：2012/07/05 11:49

関数自体はたとえばPROPER関数の出番ですが，

＞アンダーバーが何個出現するかは一定ではありません。

という制約下では，エクセルの一般の計算式でやる仕事ではありません。
簡単なマクロを使って自作関数を用意してしまうか，若しくは関数で「綺麗に」計算するのは諦めて手を動かしてエクセルの機能を駆使して結果を出すか，どちらかになります。

手順：
ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

public function myProp(Target as excel.range) as variant
　dim a
　dim i
　a = split(target.cells(1).value, "_")
　myprop = a(0)
　for i = 1 to ubound(a)
　　myprop = myprop & application.proper(a(i))
　next i
end function

ファイルメニューから終了してエクセルに戻る
Ａ１セルに「abc_def_ghi」を記入
Ｂ１セルに =myprop(A1)　と計算する。