|
▼M さん:
>>Set c = rngserch.Find(検索値, , LookIn:=xlValues, LookAt:=xlWhole)
>がエラーになったので
>Set c = RngSearch.Find(検索値, , LookIn:=xlValues, LookAt:=xlWhole)
>に変更しましたが動かないようでが。
>
失礼しました。
1.Search のタイプミスでした
2.Cells(.Rows.Count, "Q") ----- "Q"が抜けてました
With Worksheets("AAA")
Set RngSearch = .Range("Q2", Cells(.Rows.Count, "Q").End(xlUp))
'作業列を一巡検索 検索値 = 会社名 & "|" & 担当者名
Set c = RngSearch.Find(検索値, , LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
>【57688】の最大値の求め方を教えていただけませんでしょうか。
>昨日から色々試しているのですが思った最大値が求められません。
> If numCN < vCN(i) Then dic(ss) = vCN(i)
H列の値 vCN(i) が 現在の最大値よりも大きければ その値を あたらしい
最大値として行っているわけですが、、、、
たとえば
会社名「ABC商事」 担当者「田中」の行 が 以下のようだったとすると
H列には どのような値が入ってますか?
うまくいかない例をあげてください。
B列 C列 H列
4 ABC商事 田中
8 ABC商事 田中
20 ABC商事 田中
21 ABC商事 田中
45 ABC商事 田中
|
|