- Excel VBA 質問スレ Part43 [無断転載禁止]©2ch.net
492 ：デフォルトの名無しさん[sage]：2016/10/15(土) 23:18:19.83 ID:9QPZg1sB - 検証はしてないがこんなイメージで行けそう
function a(もじれつ())as string()
for s in もじれつ
if 検索する(s、対象場所)
rslt.add(s)
else
つぎ(0)＝left(s,len(s)-1)
つぎ(1)＝right(s,len(s)-1)
rslt.add(a(つぎ))
endif
next
a=rslt
endfunction
function 検索する(もじ、range)as boolean
rslt=false
for r in range
if rに文字がある then rslt=true
next
検索する＝rslt
endfunction
|