|
マクロの記録をちょっと変更したモノです。
内容をヘルプで調べて、データ範囲など、必要なところを変更してみてください。
前提条件は、
1.データがSheet1のA1から10行入っている
2.Sheet1のK列は空いている(作業列として利用)
Sub Macro1()
With Worksheets("Sheet1")
.Rows(1).Insert Shift:=xlDown
.Range("A1").Value = "col1"
.Range("A1").AutoFill Destination:=.Range("A1:H1"), Type:=xlFillDefault
.Range("K1").Value = .Range("E1").Value
.Range("K2").Value = ">0"
.Range("A1:H11").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=.Range("K1:K2"), CopyToRange:=Worksheets("Sheet2").Range("A1"), _
Unique:=False
.Range("K1:K2").ClearContents
.Rows(1).Delete Shift:=xlUp
.Range("A1").Select
End With
Worksheets("Sheet2").Select
Worksheets("Sheet2").Cells(1, 1).Select
End Sub
|
|