締切済み

エクセルに関する質問です。

2016/12/29 18:26

エクセルに関する質問です。フィルターでデーダ抽出後に、例えばA列の２行目の文字を別シートに表示させてい場合はどのようにすればよろしいでしょうか？例）シート１　　A列　　B列　　C列 1 2　あシート２　あ

genuinefarm
お礼率0% (0/6)

Excel（エクセル）
回答数6
ありがとう数1

みんなの回答 （6）
専門家の回答

みんなの回答

Nouble
ベストアンサー率18% (330/1783)

2017/01/05 01:33 回答No.6

失礼しました再度訂正 =IFERROR( OFFSET(シート１!$A$1, SMALL(INDEX((1-ISBLANK(シート１!$A$1:$A$999)*ISBLANK(シート１!$B$1:$B$999)*ISBLANK(シート１!$C$1:$C$999))*ROW(シート１!$A$1:$A$999) +ISBLANK(シート１!$A$1:$A$999)*ISBLANK(シート１!$B$1:$B$999)*ISBLANK(シート１!$C$1:$C$999)*2^25,,),ROW(B1))-1, COLUMN(B1)-1,1,1), "") 未だ、今一…だけど取りあえず「あ」は、でますね横にゴミが、出るけど…　ね参考URLみたいに

参考URL：: https://1drv.ms/x/s!AjviygfJDgV_kSSZsMUh9rauFdxS

ログインすると、全ての回答が全文表示されます。

imogasi
ベストアンサー率27% (4737/17070)

2017/01/02 11:38 回答No.5

#2です。他の回答で、関数数式で回答が出ているのは、驚きました。＝＝＝＝＝＃２の補足。その後ＶＢＡでこの点いろいろやってみて、＃２に関して補足。ＶＢＡに関していうと Sub test01() Dim i As Integer, j As Integer Dim myrng As Range, rng As Range i = Range("A65536").End(xlUp).Row MsgBox i Set myrng = Range(Cells(1, 2), Cells(i, 2)).SpecialCells(xlCellTypeVisible) myrng.Select Selection.Copy Range("A" & (i + 3)) '元データの最下行以下であれば貼りつければそのままデータが見える End Sub のように、画面上で、可視セルは捉えられる。 Set myrng = Range(Cells(1, 2), Cells(i, 2)).SpecialCells(xlCellTypeVisible) myrng.Select しかしこれらを、「シートの適当なセルにコピー貼り付けしないと」、可視セル内の行位置を指定できないようです。「適当な」とは（１）上記は同一シートの最下行次行以下のデータのない行領域に貼り付け（２）前の回答では、空白の別シートに貼りつけましたいったん張り付ける方法は、うっとうしいので、採用されないでしょうが、可視セルだけでの相対セル位置指定のＳｅｌｅｃｔｉｏｎ．Ｃｅｌｌｓ（３，１）のような、普通の状態での、従来的方式の延長での、捉え方は、（ＷＥＢ記事を調べてたが）できないようです。（しかし、小生が知らないだけで、実は方法があるのかもしれませんが。）

ログインすると、全ての回答が全文表示されます。

Nouble
ベストアンサー率18% (330/1783)

2016/12/30 19:33 回答No.4

失礼しました、間違えてました訂正させてください。 =IFERROR( OFFSET("シート１"!$A$1, SMALL(INDEX((1-ISBLANK($A$1:$A$999)*ISBLANK("シート１"!$B$1:$B$999)*ISBLANK("シート１"!$C$1:$C$999))*ROW("シート１"!$A$1:$A$999) +ISBLANK("シート１"!$A$1:$A$999)*ISBLANK("シート１"!$B$1:$B$999)*ISBLANK("シート１"!$C$1:$C$999)*2^25,,,),ROW(A1))-1, COLUMN(A1)-1,1,1), "") ですね何処かに書き込み右へ2列フィルして、3列にし此の3列を、必要なだけ下向きに、フィルしてくださいところで、 NOT(ISBLANK((セル範囲))*ROW(同セル範囲)+NOT(ISBLANK((セル範囲))*COLUMN(同セル範囲)/1000000 という式、ですが =IFERROR(OFFSET("シート１"!$A$1, INDEX(SMALL(NOT(ISBLANK("シート１"!$A$1:$C$999))*ROW("シート１"!$A$1:$C$999)+NOT(ISBLANK("シート１"!$A$1:$C$999))*COLUMN("シート１"!$A$1:$C$999)/1000000+ISBLANK("シート１"!$A$1:$C$999)*2^25,,)-1, ROW(A1)),"") 適当なセルに、書き込み下に、フィルしてみてください

ログインすると、全ての回答が全文表示されます。

Nouble
ベストアンサー率18% (330/1783)

2016/12/30 19:00 回答No.3

長文ですが、お邪魔します。失礼ながらそう複雑なものではないですね 1、要は空白でない行を特定し 2，其のリストを得て 3，一元的に参照、表示、すれば良いでしょう。では、少しずつ此等を、見ていきます。 1、ですが、基本なので詳しい目に、説明しますで、空白では無い行とは、「空白しか含まれない行」では無いと、言う事であり故に、行内に含まれる、指定列内の一行の、全てのセルが全て空白か調べれば、判りますよね？空白かどうかを知るには ISBLANK関数が便利です此の関数は空白だとTRUE 空白でないとFALSE を、返します。今回は A、B、C、列ですか？一例として A1:C1が全て空白か、知りたい時は論理演算関数、ANDを用いて =AND(ISBLANK(A1),ISBLANK(B1),ISBLANK(C1)) 等とすれば、判ります此で、TRUEが返されたなら其の範囲は、全て空白ですところで、 Excelには配列数式と、言う機能がありますどういう機能かと、言うと超簡単に、簡略化した言い方で言うと通常は、ひとセルしか　扱いませんが此を、複数セル指定しますすると、其の此処のセル毎に、個々個別に関数を適応し列記形式で、解答を返すと、言うもので一例としては先程は、ISBLANK(A1) と、指定したところを一気に、ISBLANK(A1:C1)と、指定しますすると、 {TRUE;TRUE;TRUE｝とか、返して貰えますもう一つ、 Excelには値を、見なし補完する機能があり TRUE を0と 0をTRUEと FALSEを1と ABS(SIGN(0以外の値))をFALSEと見なしてくれますので、例えば、 {TRUE,TRUE,TRUE}+0 と、すると {TRUE+0,TRUE+0,TRUE+0} と、いう演算に　展開され本来、論理値と数値は演算不能…　なので TRUE が0に、見なし置換され {0+0,0+0,0+0｝と、変形されます結果、 {0,0,0} と、返されます此処で実は、余談ですが Excelでは、仕様上表示は、1つの値しか　しませんしかし {0,0,0｝には、値が三つ　含まれますので、表示上はエラーになる事が、あります逆に言えば、表示上、エラーだからと、演算失敗だなと、取るのは早計な、訳です話を戻すと、 {0,0,0｝で、なくても先程の ISBLANK (A 1 :C1)+0 と、しても同様に {0,0,0｝と、返して　くれますまた、 SIGN(SUM(ISBLANK(A1:C1)+0)) と、すると全て空白の場合 SIGN(SUM( {0,0,0})) と、なり 0が、返されますし、例えば、 A1と、B1が、空白でない場合 SIGN(SUM({1,1,0}) と、なり SIGN(2) と、なり 1が返されます 1又は0ですので其のセル位置の行数を返す関数として ROW(セル位置) と、言う関数があるの、ですが 0に何を掛けても0 1に何を掛けても、掛けた数ですので、 SIGN(SUM(ISBLANK(A1:C1)+0)) *ROW(A1) と、すると A行に、少なくとも一つ値があれば A1:C1の行数である 1が、返されます同様に SIGN(SUM(ISBLANK(A3:C3)+0)) *ROW(A3) と、すると A3:C3の行数である 3が、返されますでも、此は実は使い難いものでして (1-ISBLANK(A1)*ISBLANK(B1)*ISBLANK(C1))*ROW( a1) 等が、実用的ですねつぎに、2、ですが、 A1等としたセル位置の指定を例えば、 A1:A999と、セル範囲指定にします具体的には (1-ISBLANK(A1:A999)*ISBLANK(B1:A999)*ISBLANK(C1:A999))*ROW( a1:A999) しかし、此のままでは所々、 0が、挟まれますとても邪魔、なので空白セルは 0ではなく、都合で、其のExcel環境最大行数より大きい数にしますまた、本来の参照先であるシート１の設定をし参照を固定して例えば、 (1-ISBLANK(シート１"!$A$1:$A$999)*ISBLANK(シート１"!$B$1:$B$999)*ISBLANK(シート１"!$C$1:$ C$999))*ROW($A$1:$A$999) +ISBLANK("シート１"!$A$1:$A$999)*ISBLANK($B$1:$B$999)*ISBLANK("シート１"!$C$1:$C$999)*2^25 と、してみます此を昇順にSMALL関数で、並べ直し同時に空白でない行分取り出せばリスト化できますですが、此の、「空白でない行分」て未だ、説明してないですね (1-ISBLANK("シート１"!$A$1:$A$999)*ISBLANK("シート１"!$B$1:$A$999)*ISBLANK("シート１"!$C$1:$A$999)) 此の式で空白行は0 空白でない行は1 な、訳ですから此を総和すれば、判りますね今回は ROW(INDIRECT("A1:A"&SUM((1-ISBLANK("シート１"!$A$1:$A$999)*ISBLANK("シート１"!$B$1:$B$999)*ISBLANK("シート１"!$C$1:$C$999)))) … と、したい所ですが、実は、Excelでは SUM関数に、癖があり誤動作する可能性が、ありますので、 SUMを、SUMPRODUCTに、差し替えます結果のリストを得る式ですが SMALL(INDEX((1-ISBLANK("シート１"!$A$1:$A$999)*ISBLANK("シート１"!$B$1: $B$999)*ISBLANK("シート１"!$C$1:$C$999))*ROW($A$1:$A$999) +ISBLANK("シート１"!A$1:$A$999)*ISBLANK("シート１"!$B$1:$B$999)*ISBLANK("シート１"!$C$1:$C$999)*2^25,,,),ROW(INDIRECT("A1:A"&SUMPRODUCT((1-ISBLANK("シート１"$A$1:$A$999)*ISBLANK("シート１"!$B$1:$B$999)*ISBLANK("シート１"!$C$1:$C$999))))) と、します 3、ですが、 OFFSETを遣うと良いと、思います先程の式を、少し変形して OFFSET("シート１"!$A$1, SMALL(INDEX((1-ISBLANK(A1:A999)*ISBLANK(B1:B999)*ISBLANK(C1:C999))*ROW( A1:A999) +ISBLANK(A1:A999)*ISBLANK(B1:B999)*ISBLANK(C1:C999)*2^25,,,),ROW(A1))-1, 0,1,1) エラー処理を加えて IFERROR( OFFSET("シート１"!$A$1, SMALL(INDEX((1-ISBLANK(A1:A999)*ISBLANK(B1:B999)*ISBLANK(C1:C999))*ROW( A1:A999) +ISBLANK(A1:A999)*ISBLANK(B1:B999)*ISBLANK(C1:C999)*2^25,,,),ROW(A1))-1, 0,1,1), "") ですねところで、 NOT(ISBLANK((セル範囲))*ROW(同セル範囲)+NOT(ISBLANK((セル範囲))*COLUMN(同セル範囲)/1000000 を、芯として式を、組み立てるともっと、高度な事が出来ますさて、此処からは、余談ですがエクセルが其のリレーショナルな真価を用いられずただのテキストエディタ的に遣われているのを、見るにつけ「あはれ」さが、目に余ります。（※注：哀れ、ではなく　あはれ）私は、有的なリレーショナルをアクセス程の手間要らずで比較的小規模なデータに手軽に遣えてこそ其の価値があると、考えます。 VBAにする位ならアクセスでクエリからレポートを出させれば良いのでは？… んー言い過ぎですね

ログインすると、全ての回答が全文表示されます。

imogasi
ベストアンサー率27% (4737/17070)

2016/12/29 20:09 回答No.2

エクセルと言えば関数だが、フィルタ結果の、可視セルを対象に関数で処理することはできないと思う。知らないのだろうが、むつかしい問題に踏み込んだのではないか。ーー関数でどうしてもやりたいなら、フィルターと表現せず、フィルタ条件と同じ条件で抜出し、抜出結果のシートのデータで考えることになろう。ーーエクセルシートのデータを、条件をかけて抜き出すのは、式が複雑になる。エクセルには不向きなタイプであることを知ってますか。Ｇｏｏｇｌｅで「エクセル関数で抜き出し」で照会 https://oshiete.goo.ne.jp/qa/3200952.ｈｔｍｌなど時々出る質問。私は方法として、関数にこだわるのはよくないと思う。ーー例データ　質問と違う例だがＡ１：Ｂ９項目１項目２あ aa い bb き cc　　＜－－ここがフィルタの結果の第1行データになるう dd え aa か aa き cc く cc Ｂ列の「cc」でフィルターー結果見た目　Ｓｈｅｅｔ２のＡ１：Ｂ４項目１項目２き cc き cc く cc ーーこれをＶＢＡで処理して Sub test01() Set Rng = Worksheets("Sheet1").Range("A1:b20") Rng.AutoFilter _ Field:=2, _ Criteria1:="=" & "cc" Rng.SpecialCells(xlCellTypeVisible).Copy Worksheets("Sheet2").Activate Range("A1").Select ActiveSheet.Paste MsgBox Worksheets("Sheet2").Range("a1").Cells(2, 1) End Sub フィルタ結果の可視セルのコピーをＳｈｅｅｔ２に張り付けている。そしてWorksheets("Sheet2").Range("a1").Cells(2, 1) で２行目第1列をCells(2, 1)をＭｓｇｂｏｘで表示している。結果は「き」ーー操作で考えるとすると、Ｓｈｅｅｔ１でフィルタ結果である可視セルをコピーする。やり方は、ジャンプーセル選択ー可視セルーコピーー別シートのセル選択ー貼り付けここで＞例えばA列の２行目の文字を、選択する。関数でモテ来るなら＝Ｓｈｅｅｔ２！Ａ２のようになる。

ログインすると、全ての回答が全文表示されます。