将不会处理到下一行

Question

好的，我在Excel中有此VBA代码，我试图将某些数据从一个选项卡移至另一选项卡并编辑该数据。我几乎可以完成所有工作，但运行时会出现一个对话框，显示“选择范围”。它应将所选单元格中的数据添加到给定URL的末尾，并显示单元格“值”，以便在单击时将您带到包含给定ID和URL的页面。

代码如下：

'Hyperlink column A
Dim WorkRng As Range
Set WorkRng = Application.Selection
Dim l As Long
Dim addr As String
For l = WorkRng.Rows.Count To 1 Step -1
    If WorkRng.Cells(l, 1).Value <> "" Then
        addr = CStr("https://att.agilecraft.com/RequestGrid?FirstTime=True&RequestID=") & CStr(WorkRng.Cells(l, 1).Value)
        WorkRng.Cells(l, 1).Hyperlinks.Add Anchor:=WorkRng.Cells(l, 1), _
        Address:=addr, _
        TextToDisplay:=CStr(WorkRng.Cells(i, 1).Value)
    End If
Next l

这拒绝转到下一行，直到到达最后一行。

有什么想法吗？