在列最後一行添加超鏈接

Question

我使用Excel 2013並希望用VBA實現目標。

我有一個工作表（Table1），一個FileDialog和一個AddHyperlink函數。我想要做的是將超鏈接添加到列A的第一個空行中的工作表。

Sub addLink() 

Dim ws As Worksheet 

Dim rng As Range 

Set ws = Sheets("Tabelle1") 

Dim fd As FileDialog 
Dim selectedPaths() As String 
Dim I As Integer 

Set fd = Application.FileDialog(msoFileDialogOpen) 

Set rng = Sheets("Tabelle1").Range("A1") 

With fd 
    .AllowMultiSelect = True 
    .Title = "Select your File(s)" 
    .InitialFileName = "" 
    If .Show = -1 Then 
     ReDim selectedPaths(.SelectedItems.Count - 1) 
     For I = 0 To .SelectedItems.Count - 1 
      selectedPaths(I) = .SelectedItems(I + 1) 
      With ws 
      .Hyperlinks.Add Anchor:=rng, Address:=selectedPaths(I) 
      End With 
     Next I 
    End If 
End With 

Set fd = Nothing 

End Sub 

此代碼正在工作並且表現良好。唯一不能構建的是最後一行。我看到，我需要像這樣的東西

Sub LastRowInOneColumn() 
Dim LastRow As Long 
With ActiveSheet 
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 
End With 
End Sub 

任何人都可以幫我把這兩個代碼塊？提前致謝。

Answer 1

而不是

Set rng = Sheets("Tabelle1").Range("A1") 

使用

With Sheets("Tabelle1") 
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 
    Set rng = .Cells(LastRow + 1, "A") 
End With