|
AutoFilter案ですが、
もう少し具体例を示すと、
あるBookに 何十枚もの同じ形式のシートがあり、シートの1枚が「集約」という
名前のシートで、ここに他のシートのデータを集約するとすると、
こんな感じになります。
Sub tryAutoFilter()
Dim wsまとめ As Worksheet
Dim ws As Worksheet
Set wsまとめ = Worksheets("集約") 'まとめ用シート
For Each ws In Worksheets
If ws.Name <> wsまとめ.Name Then
With ws.Range("C16", ws.Cells(Rows.Count, "C").End(xlUp)) _
.Offset(, -2).Resize(, 7)
'データがある行だけを まとめ用シートに一括転記
.AutoFilter Field:=3, Criteria1:="<>"
If .Columns(1).SpecialCells(xlVisible).Count > 1 Then
Intersect(.Cells, .Offset(1)).Copy _
wsまとめ.Cells(Rows.Count, 2).End(xlUp).Offset(1, -1)
End If
.AutoFilter
End With
End If
Next
End Sub
|
|