Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


62782 / 76732 ←次へ | 前へ→

【18551】Re:オートフィルタについて
質問  xyz  - 04/9/29(水) 13:28 -

引用なし
パスワード
   ありがとうございます。
ご教授の内容を現在のものに置換えました。
内容については、A列〜F列の項目以外の全てのデータをコピーし、
作業済シートへ貼り付けるというものです。抽出条件は、
100.0%なんですが、うまく100.0%が抽出できず、バラバラに
データが貼り付けられます。どうしてでしょう?
なお、Range("A4:F6").Select については、A列〜F列までの
6行目までが項目になっており、セルによっては結合をしている
関係でこのようにしています。

また、このデータがあるシート名を仮に「データ1」として場合、
「データ10」までの合計10個のシートについて同様の処理を行い、
準じ作業済シートへ貼り付けていきたいのです。
シートの選択については、WORKSHEETS(”データ1”).SELECT で
指定すればいいのでしょうが、これを簡単に作る方法と、
コピーしたデータを作業済シートへ貼り付ける際に、例えば
データ1分を貼り付けたら、その下にデータ2を、さらにその下に
データ3を、というふうにやりたいのですが、私が考えると
ものすごく複雑な内容になってしまいます。簡単な方法を
ご教授いただけたら幸いです。宜しくお願いします。

  
  Dim MyR As Range
  Set MyR = Range("A7", Range("F65536").End(xlUp))
  Range("A4:F6").Select
  Selection.AutoFilter Field:=6, Criteria1:="100.0%"
  On Error Resume Next
  MyR.Copy Sheets("作業済").Range("A1")
  ActiveSheet.AutoFilterMode = False
  Set MyR = Nothin

▼Kein さん:
>仮にC列として
>
>Dim MyR As Range
>
>Set MyR = Range("C2", Range("C65536").End(xlUp))
>Range("C:C").AutoFilter 1, "検索値"
>On Error Resume Next
>MyR.SpecialCells(12).Copy Sheets("Sheet2").Range("A1")
>ActiveSheet.AutoFilterMode = False
>Set MyR = Nothing
>
>のようにすれば良いでしょう。

0 hits

【18544】オートフィルタについて xyz 04/9/29(水) 10:46 質問
【18545】Re:オートフィルタについて Kein 04/9/29(水) 11:24 回答
【18551】Re:オートフィルタについて xyz 04/9/29(水) 13:28 質問
【18553】Re:オートフィルタについて Kein 04/9/29(水) 14:45 発言
【18555】Re:オートフィルタについて xyz 04/9/29(水) 15:14 質問
【18557】Re:オートフィルタについて Kein 04/9/29(水) 15:38 回答
【18565】Re:オートフィルタについて xyz 04/9/29(水) 21:02 質問
【18581】Re:オートフィルタについて Kein 04/9/30(木) 8:42 回答
【18673】Re:オートフィルタについて xyz 04/10/5(火) 10:37 質問
【18674】Re:オートフィルタについて Kein 04/10/5(火) 11:08 回答
【18676】Re:オートフィルタについて xyz 04/10/5(火) 15:18 質問
【18687】Re:オートフィルタについて Kein 04/10/5(火) 17:46 回答
【18725】Re:オートフィルタについて xyz 04/10/7(木) 15:44 質問
【18745】Re:オートフィルタについて Kein 04/10/8(金) 10:28 回答
【18877】Re:オートフィルタについて xyz 04/10/15(金) 13:09 お礼

62782 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free