で、そのセル範囲の行数を数えます。（例　Range("B3:D5").Rows.Count) 以下のSubプロシージャが参考になるはずです。 Excel VBAで、可視セルの判定、コピーと貼り付けをする方法について、ご紹介します。使うVBA関数は、HiddenとSpecialCellsで、あと、オートフィルタも使います。可視セルをコピーして貼り付けする場合、オートフィルタを使うと簡単になります。 商品名が「りんご」のデータを抽出します。 データ範囲はExcelに自動で認識してもらおうと考え、A1セルを指定してオートフィルタをかけま … VBAの「Findメソッド」は、エクセルで「Ctrl+F」（検索）をするのと同じ動きをします。 そして、 「Ctrl＋F」（検索）は、オートフィルタで非表示になっているセルは検索対象外となります 。 ですから、VBAの「Findメソッド」を使う操作も、オートフィルタの影響を受けてしまうのです。 Range（”B3:D5").Rows(Range("B3:D5").Rows.Count), Excel：ある列にキーワードが出たら、その行の値を次のキーワードの手前までフィルしたい, 回答 まずは、セルA1を含む全体「Range("A1").CurrentRegion」を、1行下にずらしてやります。 ただ、これでは関係のない、表の下の1行が含まれてしまいます。オートフィルタで扱う表では、一般的にここは何も表示されていないはずです。 「すでにオートフィルターが掛かっている。」 非表示行やオートフィルタの不可視行に、最終行が存在する … このループの中で，18行目のようにセルに対する処理を行います。 なお，このページの画像キャプチャはMac OSX版のExcel2011を用いて作成しています。Mac Excel 2011のVBA機能はWindows版との互換性がかなり低いですが，この程度であれば十分動くようです。 Dim mySh As WorksheetSet mySh = Sheet("Sheet1")Debug.Print mySh.Cells(mySh.Rows.Count,1).End(xlup).RowでデータのあるA列の最終行を取得していますが、この場合、フィルターがかかっていると実際のデータのある最終行でなくて見え Rangeの使い方・書き方について、データ最終行まで選択する場合を例に説明します、Rangeの書き方なので、RangeオブジェクトではなくRangeプロパティの解説という事になります。最近続けざまに、以下のようなコードを見かけました。Range("A2",Range("A2").End(xlDown)).Selec… 使用済みセルの範囲から最終行と最終列を探索(UsedRangeプロパティ) 4.2. Excel VBAで見えているセル（可視セル）を、For Each～Nextループで処理するには、どのようなコードを書けばいいのかを探していた方による検索です。 可視セルをFor Each～Nextループで処理するサンプル. 1 / クリップ Range("A1").CurrentRegion（A1セルを含むアクティブな表の意）とすれば、 データを処理する際に、オートフィルタで見えてる行だけを対象に処理を行いたい場合があるんです。 このようなデータはデータベースで処理を行う方が効率がいいのですが... それはさておき、ユーザーがフィルタした後にと言うこともありますからね。, Excel で 表示されているセルだけを対象にしたい場合、SpecialCells(xlCellTypeVisible) を使用します。 オートフィルタで絞り込まれた範囲を対象に表示されているセルを取得するコードは以下のようになります。, ただ、これをそのまま使用すると行単位で処理を行いたい場合には、1行につき対象列数と同じ回数だけ引っかかりますので、この挙動への対応を検討する必要があります。 列数分引っかかるのは列が複数あるからですので、1列であれば1回で問題はないはずです。 なので、対象の列を1列目に限定します。限定すると以下のようになります。, 上記の状態では対象は各セルですので、列全体を処理したいときには行番号を取得したほうが、セル範囲指定などの場面で有利です。その行番号の取得には Row メンバを使用します。, 以下のコメントは、その投稿者が所有するものでサイト管理者はコメントに関する責任を負いません。. 1, 回答 Excel VBAで、可視セルや空白セルなどの、条件に一致したセル範囲を取得する方法について、ご紹介します。使うVBA関数は、SpecialCellsです。SpecialCellsを使えば、条件付き書式やデータ入力規則などの、設定漏れを確認することができます。 その行数は、表の上から数えたら、最終行は、「数えた行数」番目になります。 excelでデータを抽出することは、通常のexcelでもオートフィルタ機能で簡単にデータを抽出させる事が出来ますが、vbaを使ってオートフィルタを使う場合は、プログラムに組み込む事ができるので、ある処理結果を条件にすることにより、抽出するデータを表示する事も出来ます。 2 / クリップ フィルタの抽出結果に対してsubtotalで連番を振ってあげると、抽出結果の最終行に余計な1行が含まれてしまいます。そこで、抽出結果も正しく、かつ連番も振ることができるコツをご紹介します。 0, 回答 オートフィルタを無効化にした後、再度同じ条件で絞り込み処理を行う方法がわからず ご質問させていただきました。, teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。, 評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。, 上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。, そもそも、「表の最終行番号」が分かったとして、 0, 【募集】 1 / クリップ 冒頭でも書きましたが、最終行を取得するには、様々な方法があり、状況により差し替えたい場合も出てきます。 そのため、最終行を取得するロジックは、functionとして独立させてしまいましょう。 function化することで、最終行を取得する方法を簡単に変更できるようになります。 変更したいときには、このfunctionの内部だけを変更すれば済むようになるのです。 オートフィルタでデータ抽出のあれこれを知りたい場合は、こちらです。 ... Trueを指定すると、クリップボードの範囲内の空白セルが貼り付け先の範囲に貼り付けられません。 既定値は False です。 Transpose: Trueを指定すると、行と列が貼り付けられます。 原因. いつもお世話になります。WIN98-EXCEL2000での作業です。VBAでオートフィルタをかけるところまでは出来たのですが、A列：Q列までの表のうち、A2～K列の最終行までをコピーしたい場合のコマンドを教えてください。 ということが前提条件で、「オートフィルターが掛かっているセル範囲」を 最終行の値を取得する方法をご教授いただきたいです。, 上記のようにデータ表示されている場合、以下の処理にて オートフィルタを解除します。 ね？うまくいくでしょ。可視セルなんて選択しなくても、Excelは「オートフィルタで絞り込んだ結果"全体"に対して何かの操作をすると、"表示されているセル"だけを対象に … 表示・非表示の状態にとらわれず、表の範囲を取得できますので、 ので、Rowsプロパティーの引数に数えた数を指定してやれば、「最終行」を指し示すことになります。 今回はExcel VBAマクロ。 For Each 可視セルにループ処理をするマクロ を示した。 For Each は指定したセル範囲に対して 処理を実行する場合に使う。 なので範囲に可視セルを指定して 処理することもできる。 LibreOffice Basicで使う場合は コードの先頭行に ワークシートの最終セル（最終行、最終列）を取得する… vbaをはじめた人は誰しも最初に引っかかる問題ではありますが、幸いにもインターネットで検索するといくつもの解決法が見つかります。 Excelワークシートにおける表の最終行の取得は、VBAの必須技術になります、エクセルVBAにおける最終行取得の必要性 エクセルは表計算ソフトです、つまり縦横の表を扱います、データは横に項目があり、縦に項目に対するデータが入っている事が一般的です。 オートフィルタでA列の絞り込みを行い、以下の状態で表示されたとします。, この場合でもデータの最終行として3行目を取得したい場合、 3 / クリップ （オートフィルターが掛かっていなければエラーになるので、 VBAでオートフィルタが有効になっていた場合でも、 エクセルシートの最終行（3行目）を取得できるかと思います。, 今回ご質問させて頂いた内容としては、 VBAでオートフィルタが有効になっていた場合でも、最終行の値を取得する方法をご教授いただきたいです。 <標準のデータ表示> AB1AAA2BBB3CCC上記のようにデータ表示されている場合、以下の処理にてエクセルシートの最終行（3行目）を取得できるかと思います。 Range("A" 'A1:A10の範囲内の可視セル範囲を選択する例です。 Sub 範囲内の可視セル範囲() Range("A1:A10").SpecialCells(xlCellTypeVisible).Select End Sub 知りたいならば、, このようにして、知ることも可能です。 オートフィルタでデータを抽出する 商品名でデータを抽出する. Getシートの最終行 Get指定の列の最終行 Getセル範囲の最終行 Getセル範囲の入力最終行 こう書いていました。 「VBAなんか外人どころか自分しか見ないんだから、変数と関数は日本語でおk」 という本ブログのテーマに沿って書いています。 読みやすいでしょ？ 1, 回答 オートフィルタの抽出中は最終行を誤認します。 上記の注意事項に記載したとおりで、どの方法でもオートフィルタの抽出中は、表示行の中で動作するので実際の最終行にならない場合があります。 その値をどのように使うつもりですか？, このように、 どのように実行すればよろしいでしょうか。, 処理の前にオートフィルタを無効にする方法も検討しましたが、 どうしても行番号をという事であれば、, また、 teratailを一緒に作りたいエンジニア. 実務で Excel VBA を使っていると、ある条件でオートフィルタをかけ、そこで抽出されたデータだけを別のシート等にコピーしたい、ということが結構ある。（当然、オートフィルタをかける対象の1行目はタイトル行（Accessで言えばフィールド名）である。 エクセルマクロで、オートフィルタの範囲を設定するVBAコードをご紹介します。このページのマクロコードは、コピペで使えます。せひ、お試しください。フィルタ範囲設定（Range指定）以下のExcelVBAを実行すると、オートフィルタを自動で設定 合わせて、エラーの回避処理を書いておいた方がよいでしょう）, まず、セル範囲を取得します。 テーブル範囲から最終行と最終列を探索(CurrentRegionプロパティ) 5. 取り立てて最終行番号だけを、取得する必要性があまりありません。 本サイトで好評な記事がパーツ化です。パーツ化する事でVBAの開発は楽になりますが、オートフィルター(AutoFilter)が原因で、パーツが利用できない場合があります。パーツ化とはExcelVBAマクロ初級者からの脱却が、処理のパーツ化(プ Excel で 表示されているセルだけを対象にしたい場合、SpecialCells(xlCellTypeVisible) を使用します。 オートフィルタで絞り込まれた範囲を対象に表示されているセルを取得するコードは以下のようになります。.AutoFilter.Range.SpecialCells(xlCellTypeVisible)