NO.122928
Re[6]: テキストデータの数字だけを取り出したい |
---|
■投稿者/ マーヤ
■投稿日/ 2015/03/23(17:06)
□URL/ |
こんにちは〜^^
ちょっと考えてましたが、マクロでやった方がいいと思いますが、 数式で考えてみました。 全くオススメはしないですが、せっかく考えたのでアップします。
A1セルに取り込んだデータがあるとします。
B1=TRIM(MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"・"," "),"身長"," "),"cm体重"," "),"KG体脂肪率"," "),"%"," "),1,FIND(" ",SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"・"," "),"身長"," "),"cm体重"," "),"KG体脂肪率"," "),"%"," "))))*1
C1=TRIM(MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"・"," "),"身長"," "),"cm体重"," "),"KG体脂肪率"," "),"%"," "),FIND(" ",SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"・"," "),"身長"," "),"cm体重"," "),"KG体脂肪率"," "),"%"," ")),FIND(" ",SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"・"," "),"身長"," "),"cm体重"," "),"KG体脂肪率"," "),"%"," "),LEN(B1))))*1
D1=TRIM(MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"・"," "),"身長"," "),"cm体重"," "),"KG体脂肪率"," "),"%"," "),FIND(" ",SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"・"," "),"身長"," "),"cm体重"," "),"KG体脂肪率"," "),"%"," "),SUM(LEN($B1:C1))+COLUMN(B1)),FIND(" ",SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"・"," "),"身長"," "),"cm体重"," "),"KG体脂肪率"," "),"%"," "))+1))*1
E1=TRIM(MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"・"," "),"身長"," "),"cm体重"," "),"KG体脂肪率"," "),"%"," "),FIND(" ",SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"・"," "),"身長"," "),"cm体重"," "),"KG体脂肪率"," "),"%"," "),SUM(LEN($B1:D1))+COLUMN(C1)),FIND(" ",SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"・"," "),"身長"," "),"cm体重"," "),"KG体脂肪率"," "),"%"," "))+1))*1
F1=TRIM(MID(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"・"," "),"身長"," "),"cm体重"," "),"KG体脂肪率"," "),"%"," "),FIND(" ",SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"・"," "),"身長"," "),"cm体重"," "),"KG体脂肪率"," "),"%"," "),SUM(LEN($B1:E1))+COLUMN(D1)),FIND(" ",SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1,"・"," "),"身長"," "),"cm体重"," "),"KG体脂肪率"," "),"%"," "))+1))*1
D1〜F1は配列数式なのでCtrl+Shift+Enterで確定 B1〜F1は必要な分下にフィルコピー
一応、望む結果が出ると思いますが、万一望む結果にならなかった場合に 修正したくないですね^^; |
記事NO.122921 のレス /
削除チェック/
|