エクセル【特定の文字が含まれる行を丸々別シートに抽出する方法】 添付画像を参照していただきたいのですが ある文字を含んだ行(列? )を丸ごと別シートに抽出する 方法を教えて下さい! なるべく簡単なやりかただと助かります。 お願いします 2人 が共感しています お示しの左の表がシート1のA列からG列までにあって1行目は項目名で2行目から下方にデータがあるとします。 難しい式を使いますとパソコンに負担がかかります。作業列を作って優しい式を使って対応するのがお勧めです。 例えばJ2セルには次の式を入力して下方にドラッグコピーします。 =IF(G2="長崎", MAX(J$1:J1)+1, "") シート2ではA1セルからG1セルにはシート1と同じ項目名を並べます。 A2セルには次の式を入力してG2セルまで横にドラッグコピーした後に下方にもドラッグコピーします。 =IF(ROW(A1)>MAX(Sheet1! $J:$J), "", INDEX(Sheet1! $A:$G, MATCH(ROW(A1), Sheet1! $J:$J, 0), COLUMN(A1))) シート1の作業列が目障りでしたらその列を選んで右クリックし「非表示」を選択すればよいでしょう。 1人 がナイス!しています シート2のA1セルに担当の名前を入力して瞬時に関連データを表示させるとしたらシート1のJ2セルには次の式を入力して下方にドラッグコピーします。 =IF(G2=Sheet2! A$1, MAX(J$1:J1)+1, "") その後にシート2のA3セルには先ほどの式を入力して操作をすればよいでしょう。 A1セルの担当者を変えることで瞬時に表が変わりますね。 ThanksImg 質問者からのお礼コメント このやり方で簡単にできました! わかりやすくて助かりました! ありがとうございます! お礼日時: 2015/12/4 19:35 その他の回答(2件) 1)Sheet1のI列を作業列にして、 2)I2=IF(H7=Sheet2! COUNTIF関数で特定の文字「で始まる/で終わる/を含む」セルを数える. $H$1, ROW(), "") 3)下にコピー【図-1】 4)Sheet2のH1に担当者を入力して、 5)B4=IFERROR(INDEX(Sheet1! B:B, SMALL(Sheet1! $I:$I, ROW(A1))), "") 6)右と下にコピー【図-2】 7)日付がシリアル値のため、マウスを右クリックして、「ショートカットメニュー」の「セルの書式設定」を選択して 8)「表示形式」→「ユーザー定義」にして「種類」に、 m"月"d"日";; と入力します【図-3】 ※日付の表示形式は適当なものにしてください(yyyy/mm/dd;;等) 9)日付が日付表示になります【図-4】 =IF(H7=Sheet2!
$H$1, ROW(), "") を入力したのですが 一番最初のセルはうまく数字がかえってきたのですが 2番目以降が全く数字がかえってきませんでした泣 ※担当者が該当する場合も何も表示されませんでした。 もうすこしトライしてみます泣 フィルタオプションで一発ですよ。 1.空いている箇所(A1とA2)にそれぞれ「担当」「長嶋」と入力 2.データを範囲選択し「データ」タブ-「並べ替えとフィルター」にある「詳細設定」をクリック 3.検索条件範囲にA1:A2を選択 4.抽出先を「指定した範囲」とし、抽出範囲のセル(1セルでOK)を選択し「OK」をクリック
Name = "NewSheet" 抽出データ出力用のシート作成して、ws2として扱うようにします。 そしてws2のシート名をNewSheetとします。 プログラム6|列番号として使用する変数kを設定 Dim k As Long k = 1 プログラム13で、抽出先のシート(ws2)に列データを書き出していきます。 このデータの書き出しを行うとき、列番号を指定するのですが、その初期値を1としています。 k=1としているのは、A列(列番号1)から書き出しを行うためです。 プログラム7|最終行の行番号をcmaxとして設定 Dim cmax As Long cmax = ws1. Count 変数cmaxをws1の最終行の行番号を取得する変数として設定します。 上記のws1の最終行を取得できます。 ただし「対象シート. UsedRange」で取得できるセル範囲は、対象シートで[Ctrl] + [End]のショートカットキーを実行したときに選択されるセルとなります。 この事例ではデータは16行目までしか入っていませんが、[Ctrl] + [End]のショートカットキーでE18を選択しています。 よって18行目まで処理を行うことになります。 intで検証してみます。 intでの検証結果 Debug. エクセルマクロVBA｜特定の文字列を含む列のみ別シート抽出. Print ws1. Count >>> 18 プログラム8|変数設定 Dim rng As Range Dim keyword As Variant 変数を設定しています。 プログラム9|対象データを列ごとに処理 Dim i As Long For i = 1 To ws1. Count '(中略) Next 対象データのシート(ws1)を列ごとに処理していきます。 上記のws1の最終列を取得できます。 Debug. Count >>> 6 UsedRangeの仕様上、6列目(F列)まで取得します。このときF列は空欄ですが、VBAの処理は実行されます。 しかし大きな影響はないため、特に問題なしとして進めています。 プログラム10|各列の範囲を取得 Set rng = ws1. Offset ( 0, i - 1) 対象データのシート(ws1)の各列の範囲をrngとして取得します。 以下のように記述しても同じ処理を実行できます Set rng = (cells(1, i), cells(cmax, i)) Rangeとoffsetを使った場合と、RangeとCellsを使った場合がありますが、どちらでも処理は実行されるので馴染みの方法を選択すればよいです。 プログラム11|プログラム2のキーワードを全て取得 For Each keyword In Split ( keywords, ", ") '(中略) Next プログラム2で入力したkeywordsを「, 」で区切って、繰り返し処理を行います。 ここでは「keywords=ID, 取引金額」なので、intで検証すると以下のようになります。 For Each keyword In Split ( keywords, ", ") Debug.
先日ご質問をいただいたので、過去の記事を見てみたら・・・なかった!
林試の森公園 更新日:2007年3月27日 ここは明治33年(1900年)に当時の農商務省林野整理局が「目黒試験苗圃」としてスタートし、その後「林業試験場」に名称を変更、林野庁の付属となり昭和53年まで使用されてきました。 そして、筑波研究学園都市の建設に伴い、移転した跡地を整備し、「目黒公園」の暫定開放期間を経て、平成元年6月1日に「都立林試の森公園」として生まれ変わり開園しました。 この公園は東西に700m、南北に250mと細長く、外周の園路を一周すると45分程で廻れます。また、この公園は品川百景にも選ばれています。 Copyright © Shinagawa City. All rights reserved.
アクセス ※地図を表示の際には、ブラウザやOSの最新版をご利用ください。 所在地 目黒区下目黒五丁目、品川区小山台二丁目 開園日 常時開園 ※サービスセンター及び各施設は年末年始は休業となります。 ※営業時間等はサービスセンターへお問い合わせ下さい。 入園料 無料 交通 東急目黒線・都営三田線・東京メトロ南北線「武蔵小山」徒歩10分 JR渋谷駅から東急バス(恵比寿経由)五反田行き(72系統)「林試の森入口」下車 徒歩1分 ※駐車場はありません 問合先 TEL 03-3792-3800 林試の森公園サービスセンター 〒142-0061 品川区小山台2-6-11
平成元年(1989)、林業・森林の研究機関「林業試験場」跡地に開園した都立公園。東西に700m、南北に250m、品川区と目黒区をまたぐ細長い公園で約45分で外周園路を1周できます。園内の巨木や珍しい樹木の大半は林業試験場時代からのもの。絶滅危惧種のハナガガシをはじめ、他の公園ではなかなか見られない国内・海外産の樹木が配植され、樹木観察が楽しめます。 デイキャンプ場やジャブジャブ池、出会いの広場、サービスセンター等があり、休日は親子連れやカップルなど多くの人々で賑わいます。春と秋開催の「林試の森フェスタ」は、コンサートやフリーマーケットなどが行われ2万人以上が来場。この他にも野外体験教室、樹木観察会、音楽会など年間を通じて数多くのイベントを実施しています。