Excel VBA質問箱 IV

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

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


40310 / 76732 ←次へ | 前へ→

【41521】Re:集計について
回答  Kein  - 06/8/12(土) 19:51 -

引用なし
パスワード
   どちらかと言うと↓この方が分かりやすいですね。

Sub MyDataSet()
  Dim MyR As Range, C As Range
 
  Application.ScreenUpdating = False
  Range("G2:G65536").ClearContents
  Set MyR = Range("A2", Range("A65536").End(xlUp).Offset(-1)) _
  .Offset(, 1).SpecialCells(2, 1)
  For Each C In MyR
   C.Resize(, 5).Copy
   C.Offset(-1).PasteSpecial xlPasteValues, _
   xlPasteSpecialOperationAdd
   Application.CutCopyMode = False
  Next
  MyR.EntireRow.Delete xlShiftUp: Set MyR = Nothing
  Range("A2", Range("A65536").End(xlUp).Offset(-1)) _
  .Offset(, 6).Formula = "=SUM($B2:$F2)"
  ActiveSheet.Calculate: Range("A1").Select
  Application.ScreenUpdating = True
End Sub
0 hits

【41515】集計について ToShiYo 06/8/12(土) 18:09 質問
【41517】Re:集計について かみちゃん 06/8/12(土) 18:19 発言
【41519】Re:集計について かみちゃん 06/8/12(土) 19:34 回答
【41518】Re:集計について Kein 06/8/12(土) 19:17 回答
【41521】Re:集計について Kein 06/8/12(土) 19:51 回答
【41553】Re:集計について ToShiYo 06/8/13(日) 7:31 お礼
【41554】Re:集計について かみちゃん 06/8/13(日) 9:26 発言
【41569】Re:集計について ToShiYo 06/8/13(日) 22:18 お礼

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