こうゆう時はどうしたら？？ エクセルＶＢＡ

質問

例）キーである「業者名称」が、別シートの業者リストの中にあった
　　場合、業者名称の横のセルに"○"をつける
みたいなことをしたいのですが、ＶＢＡでしようとするとどうゆう
プログラムをいれたらいいのでしょうか？？
関数でいう、MATCHみたいな感じになると思うんですけど。

回答No.3

imogasi

エクセルVBAで質問のことをやる方法の型は３種あります。
（１）For　Nextのような繰り返しで、全セルを舐めてあるかどうか聞いていく方法
（２）VBA独自のFindなどのメソッドを使う方法
（３）VBAの中でWorksheetFunctionであるMatch、Vlookupなどを使う方法
の３つで、VBAらしいのは（２）、VBAを知らなくても他言語を知っていればできるのが（１）、VBAの感じが少ないのが（３）ですが、（３）がコード量が少なくて済みます。
詳細はとりあえず略。

回答No.2

merlionXX

Sheet1とSheet2のA列を比較する場合の例です。
完全一致の場合のみSheet1のリストの当該セル右隣に○を打ちます。

Sub 照合test()
Dim gyoA As Integer 'A最大値
Dim gyoB As Integer 'B最大値
Dim i As Integer 'ループ用
Dim n As Integer 'ループ用

gyoA = Sheet1.Range("A65536").End(xlUp).Row
gyoB = Sheet2.Range("A65536").End(xlUp).Row

For i = 1 To gyoB
For n = 1 To gyoA
If Sheet1.Cells(n, 1) <> "" Then '空白でない場合
If Sheet1.Cells(n, 1) = Sheet2.Cells(i, 1) Then '同一データがあったら
Sheet1.Cells(n, 2) = "○" 'となりに○
End If
End If
Next
Next
End Sub

回答No.1

miwaharu

こんにちは、ＶＢＡでも関数がつかえるはずです
ＶＬＯＯＫＵＰでよいのではないでしょうか。