|
参考情報としての投稿です。
1行目に「見出し」があるなら[集計]機能が使える場合もあります。
ただしSUM関数ではなくSUBTOTAL関数になりますが。
Sub try1()
Range("A1", Cells(Rows.Count, 1).End(xlUp).Offset(1)) _
.Subtotal GroupBy:=1, Function:=xlSum, _
TotalList:=Array(1), Replace:=True, _
PageBreaks:=False, SummaryBelowData:=True
Cells.ClearOutline
'Columns("A").Delete
End Sub
空白セルを選択して[Σ]クリックという発想だとこんなのもあります。
Sub try2()
Range("A1", Cells(Rows.Count, 1).End(xlUp).Offset(1)) _
.SpecialCells(xlCellTypeBlanks).Select
Application.CommandBars.FindControl(ID:=226).accDoDefaultAction
End Sub
最初のお題の
>1.行の挿入
>2.マクロでのオートSUM
に適用させるとしたら
Sub try3()
Dim r As Range
Dim x
x = Range("A1").Value
With Range("A1", Cells(Rows.Count, 1).End(xlUp)).Offset(1)
For Each r In .Cells
If r.Value <> x Then
r.EntireRow.Insert
x = r.Value
End If
Next
.SpecialCells(xlCellTypeBlanks).Select
Application.CommandBars.FindControl(ID:=226).accDoDefaultAction
.Cells(.Count).ClearContents
End With
End Sub
こんな感じ。
(#ごめんなさい。間違いあったので1回投稿削除しました)
|
|