Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

61947 / 76732

←次へ　｜　前へ→


	【19396】抽出したデータに連番を付ける

mickeypapa

- 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 そこまで考えた先が浮かびません。何卒、お知恵をお貸し下さい。よろしくお願いいたします。