Excel麻烦 - 如何将15分钟数据传输到10分钟数据

时间:2016-11-02 08:07:26

标签: excel excel-vba vba

我有一张大的Excel表格,其中包含从一个风电场的传感器中获取的数据。

它在一列中,一个在另一列之下,只是一个干净的数字,整数(例如1435)。这些列代表每15分钟一次的数据。

我需要从中获取数据并将其转换为10分钟的数据。

我的想法是将它除以3(获得5分钟的数据)并添加其中两个。

但是我需要excel中的公式,在另一列中这样做。

  • 所以采取第一列
  • 除以3,
  • 将其放在旁边的列中,
  • 将其复制到下面的另外2行
  • 然后重复该过程,但在15分钟数据中使用另一个值,低于第一个数据。

我希望它有道理, 非常感谢任何帮助

2 个答案:

答案 0 :(得分:1)

这不是代码编写服务,只是创建一些简单的循环。

Sub tenmindata()

Dim lastRow As Integer

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

lastRow = Range("A" & Rows.Count).End(xlUp).Row
j = 3
For i = 3 To lastRow
    For k = 1 To 3
        Cells(j, 7) = Cells(i, 3).Value / 3
        j = j + 1
    Next k
Next i

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

答案 1 :(得分:0)

不确定我的问题是否正确,但请尝试以下方法:

=A1/3*2

在数据旁边的列中发布,然后双击小黑点:

https://abload.de/img/excelbwbzz.png