エクセル関数

質問

エクセルで
文字「あ」（セルA1)は数字の１（セルB1)
文字「い」（セルA2)は数字の２（セルB2)
文字「う」（セルA3)は数字の３（セルB3)
といった具合に関数で変換したいのですが、
よい方法を教えてください。

回答No.4

diashun · ベストアンサー

diashun です。
「VLOOKUP」関数の利用はどうでしょうか？
Sheet1のＡ列にセル番地「A1」から下方に順に「あ」「い」「う」「え」「お」と入力されているとします。
Sheet1
A1　　あ
A2　　い
A3　　う
A4　　え
A5　　お

Sheet2のＡ列とＢ列にあらかじめ次のように入力リストを作っておきます。（この作業だけが面倒かもしれませんが・・・）
A1　　あ　　B1　　1
A2　　い　　B2　　2
A3　　う　　B3　　3
A4　　え　　B4　　4
A5　　お　　B5　　5

そして、Sheet1の「B1」に次の式を入力し、これをSheet1のB2～B5までコピーします。
「=VLOOKUP(A1,Sheet2!A1:B5,2)」

これだと文字のコードに依存せずに任意の変換値を設定できます。
また、Sheet2のリストをいくらでも追加できます。
（ただし参照範囲の設定も必要）

回答No.7

imogasi

●＃１、＃３のご解答に関して。私もテストしていました。
「あーみ」までの（濁音なし、拗音・発音なし）でよいなら、
=ROUNDUP((CODE(A1)-9248)/2,0)
で変換できました。その後は「ん」まで、４、５回ずれます。これでは使えないんでしょうね。
●
ユーザー関数を作れば、出来ます
Function hen1(a)
b = StrConv(a, vbKatakana)
c = StrConv(b, vbNarrow)
hen1 = Asc(c) - 176
End Function
まず全角カタカナに直し、半角カタカナに変換し
コード計算をしています。
濁音なし、拗音・発音なしに対応しています。
VBEの標準モジュールに貼りつけ、セルに=hen1(A1)などと
いれます。下方向に複写出来ます。
●
フルに正確に変換するには、対応表を別に作って、VLOOKUPを使うしかないようです。

回答No.6

noname#29107

既に回答されているvlookup関数も便利ですが、
=FIND(A1,"あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもやゆよらりるれろわん")
でどうでしょう？

回答No.5

hinebot

#1です。

#1で利用した文字コードは

小さい字（ぁ、ぃ、ぅ、ぇ、ぉ、っ、ゃ、ゅ、ょ、ゎがあります）・通常の字・濁音・半濁音

の順に並んでます。"わ"のあとは　ゐ、ゑ、を、んと続きます。

なのでどこにどの文字がくるかを考慮して関数を組めば、できないことはないですが、とんでもなくややこしくなります。
通常の文字だけ変換するのであれば、#4さんの案のようにVLOOPUP関数で表から拾うようにするのが、一番簡単かもしれません。（表をつくるくらいなら、変換式は不要かも知れませんが^^;）

回答No.3

hinebot

#1です。

済みません。#1の式ですと
（ぁ→０）
あ→１
ぃ→２
い→３
ぅ→４
う→５
ぇ→６
え→７
ぉ→８
お→９
か→１０
が→１１
き→１２
…
という対応になってしまいます。
小さい字（ぁ、ぃ、ぅ等）と濁点のついた字を飛ばすのであれば、別の方法が必要ですね。失礼しました。

回答No.2

noriemon

No1の方の補足ですが、
=ROUNDUP((CODE(A1)-CODE("あ")+1)/2,0)
ではどうでしょう？

回答No.1

hinebot

B1:=CODE(A1)-CODE("あ")+1
B2:=CODE(A2)-CODE("あ")+1

以下同様

でどうでしょう？