[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『顧客リストの抽出について』(あき)
顧客の住所録リストを作成したのですが
そこから別シートに担当別に抜き出し集計をかけたいのですが
担当の入力だけで顧客名、住所、電話番号まで
すべて自動抽出することは可能でしょうか?
< 使用 Excel:Excel2010、使用 OS:Windows10 >
(マナ) 2020/08/12(水) 12:39
Dim temp As String If Target.Address(0, 0) <> "A1" Then Exit Sub Application.EnableEvents = False temp = Range("A1").Value Cells.ClearContents Range("A1").Value = temp Range("A1").Insert Shift:=xlDown Range("A1").Value = "担当" Sheets("住所録").Range("A:D").AdvancedFilter xlFilterCopy, Range("A1:A2"), Range("B1"), True Columns("A").Delete Application.EnableEvents = True End Sub (mm) 2020/08/12(水) 13:28
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.