Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10886 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【19396】抽出したデータに連番を付ける mickeypapa 04/10/30(土) 19:45 質問[未読]
【19397】Re:抽出したデータに連番を付ける Kein 04/10/30(土) 20:27 回答[未読]
【19398】Re:抽出したデータに連番を付ける mickeypapa 04/10/30(土) 21:28 お礼[未読]
【19396】抽出したデータに連番を付ける
質問  mickeypapa WEB  - 04/10/30(土) 19:45 -
引用なし
パスワード
   こんにちは、また皆様のお力を
拝借したいと存じます。よろしくお願いいたします。

データの入ったシートから
Sheets("運送DATA").Columns("A:R").AdvancedFilter _
　 Action:=xlFilterCopy, _
　　 CriteriaRange:=Sheets("日報").Range("A5:R6"), _
　　　 CopyToRange:=Sheets("日報").Range("B9:R9"), _
　　　　 Unique:=False
上記のようにデータを抽出しておりますが、
Range("A10")からA列に
　 A B
10 1
11 2
12 3
と、抽出したデータ分に連番を付けたいのですが、

If Range("B10") <> Empty Then

そこまで考えた先が浮かびません。
何卒、お知恵をお貸し下さい。
よろしくお願いいたします。
【19397】Re:抽出したデータに連番を付ける
回答  Kein  - 04/10/30(土) 20:27 -
引用なし
パスワード
   With Range("A10")
　 .Value = 1
　 .AutoFill Range("A10", Range("B65536").End(xlUp).Offset(, -1)), _
　 xlLinearTrend
End With

で、どうかな ?
【19398】Re:抽出したデータに連番を付ける
お礼  mickeypapa WEB  - 04/10/30(土) 21:28 -
引用なし
パスワード
   ▼Kein さん：
有り難うございます。きっちりと連番を付けることが出来ました。
これで、完成までまた一歩近づくことが出来ました。
今後とも宜しくお願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10886 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free