| |
▼UO3 さん 回答ありがとうございます。
実際に処理したいデータで試したところ、エラーが出てしまい、対処方法に気づきのに半日掛かってしまいました。
AdvancedFilterの使い方がまったく分かっていなかったので、バージョンの違いで動かないのかなと思い、色々試したところ、まったく別の理由でした。
以下一部修正したので、今後参考にするためにも載せておきます。
（当然U03殿のミスという意味ではありませんので、よろしくお願い致します）
'この値に対するデータを抽出
⇒ここを一部変更 .Range(Columns(1), Columns(x)).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Cells(1, w + 1).Resize(2), _
CopyToRange:=.Cells(1, w + 3).Resize(, x - 1), Unique:=False
（独り言）
私の技量では、手作業の操作をマクロ記録して、それをお化粧直しするでは、まったく教えていただいたようなコードは書けません。
繰り返しのコードやデータ領域確保、フィルターのどれをとっても教えて頂いたことを基本として、今後自分のものにしていくレベルです。
また、質問することがあるでしょうが、皆様よろしくご指導ください。
|
|
ドカ
- 12/3/14(水) 8:06 -
