|
▼Jaka さん:
ご回答ありがとうございました。
検索範囲の始まりのセルを指定し直し、以下のようにしてみました。
が、結果はカウントせずに、全て”1”と隣の列に出るだけでした。
Set my検索セル1.としたところに問題がありそうなのですが、
2個目、3個目のようになぜならないのか、ご指摘していただけますでしょうか。
また、例文でいただいた下の方にあるコードも、どの辺に当てはめたらよいのか
教えていただけたら助かります。
Do Until Cells(j, "E").Value = ""
'空白になるまで処理を繰り返す
Range(Cells(k, "E"), Cells(j - 1, "E")).Name = "検索範囲1."
Range("検索範囲1.").Select
srcName = Cells(j, "E").Value
'↑検索対象の文字
Set my検索セル1. = Range("検索範囲1.").Find(What:=srcName)
If Not my検索セル1. Is Nothing Then
Cells(j, "F").Value = my検索セル1..Count
End If
j = j + 1
Loop
>
>Find(値, After:=Range(検索したい位置), LookIn:=xlValues,・・出来たらこれらも省かない。
>
>With Range("検索範囲1.")
> .Set my検索セル1. = .Find(What:=srcName, After:=.Cells(.Cells.count))
>End with
|
|