VBAのFindで一致したセルの二つ下のセルにペーストしたい

B1セル、若しくは英数字織り交ぜた7文字の文字と一致する場所をO2:AV2から探して一致した場所の二つしたにA2:A5のセルをコピペしたいです。

Findを使って色々試しましたが全くうまくいきません。

どなたかご教示頂けないでしょうか。

No.1 ベストアンサー 回答者： mygoonickname 回答日時： 2021/10/22 08:39

おはようございます。

手入力で実際には試していませんが、下記ではどうでしょうか？

Sub Sample2()
Dim Rng As Range,myFinChr as String
myFinChr = Range("B1").Value 又は、"英数字の7文字"
Set Rng = Range("O2:AV2").Find(What:=myFinChr, LookIn:=xlValues, LookAt:=xlWhole)
If Not Rng Is Nothing Then
Range("A2:A5").Copy Rng.Offset(2)
End If
End Sub

条件に当てはまるセルを検索する(Find/FindNext/FindPreviousメソッド)
https://www.moug.net/tech/exvba/0050116.html

この回答へのお礼

完璧に出来ました！
ありがとうございました。

お礼日時：2021/10/22 09:18

No.2 回答者： めぐみん_ 回答日時： 2021/10/22 08:56

＞英数字織り交ぜた7文字

英数字のみ以外で７文字（例えば日本語交じりで７文字とか）は検索範囲内にあるのか否か。
そしてその指定方法はセルを使わないと言う事？
InputBox？
コードに記載？