Excel故障-如何将15分钟数据转换为10分钟数据

pzfprimi 于 2023-01-14 发布在其他

关注(0)|答案(2)|浏览(241)

我有一个很大的Excel表格，上面有从一个风电场的传感器上获取的数据。
它在一列中，一列在另一列下面，只是一个干净的数字，整数（例如1435）。这些列代表每15分钟的数据。
我需要从中获取数据并将其转换为10分钟数据。
我的想法是把它除以3（得到5分钟的数据），然后把其中的两个相加。
但我需要在excel中的公式，在其他列中这样做。

取第一列
将其除以3，
把它放在旁边的一栏里
将其复制到下面另外两行中
然后重复该过程，但15分钟数据中的其他值低于第一个值。

我希望这是有意义的，非常感谢任何帮助

excel

来源：https://stackoverflow.com/questions/40375065/excel-trouble-how-to-transfer-15-min-data-to-10-min-data

2条答案

按热度按时间

z9ju0rcb1#

创建一些简单的循环即可。

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

赞(0）回复(0）举报 2023-01-14

bxjv4tth2#

不知道我是否理解了你的问题，但试试这个：