EXCEL表格怎么抽取200行数据

1.怎样从Excel中,提取指定行指定数据?

是不是C列起的奇数列、每隔20行取一行：

在Sheet2的A1输入

=INDIRECT("'Sheet1'!"&CHAR(65+COLUMN(A1)*2)&ROW(A1)*20）回车并向右填充，再向下填充。

补充：

一、取Sheet1中的C、E、G、I、K、……奇数列：

在Sheet2当中的A1输入

=INDIRECT("Sheet1!"&CHAR(65+COLUMN(A1)*2)&ROW(A1)）回车并向右填充，再向下填充。

二、取Sheet3中的第10-210行：

在Sheet4当中的A1输入

=INDIRECT("Sheet3!"&CHAR(64+COLUMN(A1))&ROW(A10)）回车并向右填充，再向下填充至第201行。

然后每隔20行取E列连续的200个数据：

什么意思？

在哪个位置从Sheet3当中的E列取第1行~200行、第221行~第420行（隔20行）、……？Sheet4的第1行~第201行已经返回Sheet3的数据了。这些数据要置于哪里呢？

还是在另一地方，如Sheet5的A1起取Sheet3当中的E列第1行~200行、再从Sheet5的A221起（隔20行）取Sheet3当中的E列第201行~400行、……

???

2.EXCEL如何抽出想要的数据

可以通过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、执行该宏即可。