|
▼クウガ さん:
ありがとうございます。
うまく動いてます。
もう少しなんとか簡略したいのですが
わがまま言って申し訳けございません。
Sub test()
Sheets("Sheet1").Select
Range("J2") = 1
AA = 3
For i = 1 To 10
Sheets("Sheet2").Activate
Cells(AA, 1).Select
If Sheets("Sheet2").Cells(AA, 1) > 0 Then
Sheets("Sheet1").Range("H2") = Sheets("Sheet2").Cells(AA, 1)
Sheets("Sheet2").Cells(AA, 2).Copy
Sheets("Sheet1").Activate
Range("I2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
Sheets(1).Range("A3:D20").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("H1:J2"), CopyToRange:=Range("F3:I3"), Unique:=False
Sheets("Sheet1").Range("K2").Copy
Sheets("Sheet2").Activate
Cells(AA, 3).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
AA = AA + 1
Next
End Sub
|
|