|
▼wao さん 今晩は。
オートフィルタを解除するコードを入れました
試してみてください。
>
>手動でオートフィルタを解除→再設定すると
>1回のみ実行可能
>
'For <繰り返し処理>
Worksheets("Sheet1").Select '<==Sheet1を 請求処理用 に置き換えてください
Range("A2").Select
Selection.AutoFilter Field:=4, Criteria1:=業者名
Selection.CurrentRegion.Offset(1).Copy
'
ActiveWorkbook.Worksheets.Add.Name = 業者名
Worksheets(業者名).Select
Sheets(業者名).Cells(65536, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlAll
'Sheets(業者名).Cells(65536, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
'
'-----AutoFilterを解除
Sheets("Sheet1").Select
Range("A2").Select
Selection.AutoFilter
'Next
|
|