|
私なら、質面倒くさいのが嫌いなんで、遅くともエクセル関数のCountIfを使ってしまうところですが。
> Set my検索セル1. = Range("検索範囲1.").Find(What:=srcName)
> If Not my検索セル1. Is Nothing Then
Count = Count + 1 ←単純に+1していけばいいと思います。
> Cells(j, "F").Value = Count
> Else
> MsgBox srcName & "ありません"
> End I
尚、単純に+1していけば良いというのが、うまくいかないからなのだろうと推測しますと、
Findでの引数の指定が足りないから。
今回の場合は、どこから検索するかの指定が足りないのが原因。
検索範囲の1番最後のセルの次から検索するとの指定、
つまり範囲1番目のセルから検索しろとの条件が無い。
指定しないと、アクティブセルの次のセルからとなります。
要するに、初めはアクティブセルは見ないで、アクティブセルの次から検索して、回り回って1番最後にアクティブセルを見る。
Find(値, After:=Range(検索したい位置), LookIn:=xlValues,・・出来たらこれらも省かない。
With Range("検索範囲1.")
.Set my検索セル1. = .Find(What:=srcName, After:=.Cells(.Cells.count))
End with
|
|