Excel VBA質問箱 IV

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

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


70247 / 76734 ←次へ | 前へ→

【10997】Re:データの件数をカウントして平均値を表示
回答  Kein  - 04/2/23(月) 1:03 -

引用なし
パスワード
   こんな感じでも出来ると思います。

Sub MyData_Ave()
  Dim MyR As Range, C As Range
 
  Application.ScreenUpdating = False
  With Sheets("Sheet1")
   .Rows(1).Insert xlShiftDown
   .Range("A1:B1").Value = Array("日付", "Data")
   .Range("A1").Subtotal 1, xlAverage, 2, True
   Set MyR = .Range("B:B").SpecialCells(3)
  End With
  For Each C In MyR
   With Sheets("Sheet2").Range("A65536").End(xlUp)
     .Offset(1).Value = C.Offset(-1, -1).Value
     .Offset(1, 1).Value = C.Value
   End With
  Next
  With Sheets("Sheet1")
   .Range("A1").RemoveSubtotal
   .Rows(1).Delete xlShiftUp
  End With
  With Sheets("Sheet2")
   .Range("A65536").End(xlUp).Resize(, 2).ClearContents
   .Rows(1).Delete xlShiftUp
   .Activate
  End With
  Application.ScreenUpdating = True
End Sub

表のつもりなら、せめて項目ぐらい入れておくべきでしょう。
1 hits

【10977】データの件数をカウントして平均値を表示 初心者です。 04/2/20(金) 18:54 質問
【10978】Re:データの件数をカウントして平均値を表示 IROC 04/2/20(金) 20:37 回答
【10979】Re:データの件数をカウントして平均値を表示 ichinose 04/2/20(金) 21:08 回答
【10997】Re:データの件数をカウントして平均値を表示 Kein 04/2/23(月) 1:03 回答
【11000】ありがとうございます。 初心者です。 04/2/23(月) 9:31 お礼

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