コピーセルの値が別のリスト

Question

のエントリに一致した場合に、リンクファイル名のブロックと列があり、そしてキーと値を持つ列があります：

私はリンクを割り当てる必要があります」 www.111.com」すべてAAAAA.jpgエリアに、 "www.222.com" BBBBB.jpgエリアへ、など

結果：

これはどのようにすることができますか？

Answer 1

私は次のVBAコードがあなたを助けると思います。

1. 範囲（「myRange」）を宣言し、バリアント（「hText」）を宣言し、セルにA1（.JPGsのリストのトップセル）
2. それを設定します。これは、これらのステップがありませんルックアップテーブルの「myRange」の値をD：E（ワークブックに合わせて変更）で検索します。 "hText"に値を格納する
3. hTextがエラーかどうか（つまり、値がルックアップテーブルに見つかりません）を確認します。エラーの場合は、セルをスキップします。エラーでない場合は、手順5に進みます。
4. 現在の "myRange"セルにハイパーリンクを追加します。 hTextをアドレスとして使用し、現在の "myRange"セルのテキストを表示されたテキストとして使用します。
5. "myRange"を次のセルに移動します。空のセルに達するまでステップ3-6を繰り返します。

ループが空のセルに到達するとループが停止するので、リストにギャップがある場合は、ループが最下部に届かないことに注意してください。また、参照テーブルに見つからない値はスキップされます（ハイパーリンクは追加されません）。

.JPGのリストを含むシートが選択されている間にこのコードを実行します。

Sub AddHyperlinks() 

Dim myRange As Range 
Set myRange = Range("A1") 

Dim hText As Variant 

Do Until IsEmpty(myRange) 

    hText = Application.VLookup(myRange.Value, Worksheets("Sheet1").Range("D:E"), 2, False) 

    If IsError(hText) Then 
     hText = "" 
    Else 
     ActiveSheet.Hyperlinks.Add Anchor:=myRange, Address:=hText, TextToDisplay:=myRange.Text 
     hText = "" 
    End If 

    Set myRange = myRange.Offset(1, 0) 
Loop 

End Sub