[[20031007113625]]　『条件に合う行を抜き出し、別のシートへ』（かるら）　ページの最後に飛ぶ

『条件に合う行を抜き出し、別のシートへ』（かるら）

　シート1のリストから条件に合う行だけ抜き出し、シート２へ自動で反映させる方法
　を教えてください。（シート1へ追加があればシート２へも反映される状態）

 ＜シート1＞
 りんご　青森　　北海道
 みかん　愛媛　　松山
 りんご　岐阜　　奈良

 ＜シート2＞
 りんご　青森　　北海道
 りんご　岐阜　　奈良

　よろしくお願い致します。

 >条件に合う行
  の定義は何でしょうか？
  (INA)

　すみませんでした。「りんご」です。
　よろしくお願い致します。

 INAさん、お留守のようなので横から失礼します。

 オートフィルタを使えば＜シート1＞だけで「りんご」のみをを抽出できますが、、、
 ＜シート2＞を使いたいという事でしたら、前提条件として

 ＜Sheet1＞
 	A	   B	  C	   D
 2行目		りんご	青森	北海道
 3行目		みかん	愛媛	松山
 4行目		りんご	岐阜	奈良

 りんご　の前に１列挿入して
 A2 に式を  =IF(B2="りんご",MAX(A$1:A1)+1,"")　 で下にコピー（みかん抽出なら　"みかん"　に）

 ＜Sheet2＞
 	A	   B	  C	   D
 2行目		りんご	青森	北海道
 3行目		りんご	岐阜	奈良

 A2 に式を　 =IF(MAX(Sheet1!A$2:A$10)<MAX(A$1:A1)+1,"",MAX(A$1:A1)+1)
 B2に　　　　 =IF($A2="","",VLOOKUP($A2,Sheet1!$A$2:$D$10,2,0))
 C2に　　　　 =IF($A2="","",VLOOKUP($A2,Sheet1!$A$2:$D$10,3,0))
 D2に　　　　 =IF($A2="","",VLOOKUP($A2,Sheet1!$A$2:$D$10,4,0))

 ２行目に式を全部入れて下にコピー　以上です。
 ポイントは列挿入と２行目から始める事。式の文字と表中の文字を一致させる（スペース等）
 $ の付け方を間違えない事、指定範囲の $10 は適時変更、　です。

 この後、正統派の回答が出てくると思いますから今暫くお待ち下さい。　　　（jun53）

 私はVBAでないとお手上げですので、お後はよろしくお願い致します。　m(_ _)m
  (INA)

 正統派ではありませんが私も考えて見ました。詳細が分からないので自分なりにルールをつくりました。
範囲はA1:C100でB、C列の県名に重複県がないものとしています。ですからそのルールから外れていたら
真剣に見ないで下さい。
Sheet2のA1に=IF(COUNTIF(Sheet1!$A$1:$A$100,"りんご")<ROW(),"","りんご")としてA100までコピーします。
Sheet2のB1に=IF(A1="","",VLOOKUP(A1,Sheet1!A1:B7,2,))
Sheet2のB2に
 =IF(A2="","",VLOOKUP(A2,INDIRECT(ADDRESS(MATCH(B1,Sheet1!$B$1:$B$100,0)+1,1,,,"Sheet1")&":B100"),2,0))
としてB100までコピーこんな感じで出来ると思いますが、あくまでも私のルールで作ったもの
です。余り役には立たないかもしれませんが・・・・・（ケン）

コメント返信：

[ 一覧(最新更新順) ]

[[20031007113625]] 『条件に合う行を抜き出し、別のシートへ』（かるら） ページの最後に飛ぶ

[[20031007113625]]　『条件に合う行を抜き出し、別のシートへ』（かるら）　ページの最後に飛ぶ