1

我有一个创建数组数组的函数，以及一个应该获取结果数组并将其写入电子表格的函数。我找不到允许我将数组数组传递给第二个函数的语法......你能帮忙吗？

例如，如果 arr1 和 arr2 每个包含 24 个项目（它们总是包含相同数量的项目），我希望得到的数组是大小为 24 x 2 的二维数组，并且我希望将得到的 2 x 24 表写入电子表格，例如范围 A1:B24

这是我的代码：

创建数组数组的函数：

Function GetCellDetails(dict1 As Dictionary, dict2 As Dictionary)   As Variant

Dim arr1, arr2
arr1 = dict1.Items
arr2 = dict2.Items

GetCellDetails = Array(arr1, arr2)

End Function

将其写入电子表格的函数：

Sub WriteCellDataToMemory(arr As Variant, day As Integer, cellId As Integer, nCells As Integer)
row = CellIdToMemRow(cellId, nCells)
col = DayToMemCol(day)

arrSize = UBound(arr, 2) 'compiler error
Range(Cells(row, col), Cells(row + arrSize , col + 2)) = Application.Transpose(arr)

End Sub

调用函数的代码：

Dim CellDetails
CellDetails = GetCellDetails(dict1, dict2)
WriteCellDataToMemory CellDetails, day, cellId, nCells

我收到一个编译器错误： arrSize = UBound(arr, 2)，因为编译器不知道 arr 是一个 2 dim 数组...谢谢，李

4

1 回答 1

3

createdCellsDetails实际上是一个一维数组。Ubound(arr)做这项工作。

Sub Main()

    Cells.ClearContents

    Dim d1 As New Dictionary
    Dim d2 As New Dictionary

    d1.Add 1, "1"
    d1.Add 2, "2"
    d2.Add 3, "3"
    d2.Add 4, "4"

    Dim CellDetails
    CellDetails = GetCellDetails(d1, d2)

    WriteCellDataToMemory CellDetails

End Sub

Function GetCellDetails(dict1 As Dictionary, dict2 As Dictionary) As Variant

Dim arr1, arr2
arr1 = dict1.Items
arr2 = dict2.Items

GetCellDetails = Array(arr1, arr2)

End Function

Sub WriteCellDataToMemory(arr As Variant)

    Dim arrSize As Long
    arrSize = UBound(arr)
    Range(Cells(1, 1), Cells(1 + arrSize, arrSize+1)) = Application.Transpose(arr)

End Sub

也许一个插图会帮助你理解

在此处输入图像描述

所以你有一个多维obj1的objX

您将它们粘贴在将它们存储为对象的一维数组中

于 2013-11-05T15:58:31.093 回答