最初の正解者に５０ポイント進呈！以前に質問した事でどうしてもわからない事を

Sub Macro1()
Dim c As Variant, d As New DataObject, t As String
c = Application.ClipboardFormats
If c(1) = xlClipboardFormatText Then
d.GetFromClipboard
Cells(ActiveCell.Row, 6).Value = Replace(Cells(ActiveCell.Row, 6).Value, " ：：：", d.GetText)
Else
MsgBox ("クリップボードの内容が文字ではないので貼り付け出来ません")
End If
End Sub

上記のコードですが何処を変更すればよいのかわからないので教えて下さい。

以前質問した内容と異なり、Ｄ列にある項目のＤ１「近代日本哲学思想家辞典」
Ｄ２「串田孫一哲学散歩」
Ｄ３「契沖全集」
Ｄ４「契沖伝」
Ｄ５「経学研究序説」
Ｄ６「元明時代の儒教」
等をコピーして「日本の古本屋」で検索し、カーソルを動かさずに
「Ｃtrl」＋「V」で
Ｆ列の「：：：」の
部分に貼り付けできるようにするにはどうすればよいでしょうか。

すいません。以前の質問は
http://q.hatena.ne.jp/1256929671です。

上のコメントの場合、Ｆ１の「：：：」に貼り付けたいのは
Ｄ１「近代日本哲学思想家辞典」でしょうか。
カーソルを動かさずとはExcelにも切り替えないと言う事でしょうか。

そうです。Ｄ１「近代日本哲学思想家辞典」です。
カーソルを動かさず、というのはエクセルは切り替えたあとのことです。

気になってウォッチリストに入れてました。
回答締め切られたんですね。

1.元となるマクロのコードは、この質問の最初のコメントにあるコードですか?

2.やりたい作業はD1「近代日本哲学思想家辞典」をコピーして、
「日本の古本屋」で検索し、検索結果の中から【特定の文字列】をコピーし、
Excelに切り替え、カーソルを動かさずにF1の「：：：」に【特定の文字列】を
貼り付けたいということですか?

もし上記の通りなら、元となるマクロのコードにはA列ともD列とも指定がないので、
そのままで使えますよ。もし上記とは違うようであれば、手作業で操作する時の
手順を1つずつ書くと分かりやすかったかも。