データのあるシートから、一定の条件にあうデータを当初から用意した作業用シート抜き出してきた上で、抜き出したシートの1つの列にあるデータ集から重複のないデータを抜き出すため、advancedfilterを使用しています。
別のサブルーチンを作成して、同一作業用シートを使い回す形で上記の作業を実行すると、表題のみコピーしてデータをコピーしなくなる現象が生じました。
作業用シートを削除して、新たにシートを挿入して作業用シートと名前を付けて、advancedfilterを実行すると、正常に機能しました。
このような現象がおきる理由をご教示願います。
この現象を避けるには、作業用シートをサブルーチンごとに挿入・削除を繰り返す必要が生じ、処理スピードが落ちると予想されます。
よき、アドバイスがあればよろしくお願いします。
Sub フィルター()
Dim rows As Double
'重複を削除した番号リスト作成
With Worksheets("作業用")
rows = .Range("b65536").End(xlUp).Row
.Range(.Cells(6, 3), .Cells(rows, 3)).AdvancedFilter Action:=xlFilterCopy, _
copytorange:=.Range("N6"), unique:=True
End With
End Sub
No.1ベストアンサー
- 回答日時:
直接の回答ではありませんが、
VisualBasicEditorから、
Application.ScreenUpdating = False
に設定してステップ実行し、
実際に動いているところを見てデバックしてみると
すぐ問題点が判明するかもしれません。
関係ないかもしれませんが、一つ気になる点として、
dim Rows as Double
の変数名は、エクセルが混乱してよろしくない気がしますので、
dim lRow as Long
などのほうが良い気がします。
ご教示ありがとうございます。
重複データなしのデータを抽出するためadvancedfilterを実行する際にCriteriaを指定しないでコードを実行するとVBAが自動的にシート上のセルにCriteriaという名前をつけており、そのCriteriaが残ることが問題なことが分かりました。
このCriteriaという名前を削除するコードを加えたところ、正常に機能するようになりました。
このCriteriaという名前が自動的に作成される現象については、別に質問をしてみたいと思っています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAで、指定したシートに...
-
VBA セルの値と同じ名前のシー...
-
エクセルVBA:表の内容を担当者...
-
該当するデータを書式設定ごと...
-
エクセルのワークシートが重く...
-
Excelマクロで毎月のデータ一覧...
-
エクセル マクロを使って日々...
-
IF, ISNUMBER, INDIRECTの組み...
-
VBAのoffsetの動き方について教...
-
【エクセルVBA】処理速度を...
-
Excel ハイパーリンク先のセル...
-
Excel 複数のシートからグラフ...
-
エクセルで別シートから一つの...
-
Excelの中央値の複数条件について
-
Excelで数値→文字列変換で指数...
-
テキストボックス内の文字のふ...
-
Excelで行ごとコピー、同じ行を...
-
Excelの関数について、特定の文...
-
エクセルでグラフタイトルが折...
-
エクセル
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA セルの値と同じ名前のシー...
-
Excelの中央値の複数条件について
-
エクセルで入力シートから別シ...
-
Excel 複数のシートからグラフ...
-
ExcelVBAで、指定したシートに...
-
Excel ハイパーリンク先のセル...
-
エクセルのワークシートが重く...
-
エクセルで入力→日付を自動判別...
-
エクセル シフト勤務表から、...
-
エクセルVBA:表の内容を担当者...
-
質問:特定文字列から空白行ま...
-
指定した日付の範囲内でデータ...
-
【Excel】VLOOKUP関数で複数の...
-
EXCEL VBA 一致しないデータの...
-
エクセルについて質問です 日付...
-
IF, ISNUMBER, INDIRECTの組み...
-
エクセル マクロを使って日々...
-
VBAのoffsetの動き方について教...
-
VBAでシート名をセルから取得し...
-
エクセル 毎日更新する表のデ...
おすすめ情報