Excel VBA質問箱 IV

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

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


75451 / 76733 ←次へ | 前へ→

【5718】Re:分類別の表を作りたいのですが
回答  Jaka  - 03/5/28(水) 16:11 -

引用なし
パスワード
   Sub jiji()
  Sheets("Sheet1").Select
  re = Cells(Rows.Count, "E").End(xlUp).Row
  ce = Cells(1, Columns.Count).End(xlToLeft).Column
  Application.ScreenUpdating = False
  Range("E1:E" & re).AutoFilter Field:=1, Criteria1:=Sheets("Sheet2").Range("A1")
  '5列目をオートフィルタするから、E1:E
  Range("A2", Cells(re, ce)).SpecialCells(xlCellTypeVisible).Copy Sheets("Sheet2").Range("A3")
  'コピーするのはA2から表示されている部分。
  Range("E" & re).AutoFilter
  Application.ScreenUpdating = True
End Sub

0 hits

【5706】分類別の表を作りたいのですが mumumu 03/5/28(水) 13:29 質問
【5713】Re:分類別の表を作りたいのですが Jaka 03/5/28(水) 14:25 回答
【5716】Re:分類別の表を作りたいのですが mumumu 03/5/28(水) 15:26 質問
【5718】Re:分類別の表を作りたいのですが Jaka 03/5/28(水) 16:11 回答
【5720】Re:分類別の表を作りたいのですが mumumu 03/5/28(水) 16:45 お礼
【5741】すみませんでした。 Jaka 03/5/29(木) 11:53 発言
【5749】Re:すみませんでした。 mumumu 03/5/29(木) 13:23 お礼

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