|
今ごろ、記載したコードに不具合があることが解りました。
修正して下さい。
>With Workbooks("データ1.xls").Sheets("Sheet1")
> .Range("A1").AutoFilter Field:=1, Criteria1:="AAA10"
> .Range("A2", .Range("A63336").End(xlUp)).SpecialCells(xlCellTypeVisible).Copy
> .AutoFilterMode = False
>End With
>ThisWorkbook.Sheets(2).Range("A1").PasteSpecial
↓
With Workbooks("データ1.xls").Sheets("Sheet1")
AER = .Range("A65536").End(xlUp).Row
.Range("A1").AutoFilter Field:=1, Criteria1:="AAA10"
.Range("A2:A" & AER).SpecialCells(xlCellTypeVisible).Copy
.AutoFilterMode = False
End With
ThisWorkbook.Sheets(2).Range("A1").PasteSpecial
|
|