UC知道EXCEL如何抽出想要的数据
来源：百度知道 编辑：UC知道 时间：2024/07/01 07:31:36
想要把每次汽车加速的最大加速度抽出来，EXCEL如何抽出？
如下列，汽车开始加速，当达到最大值（0.389）后然后减速，然后再一次加速到（0.361），如此循环下去。
如何把每一次加速的最大值（即0.389和0.361）抽出来呢？
越详细越好谢谢
数列A
车体加速度
0.271
0.293
0.313
0.331
0.389
0.389
0.385
0.376
0.363
0.347
0.326
0.102
0.074
0.047
0.021
-0.004
-0.028
-0.049
-0.069
-0.087
-0.105
--0.179
-0.187
--0.217
-0.221
--0.238
-0.24
-0.238
-0.235
-0.23
-0.22
-0.248
0.271
0.292
0.313
0.331
0.348
0.361
如下列，汽车开始加速，当达到最大值（0.389）后然后减速，然后再一次加速到（0.361），如此循环下去。
如何把每一次加速的最大值（即0.389和0.361）抽出来呢？
越详细越好谢谢
数列A
车体加速度
0.271
0.293
0.313
0.331
0.389
0.389
0.385
0.376
0.363
0.347
0.326
0.102
0.074
0.047
0.021
-0.004
-0.028
-0.049
-0.069
-0.087
-0.105
--0.179
-0.187
--0.217
-0.221
--0.238
-0.24
-0.238
-0.235
-0.23
-0.22
-0.248
0.271
0.292
0.313
0.331
0.348
0.361
可以通过VBA编制来解决：
1、假设在B列统计最大加速度；
2、执行EXCEl表内－>"工具"－>"宏"->"VB编辑器"－>"双击Sheet1"－>窗体内复制以下VB源代码：
Sub tty()
Dim maxline, max_acceleration_point As Integer 'maxline是设定要检索的最大行数，max_acceleration_point是最大加速度指针
max_acceleration_point = 1 'B列用于记录每次加速度达到最大值
maxline = 100 '假如要检索的行数为100行
For i = 1 To maxline
If Sheet1.Cells(i + 1, 1) >= Sheet1.Cells(i, 1) And Sheet1.Cells(i + 2, 1) < Sheet1.Cells(i + 1, 1) Then '如果第二行数据大于第一行，而且第三行数据小于第二行数据，则表明加速度已达最大
Sheet1.Cells(max_acceleration_point, 2) = Sheet1.Cells(i, 1) 'B列记录该值
max_acceleration_point = max_acceleration_point + 1 'B列行数指针加1
End If
Next i
End Sub
3、执行该宏即可。
哎呀， 你不如用折线图来表示，来的简单
如果是我就用VBA了，不知道有没有高人可以不用VBA解决
用筛选啊
很快的
方便的话,发过来,我帮你几分钟搞定,利用VBA建立查询~~
ty_1029@163.com