|
オートフィルタで抽出したデータを別シートにコピーする方法は過去ログから見つけることが出来たのですが、抽出した以外のデータを削除する方法がわかりません。
下記がコピーする方法ですが、これをどう直せばいいのかご教授いただけないでしょうか?よろしくお願いいたします。
前略
Set mySH1 = Worksheets("テスト")
Set myR = mySH1.Range("A1").CurrentRegion
myR.Columns(1).AdvancedFilter xlFilterCopy, copytorange:=mySH1.Range("Z1"), unique:=True
myVal = mySH1.Range("Z2", mySH1.Range("Z65536").End(xlUp)).Value
For i = 1 To UBound(myVal, 1)
Set mySH = Worksheets.Add(After:=Sheets(Sheets.Count))
mySH.Name = myVal(i, 1)
With myR
.AutoFilter field:=1, Criteria1:=myVal(i, 1)
.Copy mySH.Range("A65536").End(xlUp)
.AutoFilter
End With
Next i
|
|