Excel vba の書き方教えてください。

質問

書き方が分からないのでおしえてください。
やりたい動作は下記になります。
データは
Sheet1のA列にIPアドレスだけ書いてあります。
Sheet2のA列にはIPアドレス（例　111.111.111.*）　B列には名前（例　honsya）
Sheeｔ3のA1にはAAAAA、　A2にはBBBBB
が書いてあるシートがあります。

(1)処理が完了したデータを記入するシート（シート名：完了）を作成。
(2)　Sheet1のIPアドレスを第3オクテッド目までの値が同じものをSheet2のA列から探します。
(3)探し出したA列の値の右よこのB列の値を作成した完了のシートに書きだします。
その際
Sheeｔ3に記載されているデータと検索対象のIPアドレスをB列の値にくっつけます。
↓こんな感じに
AAAAA "[B列の値]（[検索対象のIPの第4オクテッド]）" [検索対象のIPアドレス] BBBBB
この状態のものが　完了　のシートに書きだされるようにしたいのです。
ここ数日これで悩んでて解決しないのでどなたか助けてください。

回答No.1

nagare · ベストアンサー

ざっと作ってみました
イメージと合わない箇所は直してください
注)
・列固定なので、Cellsを使いませんでした
・ワイルドカードの仕様がよくわからなかったので使いませんでした

★わからないのは、シート参照ですか？　文字列操作ですか？

Private Sub SerchIP()

Dim lMaxRow1 As Long
Dim lMaxRow2 As Long
Dim lMaxCnt1 As Long
Dim lMaxCnt2 As Long
Dim lOutCnt4 As Long
Dim sIP As String
Dim sIP1 As String
Dim sIP2 As String
Dim sOutIP As String

lMaxRow1 = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
lMaxRow2 = Worksheets("Sheet2").Range("A65536").End(xlUp).Row
lMaxRow3 = Worksheets("Sheet3").Range("A65536").End(xlUp).Row
lOutCnt4 = 1

For lMaxCnt1 = 1 To lMaxRow1
sIP1 = Worksheets("Sheet1").Range("A" & lMaxCnt1).Value
sIP1 = Left(sIP1, InStrRev(sIP1, ".") - 1)
For lMaxCnt2 = 1 To lMaxRow2
sIP2 = Worksheets("Sheet2").Range("A" & lMaxCnt2).Value
sIP2 = Left(sIP2, InStrRev(sIP2, ".") - 1)

If sIP1 = sIP2 Then
sOutIP = Worksheets("Sheet3").Range("A1").Value & """"
sOutIP = sOutIP & Worksheets("Sheet2").Range("B" & lMaxCnt2).Value & """"
sIP = Worksheets("Sheet1").Range("A" & lMaxCnt1).Value
sOutIP = sOutIP & "(" & Mid(sIP, InStrRev(sIP, ".") + 1) & ")"
sOutIP = sOutIP & Worksheets("Sheet3").Range("A2").Value
Worksheets("完了").Range("A" & lOutCnt4).Value = sOutIP
lOutCnt4 = lOutCnt4 + 1
End If
Next
Next

End Sub

お礼

ありがとうございました！
イメージとあってました　すごく助かりました。
これを参考に残りの部分も作っていきたいと思います！

初級程度しか出来なく応用がなかなかできなくて
IF使ってやるのかなとか、セル内の文字の途中までの内容を比較するとか
どうやるのか分からず困ってました。
シート参照も文字列操作もどっちもでした・・・。
単純にペタッと張り付けたりする程度とかなら
なんとかって感じでしたので
本当にありがとうございました