Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12100 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【12362】見出し項目をのぞいてコピー SF 04/4/1(木) 0:54 質問
【12363】Re:見出し項目をのぞいてコピー IROC 04/4/1(木) 9:28 回答
【12364】Re:見出し項目をのぞいてコピー IROC 04/4/1(木) 9:29 回答
【12369】Re:見出し項目をのぞいてコピー Jaka 04/4/1(木) 13:08 回答
【12390】Re:見出し項目をのぞいてコピー SF 04/4/2(金) 2:53 お礼
【12362】見出し項目をのぞいてコピー
質問  SF  - 04/4/1(木) 0:54 -
引用なし
パスワード
   　　品名　　　個数　　　金額
1　りんご　　　1　　　　500
2　バナナ　　　2　　　　300
3　りんご　　　4　　　　2000
4　バナナ　　　2　　　　300

というデータを「りんご」でオートフィルタすると
　　品名　　　個数　　　金額
1　りんご　　　1　　　　500
3　りんご　　　4　　　　2000

となりますが、これを別のブックに見出し項目をのぞいたデータ部分のみ
コピーしようと考えています。

行番号が1と3となってしまい、うまくいかないので
　　　　With Range("a1:c5")
　　　　　　.AutoFilter field:=1, Criteria1:=りんご
　　　　　　.SpecialCells(xlCellTypeVisible).Copy
　　　　End With
とやってみたのですが、これだと見出し項目もコピー対象になっちゃうんですよね。
上手い方法はないでしょうか？
初歩的な質問で申し訳ありません・・・
【12363】Re:見出し項目をのぞいてコピー
回答  IROC  - 04/4/1(木) 9:28 -
引用なし
パスワード
   offset(1) を使うか、
コピー後に　行削除　しては如何でしょうか？
【12364】Re:見出し項目をのぞいてコピー
回答  IROC  - 04/4/1(木) 9:29 -
引用なし
パスワード
   サンプルが、ヘルプにありました。


CurrentRegion プロパティの使用例

次の使用例はシート 1 でアクティブ セル領域を選択します。

Worksheets("Sheet1").Activate
ActiveCell.CurrentRegion.Select
次の使用例は、シート 1 で見出し行のあるリストから、見出し行は選択せずに、データ部分だけを選択します。この使用例を実行する前に、リストのいずれかのセルをアクティブにしておく必要があります。

Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _
　　tbl.Columns.Count).Select
【12369】Re:見出し項目をのぞいてコピー
回答  Jaka  - 04/4/1(木) 13:08 -
引用なし
パスワード
   >行番号が1と3となってしまい、うまくいかないので
>　　　　With Range("a1:c5")
>　　　　　　.AutoFilter field:=1, Criteria1:=りんご
>　　　　　　.SpecialCells(xlCellTypeVisible).Copy
>　　　　End With
>とやってみたのですが、これだと見出し項目もコピー対象になっちゃうんですよね。

こんにちは。

見出しを除いたデータ部を範囲としたら。

Range("a1:c5").AutoFilter field:=1, Criteria1:=りんご
Range("a2:c5").SpecialCells(xlCellTypeVisible).Copy
【12390】Re:見出し項目をのぞいてコピー
お礼  SF  - 04/4/2(金) 2:53 -
引用なし
パスワード
   IROCさん、jakaさん、どうもありがとうございました！

おかげさまで出来ました。
考え方によって色々方法があるんですね。
勉強になりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12100 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free