|
▼さとちぃ さん:
> 検索ワードが3件以上ある場合
シートレイアウトを以下のようにして 詳細設定フィルタを手動で実行する操作
をマクロ記録してみてください。
[A] [B] [C] [D]
[1] 県名 ([C1]には数式:=B7 を埋め込む)
[2] 三重*
[3] 静岡*
[4] 福井*
[5]
[6]
[7] 会社名 県名 郵便番号 ○チェック欄
[8] XYZ株式会社 愛知県 653-0028
[9] ZD(株) 三重県 991-3335
[10] ABC(株) 三重 991-2543
[11] NHK(株) 京都府 876-5432
[12] 東京商事 福井県 666-7777
[13] 大阪硝子(株) 大阪府 777-8888
[14] (株)東都興業 東京都 999-0001
こちらでマクロ記録したものをお見せすると、以下のようです。
(ただし、記録マクロから .Select Selection をとって、整形してあります)
Sub Macro2()
' Macro recorded 2015/2/25 by kanabun
'
Range("A7:D14").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("C1:C4")
Range("D9:D12").FormulaR1C1 = "○" 'D列可視セルに "○" を一括入力
ActiveSheet.ShowAllData
End Sub
これをたたき台にして汎用化していけばよいのですが...
|
|