|
▼ぴかる さん:
>氏名欄を作成し、そこを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
|
|