|
▼ハオ さん、やっちん さん:
こんにちは。
掲示板の上の方にある
「本サイトの基本方針をまとめました。こちら をご一読ください。」
に目を通されてください。
> ・丸投げ
> 「○○するにはどうすればいいか教えてください」といったような、
> コードを最初から最後まで教えてもらうことを期待するような質問
>・「自分が質問したとき、こんな風に答えてもらったら嬉しいだろうなぁ」と
> いうような回答を書いてあげてください。
とありますね。
>このようにやってみたいのですが、よろしくお願いします。
K列 の値が A列 に見つからなかった場合や
K列 のIPアドレスに重複はありえるかなどの具体的なデータがないので
必ずしもうまくいくとは限りませんが、
Sub IPアドレスを探してHit数を加算()
Dim i As Long
Dim j As Long
i = 0
Do Until Range("K1").Offset(i, 0).Value = ""
j = 0
Do Until Range("A1").Offset(j, 0).Value = ""
If Range("A1").Offset(j, 0).Value = _
Range("K1").Offset(i, 0).Value Then
Range("A1").Offset(j, 1).Value = _
Range("A1").Offset(j, 1).Value + _
Range("K1").Offset(i, 1).Value
Exit Do
End If
j = j + 1
Loop
i = i + 1
Loop
End Sub
こんな感じでしょうか。
A列、K列ともにソートしてあげるともっと速い処理が可能かもしれませんね。
|
|