マクロで該当する番号の左側のセルの内容を取得したい

よろしくお願いします
いつもｇｏｏの皆さんには大変お世話になっています

添付のような表があります
セルＢ１に番号を入力したら、その番号の左側のセルの内容を、文字型変数　kenmei に代入したい
のですが、マクロのコードはどう書けばよいでしょうか？

表の例ではＢ１に５が入力されているので、文字型変数　kenmei には群馬が代入されます

No.1 ベストアンサー 回答者： tom04 回答日時： 2016/03/03 18:30

こんばんは！

一例です。
シートモジュールになります。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lastRow As Long, c As Range, myRng As Range
Dim kenmei As String
If Target.Address = "$B$1" Then
lastRow = Cells(Rows.Count, "B").End(xlUp).Row
Set myRng = Range(Cells(2, "B"), Cells(lastRow, "B"))
With Target
Set c = myRng.Find(what:=.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
kenmei = c.Offset(, -1)
End If
End With
MsgBox kenmei '←確認の意味//
End If
End Sub

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

tom04さんこんばんは
いつも大変お世話になっております
夕食の時間に教えていただいて大変恐縮です

まさか、これほど複雑なマクロになるとは思いもしませんでした
このマクロは応用が利くので大切に使わせていただきます

いつもいつもありがとうございます
教える方は大変なのに、いつもお礼が簡単ですみません
ありがとうございました

お礼日時：2016/03/03 19:07