|
>全都道府県名のシートの他にも、いくつかシート
仮にこれらのシート名が、Sheet1, Sheet2, Sheet3 であるとすれば
Sub Test()
Dim WS As Worksheet
Dim x As Long
Dim MyR As Range
Application.ScreenUpdating = False: x = 1
For Each WS In Worksheets
Select Case WS.Name
Case "Sheet1", "Sheet2", "Sheet3", "作業済"
Case Else
Set MyR = WS.Range("F7", WS.Range("F65536").End(xlUp))
WS.Range("F6", WS.Range("F65536").End(xlUp)) _
.AutoFilter Field:=1, Criteria1:="100.0%"
On Error Resume Next
MyR.SpecialCells(12).EntireRow _
.Copy Sheets("作業済").Cells(x, 1)
WS.AutoFilterMode = False
Set MyR = Nothing
Err.Clear: x = x + 2
End Select
Next
Application.ScreenUpdating = True
End Sub
|
|