使用字符串变量将 Range 参数填充到数组

Question

我正在尝试从该行中已更改的单元格中选择一行，然后从选定的行值中填充一个数组。

当我尝试构建一个包含所选行（如 Copyrange = Start Position & End Position）的字符串变量，然后将其提供给 Range 参数到数组中时，它会引发下标超出范围错误。

我需要制定正确的行来分配给 Range，如果不能将字符串变量传递给 Range 参数，我该怎么办？

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r, s As Long
  
    
    If Not Application.Intersect(Target, Range("PrioritySelect")) Is Nothing Then
    If Not Application.Intersect(Target, Range("PrioritySelect")) = "Select" Then
        r = Target.Row
        s = r + 8
        ' MsgBox "row " & r, , "Amended Cell..."
        
        Dim MyArray() As Variant
        
        'unallocated array
        Dim i As Integer
        Dim ThisWs As Worksheet
        Dim Copyrange As String
        Dim Position As String
        
        
        Set ThisWs = Worksheets("PIPPR")
        Position = "B" & r
        EndPosition = "B" & s
           MsgBox Position
            MsgBox EndPosition
            
        Let Copyrange = Position & ":" & EndPosition
        MsgBox Copyrange
                    
        MyArray = ThisWs.Range(Copyrange).Value2
        
        MsgBox "Lower Bound = " & LBound(MyArray)
        MsgBox "Upper Bound = " & UBound(MyArray)
        MsgBox MyArray(1)
        
        'MsgBox MyArray(1)
        
        
            ' Print student marks from the array to the Immediate Window
    Debug.Print "Values"
    For i = LBound(MyArray) To UBound(MyArray)
        Debug.Print MyArray(i)
    Next i

Answer 1

MyArray 是一个二维数组。你必须正确使用它。试试这个：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r, s As Long
  
    
    If Not Application.Intersect(Target, Range("PrioritySelect")) Is Nothing Then
    If Not Application.Intersect(Target, Range("PrioritySelect")) = "Select" Then
        r = Target.Row
        s = r + 8
        ' MsgBox "row " & r, , "Amended Cell..."
        
        Dim MyArray() As Variant
        
        'unallocated array
        Dim i As Integer
        Dim ThisWs As Worksheet
        Dim Copyrange As String
        Dim Position As String
        
        Set ThisWs = Worksheets("PIPPR")
        Position = "B" & r
        EndPosition = "B" & s
           MsgBox Position
            MsgBox EndPosition
            
        Let Copyrange = Position & ":" & EndPosition
        MsgBox Copyrange
                            
        MyArray = ThisWs.Range(Copyrange).Value2
        
        MsgBox "Lower Bound = " & LBound(MyArray)
        MsgBox "Upper Bound = " & UBound(MyArray)
        MsgBox MyArray(1, 1)
        
        'MsgBox MyArray(1)
        
        
            ' Print student marks from the array to the Immediate Window
    Debug.Print "Values"
    For i = LBound(MyArray) To UBound(MyArray)
        Debug.Print MyArray(i, 1)
    Next i
    End If
    End If
End Sub

这个使用带有字符串的一维 MyArray 代替或变体：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r, s As Long
  
    
    If Not Application.Intersect(Target, Range("PrioritySelect")) Is Nothing Then
    If Not Application.Intersect(Target, Range("PrioritySelect")) = "Select" Then
        r = Target.Row
        s = r + 8
        ' MsgBox "row " & r, , "Amended Cell..."
        
        'unallocated array
        Dim i As Integer
        Dim ThisWs As Worksheet
        Dim Copyrange As String
        Dim Position As String
        Dim Cell As Range
        Dim MyArray() As String
        
        Set ThisWs = Worksheets("PIPPR")
        Position = "B" & r
        EndPosition = "B" & s
           MsgBox Position
            MsgBox EndPosition
            
        Let Copyrange = Position & ":" & EndPosition
        MsgBox Copyrange
        
        ReDim MyArray(1 To ThisWs.Range(Copyrange).Cells.Count)
        i = 1
        For Each Cell In ThisWs.Range(Copyrange)
            MyArray(i) = Cell.Value2
            i = i + 1
        Next
        
        MsgBox "Lower Bound = " & LBound(MyArray)
        MsgBox "Upper Bound = " & UBound(MyArray)
        MsgBox MyArray(1)
        
        'MsgBox MyArray(1)
        
        
            ' Print student marks from the array to the Immediate Window
    Debug.Print "Values"
    For i = LBound(MyArray) To UBound(MyArray)
        Debug.Print MyArray(i)
    Next i
    End If
    End If
End Sub