|
▼魚 さん:
>以下のソースをSelect Caseになおしたかったのですが、
あえて AutoFilter を使わずにループを使って Select Case に
してみました。(AutoFilterには太刀打ちできませんが・・・)
Sub Test()
Set WS1 = Worksheets("A")
Set WS2 = Worksheets("B")
Set WS3 = Worksheets("C")
With Worksheets("data").Range("X6")
With .Resize(, .End(xlToRight).Column)
.Copy WS2.Range("A6")
.Copy WS3.Range("A6")
.Copy WS1.Range("A1")
End With
For i = 1 To .End(xlDown).Row - .Row
Set rng = .Offset(i).Resize(, .Offset(i).End(xlToRight).Column)
Select Case .Offset(i, 9).Value
Case "OK"
rng.Copy WS2.Range("A25536").End(xlUp).Offset(1)
Case "NG"
rng.Copy WS3.Range("A25536").End(xlUp).Offset(1)
Case Else
rng.Copy WS1.Range("A25536").End(xlUp).Offset(1)
End Select
Next i
End With
WS1.Activate
End Sub
※シートからの抽出では AutoFilter は強力な機能です(最強?)
|
|