Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

55159 / 76732

←次へ　｜　前へ→


	【26351】Re:売上の一覧を販売者単位でシートに集計する

yasu - 05/7/2(土) 11:53 -


	引用なし

	パスワード

▼ぴかるさん：

>氏名欄を作成し、そこをFor～Nextで氏名を取得し
>Range("E1")を変数に変更すればいいと思います。

アドバイスありがとうございました。
氏名の変数をピックアップしてそれぞれその氏名の
売上をコピーするところまで出来ました。

後は対象データを新しいシートに転記することで
解決が出来ません。
シートAAに絞り込んだデータが順次入る状態です。
シートを変えていく変数のやりかたをご指導の
程お願いします。

現在のマクロの状態は以下のとおりです。
一度見てください。

Sub 順次選択貼り付け()

　　Sheets("売上一覧").Select
　　Range("B2", Cells(65536, 2).End(xlUp)).Select
　　Selection.AdvancedFilter Action:=xlFilterInPlace, Unique:=True
　　Selection.SpecialCells(xlCellTypeVisible).Copy
　　Range("Z3000").Select
　　ActiveSheet.Paste
　　Application.CutCopyMode = False
　　
　　Dim i As Integer
　　For i = Cells(65536, 26).End(xlUp).Row To 3001 Step -1
　　Range("E1") = Cells(i, 26).Value '絞り込んだ氏名を明示
　　
　　Sheets("売上一覧").Activate
　　Range("A2").AutoFilter Field:=2, Criteria1:=Range("E1")
　　Range("A2").CurrentRegion.Select
　　Selection.Copy

　　Sheets("AA").Select　　'←ここのところの変数をどのようにすると
　　　　　　　　　　　　　　　'良いのでしょうか？
　　Range("A2").Select
　　ActiveSheet.Paste
　　Application.CutCopyMode = False
　　Sheets("売上一覧").Activate
　　Selection.AutoFilter
　　Range("A1").Select
　　
　　Next
　　
　　Range("A1").Select
End Sub

1 hits

▼

【26342】売上の一覧を販売者単位でシートに集計する yasu 05/7/2(土) 8:32