0

フィルター セットを含むリストを作成したシートがあります。そのリストからいくつかの値を選択すると、特定の値が表示 (表示) され、残りは非表示になります。表示されているすべてのデータ (表示されているすべての行を含む) をそのシートから別のワークブックにコピーしたいだけです。いくつかのコードを使用しましたが、シートの最初のセルのみを選択し、表示されているすべての行を別のブックにコピーする必要があります。

Range("A1").Select
Do
ActiveCell.offset(1,0).Select
Loop While ActiveCell.EntireRow.Hidden = True
4

1 に答える 1

1

これを試して

'~~> Remove any filters
ActiveSheet.AutoFilterMode = False

'~~> Filter, offset(to exclude headers)
With rRange
    .AutoFilter Field:=lCol, Criteria1:=strCriteria
    .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Copy
    '
    '~~> Do whatever you want to do witht he copied rows
    '
End With

'~~> Remove any filters
ActiveSheet.AutoFilterMode = False
  1. rRangeオートフィルターの範囲はどこですか
  2. lCol関連する列はどこにありますか。
  3. strCriteriaオートフィルター基準はどこにありますか
于 2012-07-18T13:55:20.363 に答える