|
>2行づつ空けて
Sheets("作業済").Range("A65536").End(xlUp).Offset(2)
に対して貼り付ける、という書き方もありますが、これだとA3から表示されることに
なります。A1からとしたい場合は、カウンタ変数を使えば良いでしょう。
Sub Test()
Dim i As Integer, x As Long
Dim MyR As Range
Application.ScreenUpdating = False: x = 1
For i = 1 To 10
With Sheets("データ" & i)
Set MyR = .Range("F7", .Range("F65536").End(xlUp))
.Range("F6", .Range("F65536").End(xlUp)) _
.AutoFilter Field:=1, Criteria1:="100.0%"
On Error Resume Next
MyR.SpecialCells(12).EntireRow _
.Copy Sheets("作業済").Cells(x, 1)
.AutoFilterMode = False
End With
Set MyR = Nothing: Err.Clear: x = x + 2
Next i
Application.ScreenUpdating = True
End Sub
|
|