|
こんにちは
>f、s、a、・・・などとしたかったのですが、
>複雑になるので敢えて、全てfの例を挙げました。
全然意味が変わってくる重要な情報です。
>a10にはf以外のものが入っているとして、例としてあげました。
>とにかく「=a10」という式が入ればいいです。
これは、大した意味はないですけど、転記した先で循環参照にならなければOKです。
Sub test()
Dim r As Range
Dim f As Range
Dim m As Range
Dim a As Range
For Each r In Range("D1", Range("D65536").End(xlUp))
On Error Resume Next
Set m = Range("B:B").SpecialCells(xlCellTypeFormulas)
If Not m Is Nothing Then
Set a = m.Offset(0, -1).Areas(m.Areas.Count)
Set f = m.Offset(0, -1).Find( _
r.Value, a.Cells(a.Cells.Count), xlValues, xlWhole)
If Not f Is Nothing Then
r.Offset(, 1).Formula = f.Offset(, 1).Formula
f.Offset(, 1).ClearContents
End If
Else
On Error GoTo 0
Exit For
End If
Set m = Nothing
Set f = Nothing
Set a = Nothing
On Error GoTo 0
Next
Set m = Nothing
Set f = Nothing
Set a = Nothing
End Sub
|
|