使用loadClass方法加载数组

Question

如何使用loadClass方法加载数组？

Sub DynamicRange()
'Best used when first column has value on last row and first row has a value in the last column

Dim sht As Worksheet
Dim LastRow As Long
Dim LastColumn As Long
Dim StartCell As Range
Dim SelectedRange As Range

Set sht = ActiveWorkbook.ActiveSheet
Set StartCell = Range("C9")

If IsEmpty(StartCell.Value) = True Then
  MsgBox "Enter Dates to export"
  Exit Sub
End If

'Find Last Row and Column
  LastRow = sht.Cells(sht.Rows.Count, StartCell.Column).End(xlUp).Row
  LastColumn = sht.Cells(StartCell.Row, sht.Columns.Count).End(xlToLeft).Column

'Select Range and Copy
  Set SelectedRange = sht.Range(StartCell, sht.Cells(LastRow, LastColumn))
  SelectedRange.Select
  Selection.SpecialCells(xlCellTypeVisible).Select
  Selection.Copy

'Select sheet "TRACKER" insert values above previous data
Sheets("TRACKER").Select
Range("B9").Select
Selection.Insert Shift:=xlDown

'clear selection
Application.CutCopyMode = False

End Sub

Answer 1

你没有。您不加载数组类，只加载基础类型的类。 JVM将在需要时合成数组类。