Excel VBA質問箱 IV

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

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


75458 / 76738 ←次へ | 前へ→

【5716】Re:分類別の表を作りたいのですが
質問  mumumu  - 03/5/28(水) 15:26 -

引用なし
パスワード
   ▼Jaka さん:
>こんにちは。
>
>ここ応用できませんか?
>[#1268]

早速の回答ありがとうございました。
教えていただいた、スレッドを見て自分なりに直してみたのですが
どうもうまく行きません。
どこがまちがっているのか、教えていただけないでしょうか?
記述の意味がよくわかっていないので、セルの番地等を修正するだけで
やっています。

最初に私が載せたデータ表の分類という列をA列に移動して
Sheet2のA1に選択したい分類記号を入力するものとして、試してみました。

表はSheet1、Sheet2共に2行目に「分類記号」「年月」等の項目が入り
データは3行目からという形になっています。

以下Jakaさんのコードを私が書き直したものです。

Sub jiji()
  Sheets("Sheet1").Select
  re = Cells(Rows.Count, "A").End(xlUp).Row
  ce = Cells(1, Columns.Count).End(xlToLeft).Column
  Application.ScreenUpdating = False
  Range("A3:A" & re).AutoFilter Field:=1, Criteria1:=Sheets("Sheet2").Range("A1")
  Range("A3", Cells(re, ce)).SpecialCells(xlCellTypeVisible).Copy Sheets("Sheet2").Range("A3")
  Range("A" & re).AutoFilter
  Application.ScreenUpdating = True
End Sub

これを実行すると
A3に"A"と記述され
A4以降に入力した分類記号がデータの数だけ記述されます。
またB列以降のデータがコピーされてきません。(>_<。)

どうか、よろしくお願いいたします。
2 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 お礼

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