エクセル 隣のセルの文字データによって表示を別ける

質問

分かり難いタイトルですみません。
回答をよろしくお願いします。

　　　Ａ　　　　　　Ｂ
　　　伊藤　　　　　
　　　磯貝　　　　　
　　　伊藤　　　　　
　　　板倉
　　　伊藤
　　　鈴木
　　　加藤
　　　磯貝

A列に色々な名前があります。(名前は20種類程度でランダムで2000行)
B列にA列の名前によって2種類の表示をしたいです。
A列が伊藤・磯貝の場合場合はB列に　あ
　　板倉・鈴木・加藤の場合はB列に　い

マクロ等知識は全くありませんが、この様な事は出来るのでしょうか？
ご存知の方がいましたらアドバイスをお願いします。

回答No.4

imogasi · ベストアンサー

何処かの空き列（下記例ではＧ，Ｈ列とする）
伊藤　あ
板倉　い
・・・
のような２０行（＜＝名前は20種類程度）ぐらいの対応表を作る。
Ｂ１セルに式　=VLOOKUP($G$1:$H$30,2,FALSE)
と入れて、下方向に式を複写。
こんなの有名なＶＬＯＯＫＵＰ関数を知らないからの質問。
もう少しエクセル有名有用関数を勉強のこと。

お礼

回答ありがとうございます。
勉強不足ですみません。
質問する前に関数を調べてはみたのですが、
数字を拾い数字を表示する事が出来る事は分かったのですが
文字を認識して、文字を表示する事が載っていなかったので
質問してみました。
再度勉強しなおします。

補足

コレがお礼です。

時間は掛かりましたが、ＶＬＯＯＫＵＰ関数で出来ました。
ありがとうございました。

回答No.3

maron--5

◆関数による方法です
★Sheet1
＿＿＿Ａ＿＿＿Ｂ
1＿＿伊藤＿＿あ
2＿＿板倉＿＿い
3＿＿鈴木＿＿い
4＿＿磯貝＿＿あ
5＿＿加藤＿＿い

★Sheet2
＿＿＿Ａ＿＿＿Ｂ
1＿＿伊藤＿＿あ
2＿＿磯貝＿＿あ
3＿＿伊藤＿＿あ
4＿＿板倉＿＿い
5＿＿伊藤＿＿あ
6＿＿鈴木＿＿い
7＿＿加藤＿＿い
8＿＿磯貝＿＿あ

◆Sheet1に変換表を作成します
◆Sheet2の式
B1=IF(A1="","",LOOKUP(0,0/FIND(A1,Sheet1!$A$1:$A$10),Sheet1!$B$1:$B$10))
★下にコピー

お礼

おかげさまで出来ました。
ありがとうございました。

回答No.2

xls88

>A列に色々な名前があります。(名前は20種類程度でランダムで2000行)
>B列にA列の名前によって2種類の表示をしたいです。
例示された以外の名前の場合はどうするのでしょうか？

マクロの一例です。
Sub test()
　　Dim r As Range
　　Dim nameA As String
　　Dim nameB As String

　　nameA = "伊藤,磯貝"
　　nameB = "板倉,鈴木,加藤"
　　For Each r In Selection
　　　　With r
　　　　　　If InStr(nameA, .Value) <> 0 Then
　　　　　　　　.Offset(, 1).Value = "あ"
　　　　　　ElseIf InStr(nameB, .Value) <> 0 Then
　　　　　　　　.Offset(, 1).Value = "い"
　　　　　　End If
　　　　End With
　　Next
End Sub

回答No.1

t-yamada_2

A1セルを選択してメニューの書式-ふりがな-設定で書式の「ひらがな(H)」を設定する。
B1セルに、
=LEFT(PHONETIC(A1),1)
と入力すればひらがなの1文字目を表示できるかと思います。