VBA将两列插入数组中

Question

我想将两列中的单元格值添加到数组中。我可以使用以下方法为一个列值执行：

            ss = Range("B1:R" & lstrow).Value
            For i = 2 To lstrow
            If ss(i, 2) = "FLAG" Then 
            If IsEmpty(dd) Then
            dd(i) = Array(ss(i, 1))
             Else
           ReDim Preserve dd(UBound(dd) + 1)
           dd(UBound(dd)) = ss(i, 1)
                            End If

如果我想向dd数组添加另一个列值，例如ss（i，3），那么IF ss（i，2）= flag将ss（i，1）和ss（i，3）的值添加到dd数组

感谢您的帮助

Answer 1

使用

Redim Preserve dd(1 To UBound(dd) + 1, 1 To 3)

这为每个数组行提供了3列。