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