|
▼momomi さん:
こんにちは
そしてkobasanさん(色々とありがとうございました)
こんにちは…
会社で。ひおひねりしてきました。
シート3に集計しています。
一度これも試して見てください。できるだけシンプルにしようとしました。
Sub 検索転記小計合計()
Sheets(3).Select
Range("B2").Select
Selection.RemoveSubtotal
Columns("A:G").Select
Selection.ClearContents
Range("A1").Select
Sheets(1).Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets(3).Select
Range("A1").Select
ActiveSheet.Paste
Range("B2").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(5, 6, 7), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Range("A1").Select
Selection.CurrentRegion.Select
With Selection.Borders '(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("A1").Select
' Sheets(1).Select
' Range("A1").Select
End Sub
|
|