日付セルの日数差でコピー入力を変えたい

質問

Excelの日付B1セルに1～3日後の日付を入力したとき表-2のように基準2行目のAを
それぞれ1～3日後（3～5行目）にコピーしたいのですが。表-3は例として1月3日を
入力した際、以前の1月1日がずれその差２を基にコピーを２行ずらしでしたらと
思ったのですが、どなたかVBAコードで良い方法が解る方よろしくお願いします。

回答No.1

hallo-2007 · ベストアンサー

参考になるかどうかですが、とりあえず

Sub Macro1()
Range("G3:I5").ClearContents
For i = 1 To 6 Step 2
RETU = Range("G1:I1").Find(What:=Range("A" & i).Value, LookAt:=xlWhole).Column
GYOU = Columns("F:F").Find(What:=Range("D" & i).Value - Range("B" & i).Value, LookAt:=xlWhole).Row
Cells(GYOU, RETU).Value = Cells(2, RETU).Value
Next
End Sub

G1~I1を検索して一致した列番号を取得
Ｆ列で、縦方向に検索して、日付の差と一致した行を取得
その行と列に、２行目の値を入れる

Ａ列の最後まで２行おきに繰り返し

といった風です。
エラー処理もありませんが、参考までに。

お礼

有難うございます。エラーがでますが何とか解読していきます。