同一セルに入力した値を記録

質問

はじめまして。
よろしくおねがいします。

同一セル（A1とB１）にデータ（文字列）、検査値を入力します。
毎回同じセルに入力するので過去のデータが消えてしまいます。
A1のデータと４行目のセルに入力されているデータが一致する列に
B2に検査値入力されるたびどんどん追加されるようにしたいです。

例
A1→あ
B１→１００
　　　　　A B C D E F G H
4行目→あ　い　う　え　お　x y z
100←ここに入力されるようにしたい。
　　　　　●←次に「あ」の検査値が入力された時は下に入力したい。

↑のような事は出来ますか？
全くの素人なのですが上司に頼まれてしまって困っています。

どうかよろしくお願いします。
どなたか助けてください；

回答No.1

watabe007 · ベストアンサー

標準モジュールに以下のコードを貼り付けてお試し下さい。

Sub Test()
　　Dim myC As Variant

　　myC = Application.Match(Range("A1").Value, Rows(4), 0)
　　If IsError(myC) Then
　　　　MsgBox Range("A1").Value & "が見つかりません"
　　　　Exit Sub
　　End If
　　Cells(Rows.Count, myC).End(xlUp).Offset(1).Value = Range("B1").Value
End Sub

お礼

ありがとうございます！！！！
出来ました！
ほんとうに助かりました。