スポンサードリンク | |
漢数字に変換(NUMBERSTRING関数) | 文字列を取り出す(LEFT,RIGHT,MID関数) |
ふりがなを取り出す(PHONETIC関数) | 文字列の長さを返す(LEN,LENB関数) |
B | C | D | E | |
2 | 左から4文字 | 左から5文字目から4文字 | 右から6文字 | |
3 | 鹿児島県鹿児島市山下町1番地 | 鹿児島県 | 鹿児島市 | 山下町1番地 |
B | C | D | E | |
2 | 左から4文字 | 左から5文字目から4文字 | 右から6文字 | |
3 | 鹿児島県鹿児島市山下町1番地 | =LEFT(B3,4) | =MID(B3,5,4) | =RIGHT(B3,6) |
B | C | D | |
2 | 県名を取り出す | 県名より後の文字を取り出す | |
3 | 鹿児島県鹿児島市山下町1番地 | =LEFT(B3,FIND(”県”,B3)) | =MID(B3,FIND("県",B3)+1,LEN(B3)) |
B | C | |
2 | 住所 | 都道府県名を削除 |
3 | 鹿児島県鹿児島市鴨池新町10番1号 | 鹿児島市鴨池新町10番1号 |
4 | 大阪府大阪市中央区大手前2丁目 | 大阪市中央区大手前2丁目 |
5 | 東京都新宿区西新宿2-8-1 | 新宿区西新宿2-8-1 |
6 | 宮崎県宮崎市橘通東二丁目10番1号 | 宮崎市橘通東二丁目10番1号 |
B | C | |
2 | 住所 | 都道府県名を削除 |
3 | 鹿児島県鹿児島市鴨池新町10番1号 | =IF(MID(B3,4,1)="県",MID(B3,5,LEN(B3)-4),MID(B3,4,LEN(B3)-3)) |
4 | 大阪府大阪市中央区大手前2丁目 | =IF(MID(B4,4,1)="県",MID(B4,5,LEN(B4)-4),MID(B4,4,LEN(B4)-3)) |
5 | 東京都新宿区西新宿2-8-1 | =IF(MID(B5,4,1)="県",MID(B5,5,LEN(B5)-4),MID(B5,4,LEN(B5)-3)) |
6 | 宮崎県宮崎市橘通東二丁目10番1号 | =IF(MID(B6,4,1)="県",MID(B6,5,LEN(B6)-4),MID(B6,4,LEN(B6)-3)) |
B | C | |
2 | 都府県名 | 右1文字を削除 |
3 | 東京都 | 東京 |
4 | 大阪府 | 大阪 |
5 | 鹿児島県 | 鹿児島 |
6 | 宮崎県 | 宮崎 |
B | C | |
2 | 都府県名 | 右1文字を削除 |
3 | 東京都 | =LEFT(B3,LEN(B3)-1) |
4 | 大阪府 | =LEFT(B4,LEN(B4)-1) |
5 | 鹿児島県 | =LEFT(B5,LEN(B5)-1) |
6 | 宮崎県 | =LEFT(B6,LEN(B6)-1) |
Sub myPhone() Dim c As Range For Each c In Selection c.Offset(0, 1).Value = Application.GetPhonetic(c) Next c End Sub |
Sub myPhone2() Dim c As Range For Each c In Selection c.SetPhonetic Next c End Sub |
スポンサードリンク
PageViewCounter
Since2006/2/27