|
▼魚 さん:
このコードの内容がいまいち分からないのですが・・・
あえてselect caseを使えば、こんな感じでしょうか
Sub Test2()
Set WS1 = Worksheets("A")
Set WS2 = Worksheets("B")
Set WS3 = Worksheets("C")
' Workbooks.Open (data.xls)・・・これは?不要では。
With Worksheets("data").Range("X6")
.AutoFilter
Select Case Range("J2")
Case Is = "OK"
.AutoFilter Field:=10, Criteria1:="OK"
.CurrentRegion.SpecialCells(xlVisible).Copy WS2.Range("A6")
.AutoFilter
Case Is = "NO"
.AutoFilter Field:=10, Criteria1:="NG"
.CurrentRegion.SpecialCells(xlVisible).Copy WS3.Range("A6")
.AutoFilter
Case Else
.AutoFilter Field:=10, Criteria1:="<>OK", Operator:=xlAnd, _
Criteria2:="<>NG"
.CurrentRegion.SpecialCells(xlVisible).Copy WS1.Range("A1")
End Select
.AutoFilter
End With
WS1.Activate
End Sub
|
|