に私は、Excel 2013のために、以下のsnippitを持っているVBAエクセルVBA Listrowアレイ
For Each r In rr
If Not r.Range.Height = 0 Then
FNum = FNum + 1
ReDim Preserve testArr(1 To FNum, 1 To 23)
testArr(FNum) = r
End If
Next r
私の目標は、アレイ内に濾過テーブルからすべての可視の行を取得することです。
表は任意の数の行にできますが、常に23列です。
高さが非表示の場合、高さがゼロになることがわかりました。しかし、私の人生のために、配列全体をどのように配列するかを理解することはできません。
R = listrow RR =
listrows YES、私はループREDIMを吸う知っています。
SpecialCells(xlCellTypeVisible)
doesntの作業のいずれかは、最初に隠さ行/列で停止するからです。
テーブル全体を配列にダンプして配列をフィルタリングするだけでも構いません。私はそれを適用するためにテーブルからアクティブなフィルタを引っ張る方法を理解していないhaventしかし、私はまだ深く見てhavent。私は今何をしているのだろう。なぜなら、私は他の方法で立ち往生しているからです。
すべてのアドバイスは大歓迎です。
DM
rrとは何ですか?私はRedim Preserveが最後の次元のサイズを変更するだけなので、あなたのコードはあなたが望むように動作するとは思いません。 – SJR
テーブルの大きさはどれくらいですか? –