【最大10000ポイント】当たる!!質問投稿キャンペーン!

住所が一つのセルに入っているものを
マンション名、もしくはなんとかハイツ系、なんとか荘系、
とはいってるものは別セルに表示したいのです。


A1 東京都○○区淡路町2-1-11光マンション222
A2 大阪府○○区外井場3-1-1
A3 広島県○○区草薙場5-3-1 水蔵荘20号

この場合
B1「東京都○○区淡路町2-1-11」別セルC1にて「光マンション222」
B2 「大阪府○○区外井場3-1-1」でOK
B3 「広島県○○区草薙場5-3-1」別セルC3にて「水蔵荘20号」

となるようにするためにはどしたらいいんでしょうか?

住所の全角数字はすべて半角数字には置換しました。

可能かなと思える検索条件は
マンション前には半角の"1,2,3,4,5,6,7,8,9,0,半角スペース"
があり、その後は全角の文字でマンション名がある
という事なんです。

つまり、最後の半角の後に全角の文字があるものはという事なんで
大丈夫だなと思っていたつもりだったのですが

よく考えたら、マンションの最後の部屋番号も半角文字だ。。。。

さらに問題はマンション名が半角カタカナのものもある。
※ただ、これについては最悪、置換で全角に変えようかなとも思います。
(その前に半角カナを全角カナに変える関数ってあるんですか?)

さて、これらの条件でマンション名以降だけを別セルにすることできるのでしょうか?
もしわからなければ、ウン万行のデータを手作業で・・・行わないといけないのです・・・・・。

ぜひ、よろしくお願いいたします。

このQ&Aに関連する最新のQ&A

A 回答 (4件)

#01です。


少しだけマクロを変えました。「半角数字と全角カナ」「半角数字と空白」も区切りと考えるようにしています

>そこでとまってしまってます。
これを前回説明した場所に貼り付けたら、VBE画面は閉じてしまってかまいません。ワークシート画面に戻って適当なセルに、たとえば
 =GetSep(A1)
のように式を入れてみてください。ブックを保存すればマクロも一緒に保存されますので、保存を意識する必要はありません。

私は
 B1の式は  =LEFT(A1,getsep(A1))
 C1の式は  =TRIM(RIGHT(A1,LEN(A1)-getsep(A1)))
にしています。

Function GetSep(ByVal trg As Range) As Integer
Dim RE, mchItems
Dim strPattern As String
Dim idx As Integer
If trg <> "" Then
  Set RE = CreateObject("VBScript.RegExp")
  strPattern = "-[0-9]+|[0-9][ァ-ン]|[0-9] |[0-9] "
  With RE
    .Pattern = strPattern
    .IgnoreCase = True
    .Global = True
    Set mchItems = .Execute(trg.Value)
    If mchItems.Count > 0 Then
      GetSep = mchItems.Item(mchItems.Count - 1).FirstIndex _
          + mchItems.Item(mchItems.Count - 1).Length
    Else
      GetSep = Len(trg.Value)
    End If
  End With
  Set RE = Nothing
End If
End Function

結果はこうなりました。到底「完全なレベル」にはなりません。
ただ住所の末尾 1-12-5 とマンション名の間に空白を入れると分離できますので、うまくいかないデータはそのように修正してください

B列                         C列
○○府○○市○○丘1-12-5          セ○○○○泉丘101号
○○県○○市○○野区東○○台1-3-3      佐藤ハイツ2N
○○都○○区大○○町3-22-21         ○○○○園403
○○都○○区○○谷3-42-14          ス○○山101
○○県○○市○○町1234-1           ○○○○エストe502
○○県○○市○○区○○町1-20         コーポ○○102
○○県○○市○○西2-3-2            グリーン○○西101
○○県○○市○○郷4321-4           サニー○○204
○○県○○市○○区○○町5472          ○○備前303
○○県○○市○○町方五23-4           スミエ-ルミクラシ05号
○○府○○市○○区○○町鷲見99パ        ルテオン東山南209 → NG(なんでかなぁ)
○○府○○府○○市○○○○台3丁目4番129-101   号 → NG(ルール通り)
○○県○○県○○市○○○○12-2135  
○○府○○市○○町5-12             坂本ハイツ3-B
○○県○○市○○町821エステートブリッツンC-101  → NG(ルール通り)

なお#02式はすごいですね。ちょっと考えましたが動く理由がまだ理解できません。いつもながらmaron--5さんの作る関数式には感心します。
    • good
    • 0
この回答へのお礼

すごいです。
ありがとうございました。

お礼日時:2008/02/27 22:32

この手のものに汎用性を期待するのは 時間の無駄だと思います。


ある程度は 目で確認してエラーチェックした方がいいと思います。

条件を増やし過ぎると 処理が重くて使い物にならなくなりますよ?

■B1セル:作業列(番号以下)
=REPLACE(A1,1,MIN(FIND({1,2,3,4,5,6,7,8,9,0,
"1","2","3","4","5","6","7","8","9","0"},
A1&"12354678901234567890"))-1,"")

■C1セル:住所
=TRIM(SUBSTITUTE(A1,D1,""))

■D2セル:ビル・マンション名
=TRIM(REPLACE(B1,1,MIN(INDEX((ISERR(-MID(B1&".",COLUMN(1:1),1))
+ISNUMBER(-MID(B1,COLUMN(1:1)+1,1))+ISNUMBER(FIND(MID(B1,COLUMN(1:1)+1,1),
"--丁番号"))+(MID(B1,COLUMN(1:1)+2,1)="."))*256+COLUMN(1:1),0)),""))

お勧めする訳ではありません。興味本位の実験みたいなもんです。
    • good
    • 2

◆関数で


B1=LEFT(A1,LOOKUP(1,0/FIND("-",A1,COLUMN(1:1)),COLUMN(1:1))+SUMPRODUCT(--ISNUMBER(0/MID(A1,LOOKUP(1,0/FIND("-",A1,COLUMN(1:1)),COLUMN(1:1)),{1,2,3,4}))))
★下にコピー

C1=TRIM(REPLACE(A1,1,LEN(B1),))
★下にコピー

この回答への補足

すごいです!
式の内容はわかりませんが、結構な確率でできてます。

○○府○○市○○丘1-12-5セ○○○○泉丘101号 OK
○○県○○市○○野区東○○台1-3-3佐藤ハイツ2N OK
○○都○○区大○○町3-22-21 ○○○○園403 OK
○○都○○区○○谷3-42-14ス○○山101 OK
○○県○○市○○町1234-1 ○○○○エストe502 OK
○○県○○市○○区○○町1-20 コーポ○○102 OK
○○県○○市○○西2-3-2グリーン○○西101 OK
○○県○○市○○郷4321-4 サニー○○204 OK

で、下記の条件についてはダメでした・・・

○○県○○市○○区○○町5472 ○○備前303  B,Cともにエラー
○○県○○市○○町方五23-4スミエ-ルミクラシ05号  Cにルミクラシ05号(これは単純に半角にしたほうがいいですね)
○○府○○市○○区○○町鷲見99パルテオン東山南209  B,Cともにエラー
○○府○○府○○市○○○○台3丁目4番129-101号  Cに[号]が残る
○○県○○県○○市○○○○12-2135 Cに[5]が残る
○○府○○市○○町5-12坂本ハイツ3-B Cに[B]が残る
○○県○○市○○町821エステートブリッツンC-101 わけられない

これらについて、簡単であればおしえていただけないでしょうか?

補足日時:2008/02/22 10:04
    • good
    • 0

>よく考えたら、マンションの最後の部屋番号も半角文字だ。

。。。
deepimpactさんもお気づきですね。これだけではまだ「条件が不十分」です。

ですから最後に出現する「-(半角ハイフン)につづく半角数字」を区切り文字として扱うようにしてみます。「完全に」とまで言えなくてもかなり救えるはずです。

まず以下のマクロをALT+F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。

Function GetSep(ByVal trg As Range) As Integer
Dim RE, mchItems
Dim strPattern As String
Dim idx As Integer
If trg <> "" Then
  Set RE = CreateObject("VBScript.RegExp")
  strPattern = "-[0-9]+"
  With RE
    .Pattern = strPattern
    .IgnoreCase = True
    .Global = True
    Set mchItems = .Execute(trg.Value)
    If mchItems.Count > 0 Then
      GetSep = mchItems.Item(mchItems.Count - 1).FirstIndex _
          + mchItems.Item(mchItems.Count - 1).Length
    End If
  End With
  Set RE = Nothing
End If
End Function

これは最後の「-(半角ハイフン)につづく半角数字」の終わりが先頭から何文字目かを返すユーザ定義関数です。ワークシートに戻り
 =GetSep(A1)
と式を入力すると「15」が返ります。

あとはこのユーザ定義関数を用いて、B1セルは
 =LEFT(A1,GetSep(A1))
C1セルは
 =TRIM(MID(A1,GetSep(A1)+1,LEN(A1)))
を入力し下方向にコピーします

すると結果は以下のようになります。
B列                  C列
東京都○○区淡路町2-1-11  光マンション222
大阪府○○区外井場3-1-1  
広島県○○区草薙場5-3-1  水蔵荘20号

これで多少楽になりませんか?

この回答への補足

ありがとうございます。
でも
すいません。
VBAわかんなくて説明していただいてる
貼り付けまでやったのですが
それをどう保存?すればいいのかわからないのです。
そこでとまってしまってます。
よろしければ教えていただけないでしょうか?

また、上の方の欄にも答えてますが
色々な形のリストがあるので
参考になればと参考にされてくださいませんか?
どうぞよろしくお願いいたします。

補足日時:2008/02/22 10:09
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QExcelで住所を2つ(町名迄と番地以降)に分けるには?

お世話になります。
Winxp、Excel2003を使用しています。
以下のような住所データがあります。
これを、町名迄と番地以降の2つのセルに分けるには、どうすれば良いでしょうか?よろしくお願いします。

セルA1に東京都小平市東町5-8-15
      ↓  
セルA2には東京都小平市東町
セルA3には5-8-15
としたい。

Aベストアンサー

こんにちは~

A2セルに
=LEFT(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},ASC(A1)&1234567890))-1)

A3セルに
=SUBSTITUTE(A1,A2,"")

と入れてみてください。

Q【Excel】住所を分ける方法

こんにちは

DM発送用の名簿を整理しています。

F列に、住所欄に 都道府県 市町村 町名番地 建物名 号室 までが
一つのセルに入力されています。

小さめのタックシールの為、印字する際、
都道府県 市町村 町名番地の文字が、
12文字を超えると見にくくなります。
※それを超えても文字を縮小して全体を印字します。

番地と建物名の間にスペースがあるので、そこで分けるようにして
建物名および号室は、H列に移動しました。

住所(都道府県 市町村 町名番地)の文字が12文字を超える場合、
町名のところでG列に分ける方法を教えて下さい。

東京都六王子市海山川町88-888 青空荘88号室 このような住所の場合、

青空荘88号室 はH列に移動しました。

東京都六王子市海山川町88-888 は、12文字を超えるため、
列を分けたいのですが、

東京都六王子市海山川町8 | 8-888
とならないように、
東京都六王子市海山川町| 88-888
若しくは、
東京都六王子市|海山川町88-888

となるようにしたいと思います。

Excel2013です。

よろしくお願いします。

こんにちは

DM発送用の名簿を整理しています。

F列に、住所欄に 都道府県 市町村 町名番地 建物名 号室 までが
一つのセルに入力されています。

小さめのタックシールの為、印字する際、
都道府県 市町村 町名番地の文字が、
12文字を超えると見にくくなります。
※それを超えても文字を縮小して全体を印字します。

番地と建物名の間にスペースがあるので、そこで分けるようにして
建物名および号室は、H列に移動しました。

住所(都道府県 市町村 町名番地)の文字が12文字を超える場合、
町名のところでG列...続きを読む

Aベストアンサー

日本の全住所を分解するわけではないと思うので、とりあえず試行してみます。
住所が12文字を超えた場合、区>町>市>村の順で検索しています。、

A1に住所があるとして、B1とC1に分けてみます。後は人の目で確認が必要です。


B1に

=IF(AND(A1<>"",LEN(A1)>12),IFERROR(LEFT(A1,FIND("区",A1)),IFERROR(LEFT(A1,FIND("町",A1)),IFERROR(LEFT(A1,FIND("市",A1)),IFERROR(LEFT(A1,FIND("村",A1)),"")))),A1&"")


C1に、

=IFERROR(RIGHT(A1,LEN(A1)-LEN(B1)),"")



B1の算式を並べると、(改行しているのでコピーできません)

=IF(AND(A1<>"",LEN(A1)>12),
  IFERROR(LEFT(A1,FIND("区",A1)),
  IFERROR(LEFT(A1,FIND("町",A1)),
  IFERROR(LEFT(A1,FIND("市",A1)),
  IFERROR(LEFT(A1,FIND("村",A1)),"")))),
  A1&"")

となっています。何をしているかは自明と思います。
住所にはいろいろなパターンがあります。入力ミスもあるかもしれません。式の結果は完全ではないので確認してください。

日本の全住所を分解するわけではないと思うので、とりあえず試行してみます。
住所が12文字を超えた場合、区>町>市>村の順で検索しています。、

A1に住所があるとして、B1とC1に分けてみます。後は人の目で確認が必要です。


B1に

=IF(AND(A1<>"",LEN(A1)>12),IFERROR(LEFT(A1,FIND("区",A1)),IFERROR(LEFT(A1,FIND("町",A1)),IFERROR(LEFT(A1,FIND("市",A1)),IFERROR(LEFT(A1,FIND("村",A1)),"")))),A1&"")


C1に、

=IFERROR(RIGHT(A1,LEN(A1)-LEN(B1)),"")



B1の算式を並べると、(改行しているのでコ...続きを読む

QExcelで1セル内の住所を市郡町街と丁目以下の地番等に分離する方法は?

Sheet1のA列に例えば群馬県内の住所のリストがあります。(架空の住所です。)
前橋市池端町3-2-21……(セルA1)
桐生市黒保根町水沼7-3-5
高崎市大沢町1-18-204
沼田市佐山町8-6-5-402
勢多郡北橘村下箱田396
多野郡吉井町岩井27-5
以下1,000件程度

Sheet2のA1:B1538に郵政公社からダウンロードした群馬県内の郵便番号一覧表があり、A列に市郡町街大字等、B列に対応する郵便番号があります。(名前定義を仮に「〒」とします)

Sheet1の住所の郵便番号を検索する必要がありますが、そのためには住所の丁目地番より左の部分(市郡町街大字等)を分離しなければなりません。
これをマクロを使わずに1個の計算式で表示したいといろいろ工夫しましたが、どうもいい知恵が浮かびません。仕方なく一旦B列(B1)に
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,9,1),8,1),7,1),6,1),5,1),4,1),3,1),2,1)
という長たらしいネスト式を使って「2~9」の数値をすべて「1」に置き換え、
C列(C1)に =LEFT(A1,FIND(1,B1)-1)
と計算式を入れて市郡町街大字等を抽出し、D列(D1)に
VLOOKUP(C1,〒,2,FALSE) と入れてようやく郵便番号を検索しております。
結果としてはこれで正しい答は出るのですが、標準搭載の関数だけで(マクロを使わずに)何かもっと簡単な方法がありはしないかという気がしてなりません。
ご存知の方があればどうか教えてください。(OS等はWinMe→Excel2000Proです。)

Sheet1のA列に例えば群馬県内の住所のリストがあります。(架空の住所です。)
前橋市池端町3-2-21……(セルA1)
桐生市黒保根町水沼7-3-5
高崎市大沢町1-18-204
沼田市佐山町8-6-5-402
勢多郡北橘村下箱田396
多野郡吉井町岩井27-5
以下1,000件程度

Sheet2のA1:B1538に郵政公社からダウンロードした群馬県内の郵便番号一覧表があり、A列に市郡町街大字等、B列に対応する郵便番号があります。(名前定義を仮に「〒」とします)

Sheet1の住所の郵便番号を検索する必要がありますが、その...続きを読む

Aベストアンサー

=LEFT(A1,LENB(A1)-LEN(A1))
でどうでしょうか?
A1で言えば"3-2-21"と削除するべき部分が1バイト文字になっていますので、バイトで文字数を数えた時の長さを文字数で数えた時の長さを引けば、
2バイト文字で構成される文字の長さがでます。

QエクセルのIF関数で、文字が入力されていたならば~

エクセルのIF関数で文字が入力されていたならば~、という論理式を組み立てたいと思っています。

=IF(A1="『どんな文字でも』","",+B1-C1)

A1セルに『どんな文字でも』入っていたならば、空白に。
文字が入っていなければB1セルからC1セルを引く、という状態です。

この『どんな文字でも』の部分に何を入れればいいのか教えてください。

またIF関数以外でも同様のことができれば構いません。

宜しくお願いします。

Aベストアンサー

=IF(ISTEXT(A1),"",B1-C1)

でどうでしょうか?

Q住所のセル分割について

お尋ねします
A1のセル→**山田町1-1-1山田アパート**
のように番地とアパート・マンション名が続けて入っているセルがいくつもあります。
これを
B1→**山田町1-1-1
C1→山田アパート**
のように2つのセルに分割する方法はありませんでしょうか。
番地とアパート名の間にはなにもありません。
また番地までの住所の長さはまちまちです。
よろしくお願いいたします。

Aベストアンサー

非常に微妙な論理を使ってますが、下記を実行して、ほぼうまく行けば使って見てください。
(1)テストとして、100行分のぐらいの住所を別シートのA列にコピーする。そして下記を実行し、B、C列に分離された内容が、圧倒的行数で正しいかチェック。不適当が少数なら手で修正する。
ロジックは文字部の塊が終わり、数字かハイフンが出現し、再び文字の現れた個所以下を気付・アパートとする。
Sub test01()
For i = 1 To 100 '1000行までなら1000に変える
s = Cells(i, "A") '住所のある列、C列なら"C"
For j = 1 To 30 '30は1000人の住所全体の最大文字数
c = Mid(s, j, 1) '住所のj番目文字を問題にする
Select Case c
Case Is = IsNumeric(c) '数字か
flg = 1
Case "0" 'ゼロか
Case "-" 'ハイフンか
Case "-" 'ハイフンか
Case Else
If flg = 1 Then
Cells(i, "B") = Mid(s, 1, j - 1) '分離後住所本体部を置く列
Cells(i, "C") = Mid(s, j, 10) '気付アパート部を置く列
flg = 0
GoTo p01
Else
flg = 0
End If
End Select
Next j
p01:
Next i
End Sub
(2)旨くいく条件
町字までの住所本体には数字や-がないとする.
丁・番・号には数字か-しかないものとする。1丁目とか2番地などの表現がないこと。
VBAの実行はシートでALT+F11
VBE画面で挿入(I)、標準モジュール(M)で出てくる画面に貼りつけ、F5キーで実行。
(テスト)
静岡市山田1-2山田マンション1234
仙台市新町1-2-3ABCアパート
大手町2-3-4富士ビル3階
大阪市中央区大手町1-20沖縄
大阪市北区駅前1-21希望1-234
東京都千代田区大手町3-3-3日本ビル123
埼玉県さいたま市宮前2-3-4 金剛333
埼玉県さいたま市宮前2-3-4
C列は
山田マンション123
ABCアパート
富士ビル3階
沖縄
希望1-234
日本ビル123
 金剛333
となりました。

非常に微妙な論理を使ってますが、下記を実行して、ほぼうまく行けば使って見てください。
(1)テストとして、100行分のぐらいの住所を別シートのA列にコピーする。そして下記を実行し、B、C列に分離された内容が、圧倒的行数で正しいかチェック。不適当が少数なら手で修正する。
ロジックは文字部の塊が終わり、数字かハイフンが出現し、再び文字の現れた個所以下を気付・アパートとする。
Sub test01()
For i = 1 To 100 '1000行までなら1000に変える
s = Cells(i, "A") '住所のある列、C列な...続きを読む

Qエクセルで「丁番地」を変換する方法を教えて下さい

エクセル2000を使っています。
セルに「1丁目2番3号」という住所があるとして
それを「1-2-3」というふうに変換したいのですが
どのようにすればいいでしょうか?

ちなみに「1丁目2番3号」の前には都道府県および
市区町村の情報も含まれております。

宜しくお願いします。

Aベストアンサー

入ってるセルがD2として
=IF(COUNTIF(D2,"*番*号*"),SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(D2,"丁目","-"),"番地","-"),"番","-"),"号",""),D2)

セルに入力された文字に番と号が両方あるときだけ変換します。

QExcelで文字間にスペースを一発で入れられる方法を教えてください。

Excelで苗字を入力した行が複数あります。
その苗字は全て2文字です。
それらの文字間にスペースを入れたいのですが、関数を使って一発で操作はできないでしょうか?
どなたかご教示ください。
よろしくおねがいいたします。

Aベストアンサー

◆こんな方法もありますよ
=REPLACE(A1,3,," ")

Qひとつのセルにあるデータを空白で区切って分割したい

いつもお世話になってます。
EXCELでこのようなことは可能でしょうか?

ひとつのセルに例えば、
「兵庫県 神戸市 西区」や、
「兵庫県 神戸市 中央区」や、
「神奈川県 足柄上郡 松田町」などと、
とにかく3つのデータが空白ひとつの間をあけて入っています。
この空白で区切って3つのセルにデータを分けたいです。
「兵庫県」「神戸市」「西区」というようなカンジです。
RIGHTやLEFT関数だと文字数を指定しないといけないし、
行き詰ってます。
お力を貸して下さい。(´;ω;`)

Aベストアンサー

データを選択し、メニューバーから
「データ」-「区切り位置」を選びます。

「カンマやタブなどの区切り文字によってフィールドごとに区切られたデータ」
を選び、「次へ」を押下します。

区切り文字欄の「スペース」を選んで、「完了」を押してください。

データが分けられます。

Q文字列から英数字のみを抽出する関数

文字列から英数字のみを抽出する関数を教えていただきたいです。

セルの文字列にはひらがな、カタカナ、数字、アルファベット、記号等を含みます。

色々調べてはみたのですが、数字のみを抽出する関数の説明はたくさんありますが、
アルファベットも含むとなると見つかりませんでした。

数字0~9とアルファベット27個の計37個の文字なので、どうにか関数でできると思うのですが。

具体的には下記のようにしたいのです。

●A列
今日iPhone5をauで購入
最新のNEWSを15時~PCで見る 
Moonshotを生み出す「Google X」

●B列にこう表示したいのです。
iPhone5au
NEWS15PC
MoonshotGoogleX


スペースは残ったままでも結構です。

詳しい方、どうかよろしくお願いいたします。

Aベストアンサー

>数字のみを抽出する関数の説明はたくさんありますが

文字列の中に数字が「一塊だけ」ある場合の説明は多分沢山ありますが、(今回のご質問のように)「文字数字文字数字文字数字」と不定数入り混じってる場合の数式は、全く見つからなかったと思いますよ。

たとえば「英数字が最大限3カタマリまで」といった制約を付けて無理矢理関数をくっつける事は出来なくはありませんが、正直不細工ですし、そもそもあんまり現実的じゃありません。



手順:
ALT+F11を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

public function myf(a) as string
 dim i as long
 for i = 1 to len(a)
 if mid(a,i,1) like "[0-9a-zA-Z ]" then
  myf = myf & mid(a,i,1)
 end if
 next i
end function

ファイルメニューから終了してエクセルに戻る

任意のセルに元の言葉を記入し、
=myf(A1)
のように計算する。

>数字のみを抽出する関数の説明はたくさんありますが

文字列の中に数字が「一塊だけ」ある場合の説明は多分沢山ありますが、(今回のご質問のように)「文字数字文字数字文字数字」と不定数入り混じってる場合の数式は、全く見つからなかったと思いますよ。

たとえば「英数字が最大限3カタマリまで」といった制約を付けて無理矢理関数をくっつける事は出来なくはありませんが、正直不細工ですし、そもそもあんまり現実的じゃありません。



手順:
ALT+F11を押す
現れた画面で挿入メニューから標準モ...続きを読む

QExcel セル内の文字と数字をわけるには??

一つのセルの中に、文字と数字が入っているのですが、
それを別々のセルに分けたいのです。。。

例)
後楽1-1-1 → 後楽 と 1-1-1
西新宿2-2 → 西新宿 と 2-2

どなたか良い方法をご存知でしたら、教えて下さい~!!

Aベストアンサー

↓こちらの26番「数字で始まる部分から区分」を参考にしてください。

参考URL:http://www2.odn.ne.jp/excel/waza/function.html


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング