| |
kanabun氏、返信ありがとうございます。
度々、返信が遅くなり申し訳ありません。
とても参考になりました。
申し訳ないのですが、最後に質問させてください。
c(1, 2).Value = Replace(c(1, 2), "●●", dic(c.Value))
IPアドレスを基準に置き換えていると思いますが、
下記のように●●の位置になった場合、
どのように対処すればよろしいでしょうか？
お手数だと思いますが、よろしくお願いします。
Sheet2
A B
1 04:14 ●●にてメール受信。
2 1.222.333.2 KKKLLLGGG:DDDRRR:TTT
3
▼kanabun さん：
>なお、Sheet2のA列 IPアドレスがたくさんあるときは
>Sheet1の対応表を Dictionaryオブジェクトに記憶しておくと
>何度もMatch検索しなくて済むので、効率よくなります
>
>Sub IP_Hostname()
> Dim dic As Object
> Dim c As Range
>
> Set dic = CreateObject("Scripting.Dictionary")
> With Worksheets(1)
> For Each c In .Range("E2", .Cells(.Rows.Count, "E").End(xlUp))
> dic(c.Text) = c(1, 0).Text 'Key: IPアドレス 値：ホスト名
> Next
> End With
>
> With Worksheets(2)
> For Each c In .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
> If dic.Exists(c.Value) Then
> c(1, 2).Value = Replace(c(1, 2), "●●", dic(c.Value))
> End If
> Next
> End With
> Set dic = Nothing
>End Sub
|
|
シンク
- 12/1/19(木) 22:13 -
