循环遍历行、列和交集 VBA

Question

所以我想遍历一个电子表格并在这两者相交的单元格中收集表头、行表头和值。然后构建这些值的数组。

这是一个例子

   V1 V2 V3 V4 
C1  1     1  2
C2     3     
C3  2        4
C4  1     1

数组的最终输出类似于

V1, C1, 1
V2, C1, 0
V3, C1, 1
V4, C1, 4
V1, C2, 0
V2, C2, 3
etc

然后，我将对这个数组进行排序并消除任何具有“0”值的条目。

问题：我在实践中并不是最好的，并且在尝试定义变量或数组条目时不断收到错误。我觉得这个想法是合理的，但在语法方面，我无法克服具体的错误。

我想我不希望有人完全解决它，因为这违背了学习目的

我最初的解决方案是构建一个数组或 Header、一个 Row 标题数组和一个数据数组。

基本上是一个由 V 值、另一个 C 值和一个整数值组成的数组。

我写了下面的代码（再次请原谅我的无知）。

据我所知，它应该循环通过第一个范围抓取值 V1（或我的代码中的 C2）循环通过第二个范围抓取值 C1（或我的代码中的 A2）然后 1 的值（我会称它为 Z1)。然后增加整数为抓取V2，然后是C1，然后是Z2，以此类推。

Dim myarrayX() As Variant
Dim myarrayY() As Variant
Dim myarrayZ() As Variant
Dim myarrayHeader() As Variant
Dim myarrayRowHeader() As Variant
Dim myarrayIntersection() As Variant
Dim Result() As Variant
Dim i As Variant
Dim j As Variant
Dim k As Variant
Dim l As Variant
Dim m As Variant
Dim n As Variant


l = 0
m = 0
n = 0



myarrayHeader = Range("C2:H2").Value
myarrayRowHeader = Range("A2:A6").Value
myarrayIntersection = Range("C2:H6").Value



For Each i In myarrrayHeader.Cells
    myarrayX(l) = Cell.Value
        For Each j In myarrayRowHeader.Cells
            myarrayY(m) = Cell.Value
                For Each k In myarrayIntersection.Cells
                    myarrayZ(n) = Cell.Value

                    k = k + 1
                    i = i + 1
                    n = n + 1
                 Next k
             m = m + 1
       Next j
       l = l + 1
       j = j + 1
Next i

我无法得到任何输出，因为它显示“myarrayRowHeader.Cells”的“限定符无效”，我不知道为什么会这样。

Answer 1

我无法得到任何输出，因为它说“无效的限定符” “myarrayRowHeader.Cells”，我不知道为什么会这样。

这里有两个问题。第一个也是明显的一个错字。始终在模块顶部使用Option Explicit。 总是。

您已将以下内容声明为变体，目的是用值填充它们 - 使它们成为值数组：

Dim myarrayHeader() As Variant '<-- Actually, this is an array of Variants, also not what you want!
Dim myarrayRowHeader() As Variant
Dim myarrayIntersection() As Variant

确实 - 您确实在代码开头使用值填充这些数组。

myarrayHeader = Range("C2:H2").Value ' One row, multiple columns
myarrayRowHeader = Range("A2:A6").Value ' Multiple rows, one column
myarrayIntersection = Range("C2:H6").Value ' Multiple rows, multiple columns

此时，它们是数组，而不是对象，因此没有任何内在方法或属性。换句话说，myarrayRowHeader 没有 .Cells 方法或属性，因此 VBA 编译器会抱怨。

代码的正确语法是简单地遍历数组：

For i = LBound(myarrrayHeader, 2) to UBound(myarrrayHeader, 2) ' <--- typo here 
    myarrayX(l) = myarrayHeader(I,1)
        For j = LBound(myarrayRowHeader, 1) to UBound(myarrayRowHeader, 1)
            myarrayY(m) = myarrayRowHeader(j,1)
'etc.

请注意，将 Excel 范围转换为数组时，它始终是二维数组，即使只选择了一列。

但是因为您在多个列和数组中工作，所以您的简单循环将不起作用。您必须了解空间中的相对关系，如下所示。

Dim myarrayHeader As Variant 
Dim myarrayRowHeader As Variant
Dim myarrayIntersection As Variant
dim myarray(,) as Variant
myarrayHeader = Range("C2:H2").Value ' One row, multiple columns
myarrayRowHeader = Range("A2:A6").Value ' Multiple rows, one column
myarrayIntersection = Range("C2:H6").Value ' Multiple rows, multiple columns

Dim rowNum as Long
rowNum = 1

ReDim myarray(UBound(myarrayRowHeader,1) * UBound(myarrayHeader, 2),3) ' <--- double check this for right numbers

For i = LBound(myarrayHeader, 2) to UBound(myarrayHeader, 2) 
    For j = LBound(myarrayRowHeader, 1) to UBound(myarrayRowHeader, 1)
        myarray(rowNum, 1) = myarrayHeader(1,i)
        myarray(rowNum, 2) = myarrayRowHeader(j,1)
        myarray(rowNum, 3) = myarrayIntersection(I,j)
        rowNum = rowNum+1
    Next j
Next I

编辑：

我的原始代码只是考虑基于单个维度调整最终数组的大小，但最终数组当然是基于两个维度的。当 OP 试图遍历所有数据时，这会导致原始代码出现越界错误。

另一个选项，将事物保持在 UBound(x,1) 模式是使用.Transpose：

myarrayHeader = Range("C2:H2").Transpose.Value ' Now multiple rows, one column