[[20190319093402]]　『オートフィルター関連』（ナオじい）　ページの最後に飛ぶ

『オートフィルター関連』（ナオじい）

質問よろしくお願いします。
下記のコードについてお尋ねします。

    Application.ScreenUpdating = False
    Worksheets("Sheet2").Range("C1:H1000").ClearContents

    With Sheets("Sheet1").Range("C1")
        .AutoFilter Field:=6, Criteria1:=Array("0098", "0099", "0095", "0097"), Operator:=xlFilterValues
        .CurrentRegion.Copy Sheets("Sheet2").Range("C1")
    End With    
    Worksheets("Sheet1").AutoFilterMode = False     
    Application.ScreenUpdating = True
Sheet1のB列に文字が入ると正しく動きません。何故でしょうか？
よろしくお願いします。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 B1に何らかの文字が入るとC1からではなくB1からオートフィルタが掛かり
 B列から数えて6列目のG列で検索を掛けてしまいます。当然G列には検索対象の
 文字が入っていないので思ったような結果にはなりません。
 B1に文字を入れる場合は

 AutoFilter Field:=6
 ↓
 AutoFilter Field:=7

 .CurrentRegion.Copy
 ↓
 .CurrentRegion.Offset(, 1).Copy

 のように変更してみてください。
（bi） 2019/03/19(火) 10:08　修正10:17

bi様
ご説明に感謝いたします。
今後一列空けるようにして作ります。
（ナオじい） 2019/03/19(火) 14:06

コメント返信：

[ 一覧(最新更新順) ]

[[20190319093402]] 『オートフィルター関連』（ナオじい） ページの最後に飛ぶ

[[20190319093402]]　『オートフィルター関連』（ナオじい）　ページの最後に飛ぶ