将过滤后的 Excelsheet 复制到 VBA 中的多数组中

Question

我已经在这里和那里阅读了一些关于 SpecialCells(xlCellTypeVisible) 的内容，但我没有设法将它放入代码中。 我想将具有多列和多行的过滤 Excel 工作表复制到一个数组中，而不使用新工作表来复制它。

目前这是我的代码（用于未过滤的工作表）：

    For i = 1 To LastRow
        For j = 1 To 9
        strArray(i, j) = Cells(i, j).Value2
        Next j
    Next i

任何提示或线索如何做到这一点？

Answer 1

有时我的思维不太好。检查隐藏行给了我答案！这成功了！

    k = 1
For i = 1 To LastRow
    For j = 1 To 9
    If Sheets("Feuil2").Rows(i).Hidden = False Then
    strArray(k, j) = Cells(i, j).Value2
    Else
    End If
    Next j
    If Sheets("Feuil2").Rows(i).Hidden = False Then
    k = k + 1
    Else
    End If
Next i

Answer 2

你应该这样做：

strArray= Sheets(Sheet_name).AutoFilter.Range.Value

您已经将 Range 转换为 Array！