Excel で特定の文字を取り出してその文字だけをコピーする方法

質問

VBAや関数に詳しくないので、というよりもExcelにあまり詳しくないので、とりあえずこうすればできるという方法を具体的に教えていただければと思います。

やりたいことは2つあります。内容はそれぞれこんな感じです。

(1)
セルA1に”・・・・・・・○”　　(・は任意の文字とします。)　　
セルA2に”・・・・・・・×”　　(抽出したい文字は最後に来ます。)
とあったとしたら
セルB1に”○”
セルB2に”×”
というふうに特定の文字をコピーする。
それらの文字が含まれていなかったり、あってもそれが最後でなければ何もしません。

(2)
(1)で作ったシートを他のシートにコピーしたとして、そのシートには列2に特定の文字○、×などが入っています(空欄の場合もあります。)。この中から列2の内容が×の行を削除します。

Officeについては詳しくありませんが C、C++やJavaなどは使っていたのでスクリプトについては読んでいるうちに慣れると思うのですが、肝心のExcelを使いこなしていないのでこれをマクロで保存した方がいいのか関数にしたほうがいいのかということもはっきりしていないレベルですのでその辺も交えて教えていただけるとありがたいです。

本来であれば自分である程度の勉強をしなければいけないのはわかっているのですが、急ぎということでよろしくお願いします。

回答No.2

zap35 · ベストアンサー

＃０１です
抽出文字が多いときは以下の式が楽だと思います

e1～e10の各セルに抽出文字（○、×、△・・）が１文字ずつ入っているとして、b1の式は次のようになります。

=IF(ISERROR(MATCH(RIGHT(A1,1),$E$1:$E$10,0)),"",RIGHT(A1,1))

お礼

本当にありがとうございました。

No1の方法でうまくいきました。

もっとスマートにやるにはVBAを使うのでしょう。その方法も知りたいところですが、それは日を改めてということにしてこの質問をクローズしようと思います。

回答No.1

zap35

B1に次の式を入れてみてください。
抽出文字が○、×以外にたくさんあるなら、最後の一文字を別の列に抜き出して表検索を絡める手もありますが、この回答ではそれは省きます。
まずはRIGHT(a1,1)="＊"を繰り返し記述してください。

=IF(OR(RIGHT(A1,1)="○",RIGHT(A1,1)="×"),RIGHT(A1,1),"")

（２）はマクロを作成すればもちろん可能ですが、急ぐのであればＢ列に対してオートフィルタをかけて、×の行のみを表示し、右クリックから「行全体の削除」を行えば、×の行のみが削除できます。

オートフィルタの指定はＢ列全体を選択した状態で、　データ→フィルタ→オートフィルタ　です