エクセル　空白以外のセルを関数などで抽出したい

私に聞いて！

質問する

詳細検索

-PR-

解決済みの質問

質問:No.2555213

▼

kinkan0612

困ってます

お気に入り投稿に追加する (0人が追加しました)

回答数4

エクセル　空白以外のセルを関数などで抽出したい

以下のように、１列上に、入力されてるセルと空白セルが存在します。

　　Ａ
１｜あああ
２｜
３｜
４｜いうえ

これを、以下のように抽出したいのですが、方法を教えて下さい。
オートフィルタなどではなく、集計終了後、以下のように抽出された値を
そのまま別シートにコピーしたいと考えています。

　　　　Ａ
１００｜あああ
１０１｜いうえ

●ちなみに、２行目や３行目に、集計終了までに値が入る可能性があります。
よろしくお願いします。

投稿日時 - 2006-11-22 13:22:01

通報する

ブックマーク▼

メールで紹介

質問者が選んだベストアンサー

回答:No.3

▼

zap35

＃０１です。ご期待に沿えたようで嬉しいです。
補足していただいた条件なら以下の式になります。Shift＋Ctrl＋Enterで確定してください。

=IF(ROW()-167>COUNTIF($AG$12:$AG$159,"<>"),"",INDEX($AG$1:$AG$159,SMALL(IF($AG$12:$AG$159="","",ROW($AG$12:$AG$159)),ROW()-167)))

投稿日時 - 2006-11-22 15:14:30

通報する

この回答を支持する

(現在1人が支持しています)

お礼

本当にほんとうにありがとうございます。
理解不足＆知識不足で、INDEXまで範囲を変えてしまっていたのですね。
今まで「コピペ」作業で時間を費やしていた事がたくさんあったので、これで、作業効率がはかれ、上司にもほめてもらえそうです！
これからも、何かありましたら、よろしくお願い致します。

投稿日時 - 2006-11-22 15:58:26

この質問は役に立ちましたか？

12人が「このQ&Aが役に立った」と投票しています

別のキーワードで再検索する

詳細検索

関連キーワード
列
値
セル
ToRow
コピー

ベストアンサー以外の回答 (3)

並び替え
新着順
支持数順

回答:No.4

▼

ham_kamo

Ｃ列からAI列まで、12行目～159行目で値が入っているセルだけを160行目以降に抽出する、ということでしょうか。
マクロを使ってよければこんなので。

Sub 抽出()
　　Dim Column As Integer, FromRow As Integer, ToRow As Integer
　　For Column = 3 To 35 'C列からAI列まで
　　　　Range(Cells(168, Column), Cells(65536, Column)).ClearContents
　　　　ToRow = 168
　　　　For FromRow = 12 To 159
　　　　　　If Cells(FromRow, Column).Value <> "" Then
　　　　　　　　Cells(ToRow, Column).Value = Cells(FromRow, Column).Value
　　　　　　　　ToRow = ToRow + 1
　　　　　　End If
　　　　Next
　　Next
End Sub

投稿日時 - 2006-11-22 15:16:49

通報する

この回答を支持する

(現在0人が支持しています)

お礼

ありがとうございました。
関数とは違ってボタン１つで出来ることがとても使いやすかったです。
でも、ちょこちょこ変更したり、エクセルをあまりわからない上司が利用する為、教えて頂いたマクロは次回自分で作ったデータで使わせて頂きます。
ありがとうございました。

投稿日時 - 2006-11-22 18:48:02

回答:No.2

▼

nanndemoii

オートフィルタを使って「空白以外のセル」で以下のように表示させます。

　　　Ａ
１００｜あああ
１０１｜いうえ

コピーしたい範囲をドラッグしCtrl+Gで「ジャンプ」ダイアログが開きますので
左下の「選択オプション」ボタンを押し、右下の方にある「可視セル」を選択し
コピペではいかがでしょうか？

投稿日時 - 2006-11-22 13:41:58

通報する

この回答を支持する

(現在0人が支持しています)

お礼

ありがとうございました。
ただ、集計した内容が、C列～AI列まであり、オートフィルタをかけなければいけない内容の集計列が10以上ある為、効率よく作業する為、一度に出来る関数をお教え頂ければ。。。と思っての質問でした。

投稿日時 - 2006-11-22 14:42:56

回答:No.1

▼

zap35

データがA1:A99にあるとして、以下の式を任意の列の１行目に貼り付けてShift＋Ctrl＋Enterで確定してください（配列数式にする）。そのセルを下方向に必要分だけコピーします。

=IF(ROW()>COUNTIF($A$1:$A$99,"<>"),"",INDEX($A$1:$A$99,SMALL(IF($A$1:$A$99="","",ROW($A$1:$A$99)),ROW())))

質問例では１００行目に並び替えたリストを表示するようになっています。どうしても１００行目からにする必要があるなら以下の式になります。
=IF(ROW()-99>COUNTIF($A$1:$A$99,"<>"),"",INDEX($A$1:$A$99,SMALL(IF($A$1:$A$99="","",ROW($A$1:$A$99)),ROW()-99)))

投稿日時 - 2006-11-22 13:39:57

通報する

お礼する

この回答を支持する

(現在0人が支持しています)

補足

ありがとうございました。感激です。根本的に出来た事がとてもうれしいです。例文でやってみたら出来ました。
しかし、一番やりたい内容がどうしても完成しません。

「AG列、12行目～159行目」を範囲として、AG列の168行目以降に答えを表示させたいのです。
お教え頂いた下の式を「-167」とし、「AG12:AG159」と変えても答えが「0」になってしまいます。
※AG168に、式中一部を、「-167」とし、「AG1:AG159」にしたら出来ました。
※答えを出したい内容が記載されてるのが12行目以降なので困ってます。
※範囲を、途中の行を開始とする事は出来ないのでしょうか。。。

理解不足で申し訳ありません。お教え頂けるとうれしいです。

投稿日時 - 2006-11-22 14:38:52

別のキーワードで再検索する

詳細検索

もっと聞いてみる

質問する

関連するQ&A

question

オートフィルター後の集計で集計値がでないのですがいつも皆さんに助けていただきありがとうございます。現在、エクセルでオートフィルターを使い抽出...
question

ＥＸＣＥＬオートフィルター後の集計方法　ＥＸＣＥＬの表でオートフィルターで抽出後、ＳＵＭ関数で集計しようとすると抽出外のＣＥＬＬまで...
question

オートフィルタについてオートフィルタで”空白”を絞りこむことはできますが、データが入力してあるものすべてを抽出するに...

回答募集中

aunswer

VBAによる用紙サイズ変更(PrtDevMode)お世話になります。 VBAで用紙サイズの変更方法をご教授願います。現在、レポートにてラベル...
aunswer

有償の相談サービス「パソコンなんでも相談サービス」ソースネクストが販売していた「パソコンなんでも相談サービスほっ！」という便利なサービスがあっ...
aunswer

officesuite professionai７officesuite professionai　７　でエクセル編集後の保存手順教えてください...