Excel VBA質問箱 IV

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

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


12099 / 13645 ツリー ←次へ | 前へ→

【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さん、どうもありがとうございました!

おかげさまで出来ました。
考え方によって色々方法があるんですね。
勉強になりました。

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