|
お知恵をいただきたく、お願いいたします。
同じ列の上の範囲内(E列) に、同じ名前がいくつあるかを検索して、
隣の列に番号を出そうとしています(F列)。
※にあるように、ダブリとしない名前を付けたいことが目的です。
(E列) (F列)
A
B 1 ※B1
C
B 2 ※B2
今やろうとしているのは、E列を上から順番に対象文字を見ていって
対象文字を一つ上のセルから一番上のセルまでを検索範囲として
見つかった個数を隣にカウントで出そうとしました。
以下のコードです。(Loopはまだ入れていません)
カウントの結果の部分を上手く表せず、どう記入したらよいでしょうか。
Sub カウント()
Dim my検索セル1. As Range
Dim j As Long
※jはRowの位置を出していますがコードは省略いたします
Range(Cells(j - 1, "E"), Cells(j - 1, "E").End(xlUp)).Name = "検索範囲1."
Range("検索範囲1.").Select
'検索対象文字の1つ上のセルから一番上迄のセルを検索範囲として名前を検索範囲1.とする
srcName = Cells(j, "E").Value
'↑検索対象の文字
Set my検索セル1. = Range("検索範囲1.").Find(What:=srcName)
If Not my検索セル1. Is Nothing Then
Cells(j, "F").Value = Count
Else
MsgBox srcName & "ありません"
End If
End Sub
この中のElseの前あたりがわかりません。
|
|