「エクセルマクロ達人養成塾」、ブログ担当の大椛です。
今回紹介するのは、「Excelマクロ・VBA基礎コース」セミナー受講後のフォローアップ課題から。
課題は、「左表（A、B列）のデータをもとにして、右表（E,F列）のリストを作成しなさい」
というもの。
データが重複しているリストから抜き出して右表のリストを作成します。
|A列 |B列 |C列 |D列 |E列 |F列 |
-----------------------------------------------------------------------------
1 行目 |業者名 |フリガナ |区域 | |業者名 |フリガナ |
-----------------------------------------------------------------------------
2 行目 |岩手化学|イワテカガク |46 | |岩手化学|イワテカガク |
-----------------------------------------------------------------------------
3 行目 |門司製紙|モジセイシ |17 | |門司製紙|モジセイシ |
-----------------------------------------------------------------------------
4 行目 |門司製紙|モジセイシ |39 | |青森製紙|アオモリセイシ |
-----------------------------------------------------------------------------
5 行目 |門司製紙|モジセイシ |41 | |那覇開発|ナハカイハツ |
-----------------------------------------------------------------------------
6 行目 |青森製紙|アオモリセイシ |37 | |米子総研|ヨナゴソウケン |
-----------------------------------------------------------------------------
7 行目 |青森製紙|アオモリセイシ |35 | |甲府重工|コウフジュウコウ |
-----------------------------------------------------------------------------
8 行目 |青森製紙|アオモリセイシ |11 | |能代印刷|ノシロインサツ |
-----------------------------------------------------------------------------
9 行目 |青森製紙|アオモリセイシ |12 | |都城産業|ツヅキサンギョウ |
-----------------------------------------------------------------------------
10行目 |青森製紙|アオモリセイシ |13 | |秋田信託|アキタシンタク |
-----------------------------------------------------------------------------
11行目 |那覇開発|ナハカイハツ |15 | |松本証券|マツモトショウケン|
-----------------------------------------------------------------------------
12行目 |米子総研|ヨナゴソウケン |5 | | | |
-----------------------------------------------------------------------------
13行目 |甲府重工|コウフジュウコウ |26 | | | |
-----------------------------------------------------------------------------
14行目 |甲府重工|コウフジュウコウ |22 | | | |
-----------------------------------------------------------------------------
15行目 |甲府重工|コウフジュウコウ |50 | | | |
-----------------------------------------------------------------------------
16行目 |甲府重工|コウフジュウコウ |51 | | | |
-----------------------------------------------------------------------------
17行目 |甲府重工|コウフジュウコウ |52 | | | |
-----------------------------------------------------------------------------
18行目 |甲府重工|コウフジュウコウ |53 | | | |
-----------------------------------------------------------------------------
19行目 |甲府重工|コウフジュウコウ |54 | | | |
-----------------------------------------------------------------------------
20行目 |能代印刷|ノシロインサツ |44 | | | |
-----------------------------------------------------------------------------
21行目 |都城産業|ツヅキサンギョウ |34 | | | |
-----------------------------------------------------------------------------
22行目 |秋田信託|アキタシンタク |19 | | | |
-----------------------------------------------------------------------------
23行目 |秋田信託|アキタシンタク |32 | | | |
-----------------------------------------------------------------------------
24行目 |秋田信託|アキタシンタク |31 | | | |
-----------------------------------------------------------------------------
25行目 |秋田信託|アキタシンタク |8 | | | |
-----------------------------------------------------------------------------
26行目 |秋田信託|アキタシンタク |9 | | | |
-----------------------------------------------------------------------------
27行目 |松本証券|マツモトショウケン|45 | | | |
-----------------------------------------------------------------------------
数十件程度なら力技でいけそうですが、、、、
数千件、数万件となると手作業では無理、というかミスしてしまいそうです。
オートフィルターを駆使するとできないことはないですが、その話は今回は置いておいて…。
このくらいなら、 If文と For Next構文を組み合わせて、難なく解くことができます。
完成型で、10行くらいの長さしかありません。
大椛も、まだIf文と、For Nextしかまだ教わっていないですが、実際、それだけでもかなりのことができることに感動しています。
で、そんな話をしたら、小川塾長からこんな言葉が。
「中華包丁」って、おもしろいたとえだな、ともうちょっと聞いてみたところ、
とのこと。納得です。
