よねさんのWordとExcelの小部屋 なんでも掲示板

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

■13117 / 3階層)  オートフィルターで条件を省く場合について
□投稿者/ mr Mail -(2016/12/22(Thu) 00:28:30)
    すみません。混乱しています。説明不足、ひどい言葉遣いかもしれません。ごめんなさい。

    例えばですが、
    sheet1

    会員番号 氏名   科目  得点
    abc-123456 あらた 国数  250
    abc-345678 さきた 英国  372
    abc-234567 こくら 英数  215
    abc-456789 さささ 英英  300

    ※sheet1のデータは集計時によって
    増減があります。


    sheet2
    会員番号   会員番号
    <>abc-123456 <>abc-234567

    ※sheet2の列はどんどん増えるとします。
    集計時によって増減がある場合。

    sheet3←集計結果をだしたい
    会員番号 氏名   科目  得点
    abc-345678 さきた 英国  372
    abc-456789 さささ 英英  300

    以下のようなマクロの記録に足して書きました。
    Sub test1()
    Dim gyo as long
    gyo =sheets("Sheet1").Cells(1, 1).End(xlDown).Row

    Range(cells(1, 1),cells(gyo, 4)).Select
    Range(cells(1, 1),cells(gyo, 4)).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets( _
    "Sheet2").Range("A1:B2"), CopyToRange:=Range("A20"), Unique:=False
    End Sub

    -----

    ここでわからないのが、sheet2の最終列の指定方法です。
    Dim retu as long
    retu =sheets("Sheet2")Cells(1, 1).End(xlToRight).Column

    で、表せると思うのですが、

    CriteriaRange:=Sheets( _
    "Sheet2").Range("A1:B2"), CopyToRange:=Range("A20"), Unique:=False

    に、どうやってあてはめていいのかわからない。

    "Sheet2").Range("A1:B2")をcellsに置き換えればいいのかしら?


    一番最初の
    Range(cells(1, 1),cells(gyo, 4)).Select
    も、本来はsheet1を指定しないといけないのかな??その指定方法はどうすれば・・・


記事引用 削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
←Re[2]: オートフィルターで条件を省く場.. /mr Mail →Re[4]: オートフィルターで条件を省く場.. /よねさん
 
上記関連ツリー

Nomal オートフィルターで条件を省く場合について / mr Mail (16/12/19(Mon) 22:39) #13112
Nomal Re[1]: オートフィルターで条件を省く場.. / よねさん (16/12/20(Tue) 07:39) #13113
  └Nomal Re[2]: オートフィルターで条件を省く場.. / mr Mail (16/12/20(Tue) 21:56) #13115
    └Nomal オートフィルターで条件を省く場合について / mr Mail (16/12/22(Thu) 00:28) #13117 ←Now
      └Nomal Re[4]: オートフィルターで条件を省く場.. / よねさん (16/12/22(Thu) 08:28) #13118
        └Nomal Re[5]: オートフィルターで条件を省く場.. / mr Mail (16/12/23(Fri) 00:04) #13122
          └Nomal Re[6]: オートフィルターで条件を省く場.. / よねさん (16/12/23(Fri) 10:47) #13123

All 上記ツリーを一括表示 / 上記ツリーをトピック表示
 
上記の記事へ返信

Pass/

HOME HELP 新規作成 新着記事 ツリー表示 トピック表示 検索 過去ログ

- Child Tree -