|
▼yukio さん:
こんにちは。ちょっとシートレイアウトがよくわからないので、
前掲の簡単なサンプルデータで
>> データ > フィルタオプションの設定(AdvancedFilter)
を利用して、別シートに抽出するサンプルコードを書いておきます。
比べてみてください。
・変数を使って 検索条件範囲、抽出先 などをセットしている。
・Select Activate を使わない
ことなどに留意して。
>1 産地 種類 品別 銘柄 産地 銘柄
>2 和歌山 果物 みかん 温州
>3 北海道 果物 もも 大野
>4 岩手 野菜 なすび 盛岡
>5 青森 果物 りんご 浅虫
>6 宮城 野菜 とまと 仙台
>7 山梨 果物 みかん 甲府
>8 福島 果物 りんご 郡山
>9 和歌山 果物 みかん 温州
>10北海道 果物 りんご 函館
> この表から 「種類」が「果物」で 「品別」が「りんご」の行を
> すべて抽出するなら、
Sub Try1()
Dim Trange As Range 'リスト範囲
Dim Crange As Range '検索条件範囲
Dim Drange As Range '抽出先
Set Trange = Sheet1.Range("A1").CurrentRegion.Resize(, 4)
Set Crange = Sheet2.Range("H1").Resize(2, 2)
'種類が「果物」 品別が「りんご」の行を抽出する例です
'ここは↓マクロでセットしてますが、 _
あらかじめ手動で書き込んでおいてもいいです
Crange.Value = [{"種類","品別";"果物","りんご"}]
Set Drange = Sheet2.Range("A1")
Trange.AdvancedFilter xlFilterCopy, Crange, Drange
End Sub
|
|