1

センサーの優れたデータパフォーマンスが非常に優れています。データには時系列が含まれています！そしてその記録は5秒ごとです。一般的に、私は17281 rows1日だけの記録であるデータを持っています。データを視覚化する必要がありますが、5 秒ごとの記録ではシャープすぎるため、時系列を 5 秒ごとから 5 分ごとにスケーリングしたいと考えています。

余分な行を削除してそれをやろうとしました...

毎日5 minutes = 60 "5 second"

を削除60 rowして保持し61th、次の 60 を削除して 121 を保持する必要があります...

私は VB コード メソッドを使用しようとしましたが、私はそれを行うことができませんでした!!!

誰でも助けてください:(

これは、最初の数行を実行しようとしたときに記録されたマクロです...問題の明確なイメージが得られることを願っています...

Sub MacroDeleteTest1()
'
' MacroDeleteTest1 Macro
'

'
    Rows("2:2").Select
    ActiveWindow.SmallScroll Down:=31
    Rows("2:60").Select
    Selection.Delete Shift:=xlUp
    Rows("3:3").Select
    ActiveWindow.SmallScroll Down:=34
    Rows("3:61").Select
    Selection.Delete Shift:=xlUp
    Rows("4:4").Select
    ActiveWindow.SmallScroll Down:=33
    Rows("4:62").Select
    Selection.Delete Shift:=xlUp
    Rows("5:5").Select
    ActiveWindow.SmallScroll Down:=35
    Rows("5:63").Select
    Selection.Delete Shift:=xlUp
    Rows("6:6").Select
    ActiveWindow.SmallScroll Down:=34
    Rows("6:64").Select
    Selection.Delete Shift:=xlUp
    Rows("7:7").Select
End Sub

ありがとうございました...

4

1 に答える 1

1

このようなもの。範囲 rStart をデータの最初のセルに設定します。

Sub delete60()

Dim rStart As Range
Const cCOLF As Long = 5    ' Offset across of column F

    Set rStart = Sheet1.Range("A1")

    Do While rStart.Offset(1, 0).Value <> ""
        With Range(rStart.Offset(1, cCOLF), rStart.Offset(59, cCOLF))
            rStart.Offset(0, cCOLF).Value = Evaluate("SUM(" & .Address & ")")
            .EntireRow.Delete
        End With
        Set rStart = rStart.Offset(1, 0)
    Loop

End Sub
于 2012-09-24T13:04:43.167 に答える