エクセルでリストから0だけを取り除く方法

質問

ランダムに0が混じっている数列がありまして、ここから0をのぞいたリストを作成したいのです。
例えば

22, 0, 14, 0, 0, 0, 64, 0, 0, 14, 0, 43, 0, 24, 0, 0, 53, 0, 0, 85
(要素の個数20)

となっている時

22, 14, 64, 14, 43, 24, 53, 85
(要素の個数8)
とするような感じです。ただし0でない数の中で同じ数字も出てきますので(上の例だと14が2回出てくる)単純に重複を取り除くような方法だと、本来取り除きたくないものまで取り除いてしまうのでダメなのです。

以上がやりたいことなのですが、どなたかうまい方法をご存知ないでしょうか?よろしくお願いします。

回答No.4

maron--5 · ベストアンサー

◆こんな方法もありますよ
　　 A　　 B
1　　 22　　22
2　　　0　　14
3　　 14　　64
4　　　0　　14
5　　　0　　43
6　　　0　　24
7　　 64　　53
8　　　0　　85
9　　　0
10　　14
11　　0
12　　43
13　　 0
14　　24
15　　 0
16　　 0
17　　53
18　　 0
29　　 0
20　　85

■手順■
１）A1:A20を範囲選択します
２）最初は、A1がアクティブになっていますので、Tab　を押して、0　をアクティブにします
３）メニューバーの「編集」→「ジャンプ」→「セル選択」をクリックします
４）「アクティブ列との相違」にチェックして、ＯＫ
５）そのままで、コピーして、B1に張り付けします

お礼

今回の回答の中ではこちらが一番分かりやすく助かりました。
どうもありがとう ございます!

回答No.3

noname#204879

[フィルタオプションの設定]を利用するのが「うまい方法」だと思います。
下の例だと、範囲 C1:C2 が[検索条件範囲]になります。

　　 A　　 B　　 C
1　 data　data　data
2　　 22　　22　<>0
3　　　0　　14
4　　 14　　64
5　　　0　　14
6　　　0　　43
7　　　0　　24
8　　 64　　53
9　　　0　　85
10　　 0
11　　14
12　　0
13　　43
14　　 0
15　　24
16　　 0
17　　 0
18　　53
19　　 0
20　　 0
21　　85

補足

返事がたいへん遅くなり申し訳ありません。

作業の順番がよく分からないのですが、
最初にA列にデータを埋め、
Cに「<>0」を入力し、

このあとすぐにフィルタオプションを実行でよいのでしょうか?
自分でやってみたところ、B列には何も入りませんでした。

回答No.2

maron--5

◆A1に「22, 0, 14, 0, 0, 0, 64, 0, 0, ・・・」と入力されているものとします
=REPLACE(SUBSTITUTE(SUBSTITUTE(","&A1," ",),",0",""),1,1,)

お礼

お返事遅くなりすみません。

一瞬でできました。すごいです。
ただこの方法は全部のデータが1つのセルにある時に有効の
ようですね。今回は1つの数値が1つずつセルに入っている状態で
考えていたのでそのままでは使えないかもしれませんが・・・
目からウロコが落ちました。ありがとうございます。

回答No.1

hallo-2007

配列関数案
データがA1～T1（1行目にあるとして）
B1にでも
=INDEX($A1:$T1,1,SMALL(IF($A1:$T1>0,COLUMN($A1:$T1),""),COLUMN(A1)))
入れて　Ctrl+Shift+Enter　で確定して
右へコピィします。

補足

お返事遅くなり誠にすみません。

> B1にでも

とありますが、セルB1も1行目にあるのではないでしょうか?
だとするとデータに上書きして下記の式を入れるということでしょうか?
> =INDEX($A1:$T1,1,SMALL(IF($A1:$T1>0,COLUMN($A1:$T1),""),COLUMN(A1)))

ご回答頂ければ幸いです。