指定されたセルへデータを入力したい

質問

A2からA1000には、検索する名称が登録されている、
B1にはデータ（今日の日付）が入力されている。
上記の条件下で、A1に名称を入力したら、A2からA1000の中で一致する行のB列にB1の日付のデータを入力したい。
上記をマクロにて実現する方法を教えて頂きたく。

回答No.1

mu2011 · ベストアンサー

一例です。
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
For Each c In Range("A2:A1000")
If c.Value = Range("A1") Then
Range("B1").Offset(c.Row - 1) = Range("B1")
End If
Next
End Sub

お礼

ありがとうございました。
おもい通りの内容になっており助かりました。m(__)m