Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


22878 / 76732 ←次へ | 前へ→

【59228】Re:マクロでのオートSUM
発言  n  - 08/12/2(火) 21:24 -

引用なし
パスワード
   参考情報としての投稿です。
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回投稿削除しました)

0 hits

【59109】マクロでのオートSUM tantan 08/11/29(土) 0:04 質問
【59110】Re:マクロでのオートSUM Yuki 08/11/29(土) 8:13 発言
【59111】Re:マクロでのオートSUM Hirofumi 08/11/29(土) 8:14 発言
【59116】Re:マクロでのオートSUM Hirofumi 08/11/29(土) 11:46 発言
【59130】Re:マクロでのオートSUM tantan 08/11/29(土) 23:06 質問
【59131】Re:マクロでのオートSUM Hirofumi 08/11/30(日) 0:18 回答
【59132】Re:マクロでのオートSUM Hirofumi 08/11/30(日) 0:43 回答
【59133】Re:マクロでのオートSUM tantan 08/11/30(日) 0:47 質問
【59134】Re:マクロでのオートSUM Hirofumi 08/11/30(日) 1:45 回答
【59151】Re:マクロでのオートSUM tantan 08/11/30(日) 18:54 質問
【59157】Re:マクロでのオートSUM Hirofumi 08/11/30(日) 20:48 回答
【59166】Re:マクロでのオートSUM tantan 08/12/1(月) 0:28 質問
【59168】Re:マクロでのオートSUM SS 08/12/1(月) 9:47 発言
【59195】Re:マクロでのオートSUM tantan 08/12/2(火) 0:57 質問
【59196】Re:マクロでのオートSUM ichinose 08/12/2(火) 8:09 発言
【59263】Re:マクロでのオートSUM tantan 08/12/4(木) 0:41 お礼
【59266】Re:マクロでのオートSUM ichinose 08/12/4(木) 6:22 発言
【59197】Re:マクロでのオートSUM Jaka 08/12/2(火) 9:33 発言
【59224】Re:マクロでのオートSUM Hirofumi 08/12/2(火) 18:43 回答
【59225】Re:マクロでのオートSUM Hirofumi 08/12/2(火) 19:24 回答
【59262】Re:マクロでのオートSUM tantan 08/12/4(木) 0:36 お礼
【59283】Re:マクロでのオートSUM Hirofumi 08/12/4(木) 19:29 回答
【59310】Re:マクロでのオートSUM tantan 08/12/5(金) 18:06 お礼
【59228】Re:マクロでのオートSUM n 08/12/2(火) 21:24 発言
【59264】Re:マクロでのオートSUM tantan 08/12/4(木) 1:50 質問
【59265】Re:マクロでのオートSUM n 08/12/4(木) 3:06 発言
【59311】Re:マクロでのオートSUM tantan 08/12/5(金) 18:08 お礼

22878 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free