データのある列にハイパーリンクを挿入する

Question

データを持つ列Aにハイパーリンクを挿入しようとしています。たとえば、A1はタイトルです。 A2は12345で、ハイパーリンクはhttp://123.1.1.1/?id=12345です。

現在、私は約11000行を含むワークシート上でマクロを実行しています。約1時間ですが、まだ実行中です...

また、この単一のマクロがすべてのワークシートで機能するかどうかを確認しようとしています。以下は

私のマクロ

Sub AddUrlSheet1() 
With Worksheets(1) 

Set R = ActiveSheet.Range("a2", ActiveSheet.Range("a2").End(xlDown)) 
R.Select 

For Each R In Selection.Cells 

.Hyperlinks.Add Anchor:=R, _ 
Address="http://123.1.1.1/" & R.Value 

Next R 
End With 
End Sub 

Answer 1

はこれを試してみてくださいです：

Sub AddUrlSheet1() 
    Application.ScreenUpdating = False 
    Application.Calculation = xlCalculationManual 
    ' 
    Dim LastUsedRow As Long 
    Dim r As Range, c As Range 
    With ActiveSheet 
     LastUsedRow = .Columns("A").Cells.Find("*", SearchOrder:=xlByRows, LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row 
     Set r = .Range(.Cells(2, 1), .Cells(LastUsedRow, 1)) 
    End With 
    ' 
    For Each c In r 
     c.Hyperlinks.Add Anchor:=c, Address:="http://123.1.1.1/" & c.Value 
    Next c 
    Application.Calculation = xlCalculationAutomatic 
    Application.ScreenUpdating = True 
End Sub 

これは

Answer 2

の代わりにすることによって、細胞をループし、現在列Aでそれらの値を持つすべてのセルにハイパーリンクを追加しますセルを使用する場合はHyperlink()をFormulaと入力してください。あなたは既に既存のデータを反復処理する必要がある場合は、あなたのR値が列Aにある場合、これは

Sub t() 
Dim rng As Range 
' Note: Update the `10` to match your lastRow 
Set rng = Range("B2:B" & ActiveSheet.Range("a2").End(xlDown).Row) 

rng.FormulaR1C1 = "=HYPERLINK(""http://123.1.1.1/""&RC[-1],""Link"")" 

End Sub 

列Bにハイパーリンクに記入します、@クリスの答えはかなりよさそうです。