Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12064 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【12565】改行および印刷設定 BSE(BebySE) 04/4/7(水) 17:41 質問
【12592】Re:改行および印刷設定 Jaka 04/4/8(木) 15:21 回答
【12565】改行および印刷設定
質問  BSE(BebySE)  - 04/4/7(水) 17:41 -
引用なし
パスワード
   質問です。
　　Ａ列　　Ｂ列
1　　001　　 280
2　　001　　 260
3　　001　　 180
4　　002　　 230
5　　002　　 210

上記のSheetで、まずＡ列は部門ごとに改行、
次にＢ列は200以下の数値は印刷範囲から
削除するというプログラムを作成したいのですが、
どのように作成したらよいのでしょうか。
（Ａ列の処理は出来ました。）
お手数ですが教えていただけないでしょうか。
【12592】Re:改行および印刷設定
回答  Jaka  - 04/4/8(木) 15:21 -
引用なし
パスワード
   こんにちは。

オートフィルタで良いと思いますけど．．．。
オートフィルタだから１行目空きが必要なので、タイトルか何かにして埋めてください。

マクロ記録だと
Range("B1").AutoFilter Field:=2, Criteria1:=">=200", Operator:=xlAnd
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12064 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free