如何仅使用工作表中的选定数据列动态创建数组

Question

我有一个工作簿，其中有一个工作表作为数据源，另外5个工作表是可打印的报表。数据工作表的范围为34列乘240行。我需要编译一组特定的列，如1,3-6,11,14,17-24,29＆amp; 34.然后在数组第1行中搜索特定类别的数据，然后将具有该类别的所有行（如果为1或100）写入另一个工作表。

Answer 1

以下是创建数组的一种方法：

Sub dural()
    Dim i As Long, j As Long
    ary = Array(1, 3, 4, 5, 6, 11, 14, 17, 18, 19, 20, 21, 22, 23, 24, 29, 34)
    ReDim Data(1 To 240, 1 To 17) As Variant
    j = 1
    For Each a In ary
        For i = 1 To 240
            Data(i, j) = Cells(i, a).Value
        Next i
        j = j + 1
    Next a
End Sub

Answer 2

感谢你推动正确的方向“加里的学生”。这就是它演变成的东西，它只是第4部分中的第1部分。有时你需要轻推才能让大脑发挥作用。

.text