小编mma*_*vis的帖子

我正在尝试根据金额变化的列条目分配字符串(可能是15-40个条目,具体取决于当天),然后通过将字符串添加到URL的固定开头来打开URL.我的问题是变量的分配.我的代码如下:

'LOOP 1:
    'Table Entries

Dim RowCount As Integer


    Sheets("Table").Select
    Sheets("Table").Range("A2").Select
    Do While True
        ActiveCell.Offset(1, 0).Select
        If IsEmpty(ActiveCell.Value) Then
            RowCount = ActiveCell.Row
            Exit Do
        End If
    Loop

RowCount = RowCount - 2

'LOOP 2:
    'Assign IDs and URLs

Dim ID(1 To RowCount) As Variant
Dim URL(1 To RowCount) As String
Dim i1 As Integer

    For i1 = 1 To RowCount
        ID(i1) = Sheets("Table").Range("A" + CStr(i + 1)).Value
        URL(i1) = "--Redacted--" + CStr(URL(i1))
    Next i1

问题是将ID和URL变量声明为RowCount的函数.我确信还有另一种方式来宣布这些,但我缺乏经验.

提前致谢.