Excel VBA質問箱 IV

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

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


75449 / 76733 ←次へ | 前へ→

【5720】Re:分類別の表を作りたいのですが
お礼  mumumu  - 03/5/28(水) 16:45 -

引用なし
パスワード
   ▼Jaka さん:
ありがとうございます。

ただ、残念なことに先ほどのコードをそのままコピペしてみたところ
やはり、A列3行目に"番号"と表示されるだけでした><

自分なりに試してみたところ
次のようにしたら、うまく行きました。
Sub jiji()
  Sheets("Sheet2").Select
  Range("A3:E1000").Select
  Selection.ClearContents
  'ここまでの分は、直前の表示を消すために付け足しました。

  Sheets("Sheet1").Select
  re = Cells(Rows.Count, "E").End(xlUp).Row
  ce = Cells(3, Columns.Count).End(xlToLeft).Column
  Application.ScreenUpdating = False
  Range("E2:E" & re).AutoFilter Field:=1, Criteria1:=Sheets("Sheet2").Range("G1")
  Range("A2", Cells(re, ce)).SpecialCells(xlCellTypeVisible).Copy Sheets("Sheet2").Range("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 お礼

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