Findで指定の文字が含まれたセルを検索する

・.Find("山田",LookAt:=xlWhole)...とすると完全一致検索となる（無表記およびLookAt:=xlPartならば一部検索）

・郵便番号 を郵便局から取ってきて、
エクセル上に[郵便番号]シートみたいな感じで作成しておき、
郵便番号をキーワードにしてFindを使って検索することができる。
※※※　ユーザーフォームとの組み合わせも効果的　※※※


1：A列に山田が含まれるセルを選ぶ

　Range("A:A").Find("山田").Select




2：A列に山田が含まれるセルを探し、その行数を所得する

　Debug.Print Range("A:A").Find("山田").Row


3：1行に山田が含まれるセルを探し、その行数を所得する

　Debug.Print Range("1:1").Find("山田").Row


4：A列に山田が含まれるセルを探し、そのアドレスを所得する

　Debug.Print Range("A:A").Find("山田").Address