6

我有一个包含 145 个类别的重复列表，每个类别有 15 列数据。我通过将类别数量减少到 24 个并添加相应数据来合并此列表。

例如，如果最初我有类别 ABCDEFG 并且我合并了，我将添加 A 中的所有值，比如 F，以获得一个新类别。

另一个问题是所有这 145 个类别在 60 个时间段内重复出现。所以我必须分别合并每个时间段的数据。

为此，我正在尝试使用数组。

Sub CategoriesToSectors()
Dim k As Integer
Dim j As Integer
Dim p As Integer
Dim Destination As Range
' p is just a filler/dummy variable until I later decide which categories go into which    sector 


Dim CategoryData(144, 14) As Long
Dim SectorData(23, 14) As Long

k = 0
' k should go Upto 60
' I first copy the data from a range in the first worksheet into the array CategoryData 
' Then I move 145 rows down for the next time-period's data and repeat this whole process
While k < 60
Sheets("ReformattedData").Select
Range("B1:P145").Select
ActiveCell.CurrentRegion.Offset(k * 145, 0).Select
CategoryData = Selection.Value

For j = 0 To 14
SectorData(0, j) = CategoryData(1, j) + CategoryData(6, j) + CategoryData(8, j) +           CategoryData(13, j)
For p = 1 To 23
SectorData(p, j) = CategoryData(15, j) + CategoryData(19, j) + CategoryData(31, j) +    CategoryData(44, j)
Next p
Next j
' paste consolidated sectordata array one below another in SectorData worksheet
Sheets("SectorData").Select
 Range("B2").Select
Set Destination = ActiveCell.Offset(k * 25, 0)
Destination.Resize(UBound(SectorData, 1), UBound(SectorData, 2)).Value = SectorData


Wend 


End Sub

如您所见，我首先尝试将第一个范围块复制到 CategoryData 数组中。然后，我将数据组合到扇区数组中——我刚刚使用重复值来测试它——不应该存在带有 p 的 for 循环。我最终将使用 24 种不同的语句来创建 SectorData 数组。

然后我将合并的数据粘贴到另一张纸上。我回到第一张纸，将我的选择向下移动到下一个范围块（第一个单元格下方的 145 个单元格），然后我选择这个数据并重复。

这似乎不起作用-将数据输入第一个数组时出错-CategoryData。

帮助将不胜感激。

谢谢

4

2 回答 2

8

为了将 Range 复制到 VBA 数组中，您必须使用 Variant：

Dim CategoryData() As Variant
'or just CategoryData As Variant (no brackets)
'then the following will work
CategoryData = Selection.Value

传输数据后，您可以检查UBoundCategoryData。

在 cpearson有一个有用的讨论。

只要维度相同，您就可以将 Range 设置为数组（在您的示例中为 SectorData）而不是 Variant。

于 2013-08-01T17:42:19.820 回答
1

尝试这个：

Sub RangeToArray()
    Dim NewArray As Variant
    Dim SourceRange As Range
    Set SourceRange = Selection.CurrentRegion
    NewArray = SourceRange.Value
    Stop    'to check the result in Immediate Window
End Sub
于 2017-01-19T12:58:25.363 回答