|
ハチ さん
すいません。
1-400の範囲は、本当はデータを全て消したいのですが
全て範囲指定していましたら、マクロを走らせた時に
時間がとてもかかっていたので400ぐらいでいいかなと思い
400にしてしまいました。
ご迷惑をかけてすいません。
本当にありがとうございます。
▼ハチ さん:
>▼サン さん:
>
>あんまり良く読んでませんが・・・
>販売以外のSheet名で、12列をフィルタするなら
>こんな感じでもできると思います。
>1:400の行でクリアするのは、セルの色?Fontの色?
>
>Sub test()
>
>Dim ws As Worksheet
>
>For Each ws In Worksheets
> If ws.Name <> "販売" Then
> With ws.Rows("1:400")
> .ClearContents
> .Interior.ColorIndex = xlNone
> End With
>
> With Worksheets("販売").Range("A2")
> .AutoFilter Field:=12, Criteria1:=ws.Name
> .CurrentRegion.SpecialCells(xlCellTypeVisible).Copy ws.Range("A1")
> .AutoFilter
> End With
> End If
>Next ws
>
>MsgBox "担当者別にしました"
>
>End Sub
|
|