[[20120524002740]]@w•¶Žš‚Ì”²‚«o‚µ‚ÆWŒvxia-suj@ƒy[ƒW‚ÌÅŒã‚É”ò‚Ô

[ ‰‚ß‚Ä‚Ì•û‚Ö | ˆê——(ÅVXV‡) | ‘S•¶ŒŸõ | ‰ß‹ŽƒƒO ]

@

w•¶Žš‚Ì”²‚«o‚µ‚ÆWŒvxia-suj

@1@¬•½ŽsŒäK’¬‚©‚笕½Žs—é–Ø’¬
@2@¼“Œ‹žŽsò’¬‚©‚缓Œ‹žŽs¼Œ´’¬
@3@››››’¬‚©‚碢¢¢¢¢’¬

‚ȂǃŠƒXƒg‚ª‚ ‚è‚Ü‚·B‚»‚ꂼ‚궑¤‚É‹LÚ‚µ‚Ä‚¢‚é‹æŽs’¬‘º–¼‚¾‚¯‚𔲂«o‚µ

@1@¬•½Žs
@2@¼“Œ‹žŽs
@3@››››’¬

‚Æ‚¢‚¤•\Ž¦‚ªo—ˆ‚Ü‚·‚Å‚µ‚傤‚©H


 ‚Æ‚è‚ ‚¦‚¸UDF

 =GetCityTown(A1,"‚©‚ç")

 Function GetCityTown(ByVal txt As String, ByVal delim As String) As String
    With CreateObject("VBScript.RegExp")
        .Pattern = "(.+Žs)?(.*’¬)" & delim & ".*"
        GetCityTown = .Replace(txt, "$1")
        If GetCityTown = "" Then
            GetCityTown = .Replace(txt, "$2")
        End If
    End With
End Function
(seiya)

 B1 =LEFT(A1,MIN(FIND({"Žs","’¬"},A1&"Žs’¬")))

 (GobGob)

 >  B1 =LEFT(A1,MIN(FIND({"Žs","’¬"},A1&"Žs’¬")))

 ŽsìŽs
 Žl“úŽsŽs
 ¡ŽsŽs
 etc
 (seiya)

 ‚¨‚§EEE ŽsìŽsAŽl“úŽs‚í‚·‚ê‚Ä‚½‚—B

 uŽsì’¬v ‚Æ‚©‚̓€ƒŠ‚¾‚¯‚ÇBŽQl‚ÉB

 =LEFT(A1,LOOKUP(1,0/((MID(LEFT(A1,FIND("‚©‚ç",A1&"‚©‚ç")-1),ROW($1:$30),1)=IF(COUNTIF(A1,"*Žs*"),"Žs","’¬"))*ROW($1:$30)),ROW($1:$30)))

 (GobGob)


 “ì‚ ‚킶ŽsŽsŽs‚È‚ñ‚Ä‚Ì‚ª‚ ‚é‚¢‚Ý‚½‚¢B
 (semm)

 >“ì‚ ‚킶ŽsŽsŽs‚È‚ñ‚Ä‚Ì‚ª‚ ‚é‚¢‚Ý‚½‚¢B

 ‚±‚ê‚̓iƒ“ƒgƒJˆ—‚Å‚«‚邯‚ÇA’¬‚ÉuŽsv‚ª‚ ‚é‚ƃ_ƒ‚Á‚·w

 (GobGob)

 GobGob‚³‚ñ‚Ä‚·‚²‚¢‚ÈI‚Æ‚¢‚Â‚àŠ´“®B
‚È‚Ì‚ÅA‚±‚ê‚Í‚¢‚¿‚á‚à‚ñ‚Å‚Í‚È‚­A‚±‚ÌŽí‚Ì•¶Žš—ñŒŸõ‚Æ‚¢‚¤‚©Aˆê”Ê“I‚ȃRƒƒ“ƒgB
‰¼‚Éi‚ ‚Ü‚è‚É‹É’[‚¾‚¯‚ÇjŽ‚Ì–¼‘O‚ª@ŽsŽs@‚Å@‚»‚Ì’†‚Ì’¬–¼‚ª@ŽsŽs@‚Æ‚¢‚¤‚Ì‚ª’a¶‚µ‚½‚Æ‚·‚éB
ZŠ‚ð‘‚­‚Æ@ŽsŽsŽsŽsŽsB
ˆ—‚·‚éã‚ÅA‚Ç‚±‚©‚ç‚Ç‚±‚Ü‚Å‚ªŽs‚Ì–¼‘O‚ÅA‚Ç‚±‚©‚ç‚Ç‚±‚Ü‚Å‚ª’¬‚Ì–¼‘O‚©‚Í”»’f‚Å‚«‚È‚¢B

‚¾‚©‚çAŽÀ‚ÍAiŽÀÛ–â‘è‚Í•Ê‚É‚µ‚ÄjŽ©“®‰ðÍ‚ð‚µ‚Ä”»’f‚·‚é‚Ì‚Í—‹ü‚Æ‚µ‚Ä‚Í•s‰Â”\B
‘S‘‚ÌŽs’¬‘º–¼ƒe[ƒuƒ‹‚ð\‚¦‚Ä‚¨‚¢‚ÄAƒ}ƒbƒ`ƒ“ƒO‚³‚¹‚é‚Æ‚¢‚¤‚Ì‚ª—Bˆê‚Ì‰ðŒˆ–@‚©‚ÈB

http://okwave.jp/qa/q5361419.html
‚±‚ê‚È‚ñ‚©‚ÅЉ‚ê‚Ä‚¢‚éŒö“I‚È‹@ŠÖ‚©‚烊ƒXƒg‚ð“üŽè‚µ‚ÄA‚»‚ê‚ɂԂ‚¯‚é‚Æ‚¢‚¤‚Ì‚ª
ŠmŽÀ‚Å‚·‚©‚ËB

 (‚Ô‚ç‚Á‚Æ)

ƒRƒƒ“ƒg•ÔMF

[ ˆê——(ÅVXV‡) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.